<Eterm-0.9>
%preproc m4
define(STRING_ITEM, `begin menuitem
    text "$1"
    action string "$2"
  end')
define(ECHO_ITEM, `begin menuitem
    text "$1"
    action echo "$2"
  end')
define(SUBMENU_ITEM, `begin menuitem
    text "$1"
    action submenu "$1"
  end')
define(FONT_ITEM, `begin menuitem
    text "$1"
    action string "\e]50;#$2"
  end')
begin menu
  title Font
  font -*-times-bold-r-normal--14-*-*-*-*-*-iso8859-1
  STRING_ITEM(`Normal', `\e]50;#')
  STRING_ITEM(`Larger', `\e]50;#+')
  STRING_ITEM(`Smaller', `\e]50;#-')
  -
  STRING_ITEM(`Font 1', `\e]50;#1')
  STRING_ITEM(`Font 2', `\e]50;#2')
  STRING_ITEM(`Font 3', `\e]50;#3')
  STRING_ITEM(`Font 4', `\e]50;#4')
end
begin menu
  title Toggles
  begin menuitem
    text "Cursor Visible"
    action string "\e[?25t"
  end
  begin menuitem
    text "Home on Echo"
    action string "\e[?1010t"
  end
  begin menuitem
    text "Home on Refresh"
    action string "\e[?1011t"
  end
  begin menuitem
    text "Home on Input"
    action string "\e[?1012t"
  end
  begin menuitem
    text "Map Alert"
    action string "\e]6;21\a"
  end
  begin menuitem
    text "Primary/Secondary Screen"
    action string "\e[?47t"
  end
  begin menuitem
    text "Reverse Video"
    action string "\e[?5t"
  end
  begin menuitem
    text "Select Trailing Spaces"
    action string "\e]6;25\a"
  end
  begin menuitem
    text "Select Whole Line on Triple-click"
    action string "\e]6;23\a"
  end
  begin menuitem
    text "Visual Bell"
    action string "\e]6;20\a"
  end
  begin menuitem
    text "X11 Mouse Reporting"
    action string "\e[?1000t"
  end
  begin menuitem
    text "Xterm Selection Behavior"
    action string "\e]6;22\a"
  end
end
begin menu
  title Keys
  begin menuitem
    text "Application Arrow Keys"
    action string "\e[?1t"
  end
  begin menuitem
    text "Application Keypad"
    action string "\e[?66t"
  end
  begin menuitem
    text "Backspace/Delete"
    action string "\e[?67t"
  end
  begin menuitem
    text "Xterm Shift-Keys"
    action string "\e[?35t"
  end
end
begin menu
  title Scrollbar
  begin menuitem
    text "Toggle Visibility"
    rtext "Ctrl-Button2"
    action string "\e[?30t"
  end
  begin menuitem
    text "Swap Sides"
    action string "\e]6;11\a"
  end
  begin menuitem
    text "Toggle Floating"
    action string "\e]6;12\a"
  end
  begin menuitem
    text "Toggle Popup Mode"
    action string "\e]6;13\a"
  end
  -
  begin menuitem
    text "Motif (Traditional) Style"
    action string "\e]6;10;motif;;\a"
  end
  begin menuitem
    text "NeXT Style"
    action string "\e]6;10;next;;\a"
  end
  begin menuitem
    text "Xterm Style"
    action string "\e]6;10;xterm;;\a"
  end
end
begin menu
  title Width
  begin menuitem
    text "5"
    action string "\e]6;10;;5;\a"
  end
  begin menuitem
    text "6"
    action string "\e]6;10;;6;\a"
  end
  begin menuitem
    text "7"
    action string "\e]6;10;;7;\a"
  end
  begin menuitem
    text "8"
    action string "\e]6;10;;8;\a"
  end
  begin menuitem
    text "9"
    action string "\e]6;10;;9;\a"
  end
  begin menuitem
    text "10"
    action string "\e]6;10;;10;\a"
  end
  begin menuitem
    text "11"
    action string "\e]6;10;;11;\a"
  end
  begin menuitem
    text "12"
    action string "\e]6;10;;12;\a"
  end
  begin menuitem
    text "13"
    action string "\e]6;10;;13;\a"
  end
  begin menuitem
    text "14"
    action string "\e]6;10;;14;\a"
  end
  begin menuitem
    text "15"
    action string "\e]6;10;;15;\a"
  end
  begin menuitem
    text "16"
    action string "\e]6;10;;16;\a"
  end
  begin menuitem
    text "17"
    action string "\e]6;10;;17;\a"
  end
  begin menuitem
    text "18"
    action string "\e]6;10;;18;\a"
  end
  begin menuitem
    text "19"
    action string "\e]6;10;;19;\a"
  end
  begin menuitem
    text "20"
    action string "\e]6;10;;20;\a"
  end
end
begin menu
  title "Move to Desktop"
  begin menuitem
    text "0"
    action string "\e]6;50;0;\a"
  end
  begin menuitem
    text "1"
    action string "\e]6;50;1;\a"
  end
  begin menuitem
    text "2"
    action string "\e]6;50;2;\a"
  end
  begin menuitem
    text "3"
    action string "\e]6;50;3;\a"
  end
  begin menuitem
    text "4"
    action string "\e]6;50;4;\a"
  end
  begin menuitem
    text "5"
    action string "\e]6;50;5;\a"
  end
  begin menuitem
    text "6"
    action string "\e]6;50;6;\a"
  end
  begin menuitem
    text "7"
    action string "\e]6;50;7;\a"
  end
end
begin menu
  title Terminal
  begin menuitem
    text "Toggles"
    action submenu "Toggles"
  end
  begin menuitem
    text "Keys"
    action submenu "Keys"
  end
  begin menuitem
    text "Scrollbar"
    action submenu "Scrollbar"
  end
  begin menuitem
    text "Move to Desktop..."
    action submenu "Move to Desktop"
  end
  -
  begin menuitem
    text "Steal Focus"
    rtext "Ctrl-Button1"
    action string "\e]5;\a"
  end
  begin menuitem
    text "Full Reset"
    action string "\ec"
  end
end

begin menu
  title Transparency
  begin menuitem
    text "Force Update"
    action string "\e]6;3\a"
  end
  begin menuitem
    text "Toggle Desktop Watching"
    action string "\e]6;4\a"
  end
  begin menuitem
    text "Toggle Transparency"
    action string "\e]6;0\a"
  end
end
begin menu
  title Tiled
  begin menuitem
    text "70's Marble"
    action string "\e]20;70s_marble.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "7m"
    action string "\e]20;7m.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Atoms"
    action string "\e]20;atoms.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Backwave"
    action string "\e]20;backwave.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Black Stone"
    action string "\e]20;blackstone.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Blue Ether"
    action string "\e]20;ether_blue.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Blue Marble"
    action string "\e]20;blue_marble.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Blue Maze"
    action string "\e]20;blue_maze.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Blue Monday"
    action string "\e]20;021.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Blue Puzzle"
    action string "\e]20;026.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Blue Rock"
    action string "\e]20;blue_rock.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Circuit"
    action string "\e]20;circuit.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Cyber Playground"
    action string "\e]20;cyber_bg.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Dark Marble"
    action string "\e]20;dark_marble.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Dimples"
    action string "\e]20;014.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Dirt"
    action string "\e]20;dirt.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Ether"
    action string "\e]20;ether.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Giger 1"
    action string "\e]20;giger1.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Giger 2"
    action string "\e]20;giger2.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Gray Matter"
    action string "\e]20;22.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Gray Waves"
    action string "\e]20;59.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Green Ether"
    action string "\e]20;ether_green.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Lava"
    action string "\e]20;004.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Mudslide"
    action string "\e]20;35.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Nebula"
    action string "\e]20;nebula.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "On Stage"
    action string "\e]20;lightb1.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Purple Clouds"
    action string "\e]20;7.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Purple Glass"
    action string "\e]20;purpgls.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Purple Rain"
    action string "\e]20;024.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Purple Stuff"
    action string "\e]20;purple_stuff.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Rainstorm"
    action string "\e]20;15.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Red Stucco"
    action string "\e]20;red_stucco.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Red Whisper"
    action string "\e]20;40.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Shale"
    action string "\e]20;shale.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Soft Marble"
    action string "\e]20;soft.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Space"
    action string "\e]20;space.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Starry Night"
    action string "\e]20;starry.jpg;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Whirlpool"
    action string "\e]20;015.jpg;0x0+0+0:tile\a"
  end
end
begin menu
  title Scaled
  begin menuitem
    text "After the Storm"
    action string "\e]20;after_the_storm.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Alien Spheres"
    action string "\e]20;alien_spheres.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Ascension"
    action string "\e]20;ascension.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Atlantis"
    action string "\e]20;atlantis.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Bladerunner"
    action string "\e]20;Bladerunner-bg.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Canyon"
    action string "\e]20;Canyon.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Cave Fire"
    action string "\e]20;Cavefire-bg.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Citidel"
    action string "\e]20;citidel.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Crater Lake"
    action string "\e]20;crater_lake.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Cronus"
    action string "\e]20;cronus.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Daughter"
    action string "\e]20;Daughter.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Dragon"
    action string "\e]20;Dragon.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "DVXVB"
    action string "\e]20;dvxvb.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Evocation"
    action string "\e]20;Evocation.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "The Fourth Day"
    action string "\e]20;fourthday.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Gaia"
    action string "\e]20;gaia.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Galleon"
    action string "\e]20;galleon.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Gorgon"
    action string "\e]20;gorgon.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Ice Moon"
    action string "\e]20;icemoon.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Lake of Fire"
    action string "\e]20;lake_of_fire.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Lighthouse"
    action string "\e]20;lighthouse.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Nebula"
    action string "\e]20;nebula.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Neopolis"
    action string "\e]20;Neopolis-horizon.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Night of the Dragon"
    action string "\e]20;night_of_the_dragon.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Planet A"
    action string "\e]20;planeta.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Pond"
    action string "\e]20;pond.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Poseidon"
    action string "\e]20;poseidon.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Ripple"
    action string "\e]20;ripple.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Roche Limit"
    action string "\e]20;roche_limit.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Silence"
    action string "\e]20;silence.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "The Taken Field"
    action string "\e]20;the_taken_field.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Urmane"
    action string "\e]20;urmane3.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Wasteland"
    action string "\e]20;wasteland.jpg;100x100+50+50\a"
  end
end
begin menu
  title Attrib
  begin menuitem
    text "Full Size"
    action string "\e]20;;100x100"
  end
  begin menuitem
    text "Normal Size"
    action string "\e]20;;0x0"
  end
  -
  begin menuitem
    text "Tiled"
    action string "\e]20;;:tile"
  end
  begin menuitem
    text "Scaled"
    action string "\e]20;;:scale"
  end
  begin menuitem
    text "Proportional Scale"
    action string "\e]20;;:propscale"
  end
  -
  begin menuitem
    text "Center"
    action string "\e]20;;=+50+50"
  end
  begin menuitem
    text "Top Left Corner"
    action string "\e]20;;=+0+0"
  end
  begin menuitem
    text "Bottom Right Corner"
    action string "\e]20;;=+100+100"
  end
end
begin menu
  title Pixmap
  begin menuitem
    text "None"
    action string "\e[m\e]20;;\a"
  end
  begin menuitem
    text "Toggle Viewport Mode"
    action string "\e]6;24\a"
  end
  begin menuitem
    text "Tiled"
    action submenu "Tiled"
  end
  begin menuitem
    text "Scaled"
    action submenu "Scaled"
  end
  -
  begin menuitem
    text "Attrib"
    action submenu "Attrib"
  end
end
begin menu
  title Brightness
  begin menuitem
    text "512 (200%)"
    action string "\e]6;1;image;brightness;512\a"
  end
  begin menuitem
    text "480 (188%)"
    action string "\e]6;1;image;brightness;480\a"
  end
  begin menuitem
    text "448 (175%)"
    action string "\e]6;1;image;brightness;448\a"
  end
  begin menuitem
    text "416 (163%)"
    action string "\e]6;1;image;brightness;416\a"
  end
  begin menuitem
    text "384 (150%)"
    action string "\e]6;1;image;brightness;384\a"
  end
  begin menuitem
    text "352 (138%)"
    action string "\e]6;1;image;brightness;352\a"
  end
  begin menuitem
    text "320 (125%)"
    action string "\e]6;1;image;brightness;320\a"
  end
  begin menuitem
    text "288 (113%)"
    action string "\e]6;1;image;brightness;288\a"
  end
  begin menuitem
    text "256 (100%)"
    action string "\e]6;1;image;brightness;256\a"
  end
  begin menuitem
    text "224 (88%)"
    action string "\e]6;1;image;brightness;224\a"
  end
  begin menuitem
    text "192 (75%)"
    action string "\e]6;1;image;brightness;192\a"
  end
  begin menuitem
    text "160 (63%)"
    action string "\e]6;1;image;brightness;160\a"
  end
  begin menuitem
    text "128 (50%)"
    action string "\e]6;1;image;brightness;128\a"
  end
  begin menuitem
    text "96 (38%)"
    action string "\e]6;1;image;brightness;96\a"
  end
  begin menuitem
    text "64 (25%)"
    action string "\e]6;1;image;brightness;64\a"
  end
  begin menuitem
    text "32 (13%)"
    action string "\e]6;1;image;brightness;32\a"
  end
  begin menuitem
    text "0 (0%)"
    action string "\e]6;1;image;brightness;0\a"
  end
end
begin menu
  title Contrast
  begin menuitem
    text "512 (200%)"
    action string "\e]6;1;image;contrast;512\a"
  end
  begin menuitem
    text "480 (188%)"
    action string "\e]6;1;image;contrast;480\a"
  end
  begin menuitem
    text "448 (175%)"
    action string "\e]6;1;image;contrast;448\a"
  end
  begin menuitem
    text "416 (163%)"
    action string "\e]6;1;image;contrast;416\a"
  end
  begin menuitem
    text "384 (150%)"
    action string "\e]6;1;image;contrast;384\a"
  end
  begin menuitem
    text "352 (138%)"
    action string "\e]6;1;image;contrast;352\a"
  end
  begin menuitem
    text "320 (125%)"
    action string "\e]6;1;image;contrast;320\a"
  end
  begin menuitem
    text "288 (113%)"
    action string "\e]6;1;image;contrast;288\a"
  end
  begin menuitem
    text "256 (100%)"
    action string "\e]6;1;image;contrast;256\a"
  end
  begin menuitem
    text "224 (88%)"
    action string "\e]6;1;image;contrast;224\a"
  end
  begin menuitem
    text "192 (75%)"
    action string "\e]6;1;image;contrast;192\a"
  end
  begin menuitem
    text "160 (63%)"
    action string "\e]6;1;image;contrast;160\a"
  end
  begin menuitem
    text "128 (50%)"
    action string "\e]6;1;image;contrast;128\a"
  end
  begin menuitem
    text "96 (38%)"
    action string "\e]6;1;image;contrast;96\a"
  end
  begin menuitem
    text "64 (25%)"
    action string "\e]6;1;image;contrast;64\a"
  end
  begin menuitem
    text "32 (13%)"
    action string "\e]6;1;image;contrast;32\a"
  end
  begin menuitem
    text "0 (0%)"
    action string "\e]6;1;image;contrast;0\a"
  end
end
begin menu
  title Gamma
  begin menuitem
    text "512 (200%)"
    action string "\e]6;1;image;gamma;512\a"
  end
  begin menuitem
    text "480 (188%)"
    action string "\e]6;1;image;gamma;480\a"
  end
  begin menuitem
    text "448 (175%)"
    action string "\e]6;1;image;gamma;448\a"
  end
  begin menuitem
    text "416 (163%)"
    action string "\e]6;1;image;gamma;416\a"
  end
  begin menuitem
    text "384 (150%)"
    action string "\e]6;1;image;gamma;384\a"
  end
  begin menuitem
    text "352 (138%)"
    action string "\e]6;1;image;gamma;352\a"
  end
  begin menuitem
    text "320 (125%)"
    action string "\e]6;1;image;gamma;320\a"
  end
  begin menuitem
    text "288 (113%)"
    action string "\e]6;1;image;gamma;288\a"
  end
  begin menuitem
    text "256 (100%)"
    action string "\e]6;1;image;gamma;256\a"
  end
  begin menuitem
    text "224 (88%)"
    action string "\e]6;1;image;gamma;224\a"
  end
  begin menuitem
    text "192 (75%)"
    action string "\e]6;1;image;gamma;192\a"
  end
  begin menuitem
    text "160 (63%)"
    action string "\e]6;1;image;gamma;160\a"
  end
  begin menuitem
    text "128 (50%)"
    action string "\e]6;1;image;gamma;128\a"
  end
  begin menuitem
    text "96 (38%)"
    action string "\e]6;1;image;gamma;96\a"
  end
  begin menuitem
    text "64 (25%)"
    action string "\e]6;1;image;gamma;64\a"
  end
  begin menuitem
    text "32 (13%)"
    action string "\e]6;1;image;gamma;32\a"
  end
  begin menuitem
    text "0 (0%)"
    action string "\e]6;1;image;gamma;0\a"
  end
end
begin menu
  title Background
  begin menuitem
    text "Transparency"
    action submenu "Transparency"
  end
  begin menuitem
    text "Pixmap"
    action submenu "Pixmap"
  end
  begin menuitem
    text "Brightness"
    action submenu "Brightness"
  end
  begin menuitem
    text "Contrast"
    action submenu "Contrast"
  end
  begin menuitem
    text "Gamma"
    action submenu "Gamma"
  end
end

# HOST_ITEM(protocol, hostname [, ip])
define(HOST_ITEM, `begin menuitem
    text "$2"
    action string "\e]0;$2 $1\a\e]7;echo:$1 '`ifelse($3, `', `$2', `$3')'`\r\a"
  end')
# ALIEN_MENU(protocol)
define(ALIEN_MENU, `begin menu
  title "Alien Cluster $1"
  HOST_ITEM(`$1', `apone')
  HOST_ITEM(`$1', `ash')
  HOST_ITEM(`$1', `bishop')
  HOST_ITEM(`$1', `burke')
  HOST_ITEM(`$1', `dallas')
  HOST_ITEM(`$1', `drake')
  HOST_ITEM(`$1', `ripley')
  HOST_ITEM(`$1', `view1-mp')
  HOST_ITEM(`$1', `vob1-mp')
  HOST_ITEM(`$1', `vob2-mp')
end')
define(IT_MENU, `begin menu
  title "IT Hosts $1"
  HOST_ITEM(`$1', `allen')
  HOST_ITEM(`$1', `babylon4')
  HOST_ITEM(`$1', `icarus')
  HOST_ITEM(`$1', `orwell')
  HOST_ITEM(`$1', `phantom')
  HOST_ITEM(`$1', `starfury')
  HOST_ITEM(`$1', `viper')
  HOST_ITEM(`$1', `whitestar')
end')
define(COM_MENU, `begin menu
  title "3Com $1"
  HOST_ITEM(`$1', `bkup-u2')
  HOST_ITEM(`$1', `bkup-us')
  HOST_ITEM(`$1', `corsys1')
  HOST_ITEM(`$1', `dmc-mp')
  HOST_ITEM(`$1', `dw-dev')
  HOST_ITEM(`$1', `dw1-uw')
  HOST_ITEM(`$1', `dw2-mp')
  HOST_ITEM(`$1', `firegate')
  HOST_ITEM(`$1', `hicks')
  HOST_ITEM(`$1', `hp-carp')
  HOST_ITEM(`$1', `hp-sales')
  HOST_ITEM(`$1', `hp9000')
  HOST_ITEM(`$1', `hprpc1', `149.112.166.42')
  HOST_ITEM(`$1', `hprpc2', `149.112.166.43')
  HOST_ITEM(`$1', `intergate')
  HOST_ITEM(`$1', `lnnsdintra1')
  HOST_ITEM(`$1', `mailgate')
  HOST_ITEM(`$1', `mwdev1')
  HOST_ITEM(`$1', `mwdev2')
  HOST_ITEM(`$1', `mwdev3')
  HOST_ITEM(`$1', `mwdocs1')
  HOST_ITEM(`$1', `mwprod1')
  HOST_ITEM(`$1', `mwprod2')
  HOST_ITEM(`$1', `mwprod3')
  HOST_ITEM(`$1', `netscop')
  HOST_ITEM(`$1', `notes-mp')
  HOST_ITEM(`$1', `oraweb1')
  HOST_ITEM(`$1', `pcdprod')
  HOST_ITEM(`$1', `prod-mp')
  HOST_ITEM(`$1', `rdpvcs')
  HOST_ITEM(`$1', `rdsgi1-mp')
  HOST_ITEM(`$1', `recov-mp')
  HOST_ITEM(`$1', `ren')
  HOST_ITEM(`$1', `scop-us')
  HOST_ITEM(`$1', `ship-eg')
  HOST_ITEM(`$1', `ship-mp')
  HOST_ITEM(`$1', `stimpy')
  HOST_ITEM(`$1', `test-mp')
  HOST_ITEM(`$1', `townesquare')
  HOST_ITEM(`$1', `ussk1rdu1')
  HOST_ITEM(`$1', `uw-inet')
  HOST_ITEM(`$1', `webmw')
end')
define(EXT_MENU, `begin menu
  title "External $1"
  HOST_ITEM(`$1', `foobar.com')
end')

define(PROTOCOL_MENU, `begin menu
  title "$1"
  begin menuitem
    text "Alien Cluster"
    action submenu "Alien Cluster $1"
  end
  begin menuitem
    text "IT Hosts"
    action submenu "IT Hosts $1"
  end
  begin menuitem
    text "3Com"
    action submenu "3Com $1"
  end
  begin menuitem
    text "External"
    action submenu "External $1"
  end
end')
define(DO_PROTOCOL, `ALIEN_MENU($1)
IT_MENU($1)
COM_MENU($1)
EXT_MENU($1)
PROTOCOL_MENU($1)')

DO_PROTOCOL(ssh)
DO_PROTOCOL(rlogin)
DO_PROTOCOL(telnet)
DO_PROTOCOL(ftp)

begin menu
  title Chooser
  ECHO_ITEM(`New Eterm Window', `Eterm &\r')
  -
  SUBMENU_ITEM(`ssh')
  SUBMENU_ITEM(`rlogin')
  SUBMENU_ITEM(`telnet')
  SUBMENU_ITEM(`ftp')
end

# This is the menu that gets called by Ctrl-Button3
begin menu
  title Eterm
  SUBMENU_ITEM(Chooser)
  -
  SUBMENU_ITEM(Font)
  SUBMENU_ITEM(Background)
  SUBMENU_ITEM(Terminal)
  -
  STRING_ITEM(`Version', `\e[8n')
  STRING_ITEM(`Status', `\e[9n')
  separator
  STRING_ITEM(`Save Settings...', `\e]6;71\a')
  STRING_ITEM(`Exit', `\e]6;70\a')
end
