Menu Top
	f.menu		"System"	[ F= ] system
	f.menu		"Other Hosts" [ H=other-hosts I=term.xpm ] hosts
	f.menu		"Apps"		[ F=rtc.html ] apps
	f.clock		"GMT %I:%M:%S %p"	[ T=1s ]
	f.mail-box 	"Mail: %2d" [ T=1 ] /usr/spool/mail/$USER
	f.disk-space 	"%.4gMb ~" $HOME green=:40 yellow=40:10 orange=10:5 red=5:
	f.panel "FTP .." [ I=ftp.xpm ] file-getter
	f.menu "Essentials" Games
	f.help-menu	"Help" Help-menu	
EndMenu

Menu Help-menu
	f.help-on-context "On Context"
EndMenu

Menu system
	f.label		"System"
	f.separator 	""
	f.button	"Lock Screen"	[ I=xlock.xpm ] xlock
	f.separator 	""
	f.exit		"Quit"	
EndMenu

Menu hosts
	f.label		"Remote Hosts"
	f.separator 	""
	f.button	"arthur the toaster" /usr/local/bin/rcmd arthur-the-toaster
	f.button	"morgana the jotter" /usr/local/bin/rcmd morgana-the-jotter
EndMenu

Menu apps
	f.button	"Word Processing"	[ T=10s N=1 ] xterm -title "WordProcessor"
	f.button	"Spreadsheet"		[ N=1 ] xterm -title "SpreadSheet"
	f.button	"XV"			[ N=1 ] xv
EndMenu

# name to help lookup

HelpText other-hosts

This lists a number of other machines 
that you may log into.

EndHelp

AddToMenu Help-menu
	f.separator ""
	f.help-file "rTc manual" rtc.html
EndMenu

Menu Games
	f.label "Games"
	f.separator ""
	f.panel "X-Boing" xboing
EndMenu

Panel file-getter
	f.command	echo "ftp\n@EMAIL\nbin\nget @GETFILE @SAVEFILE\n"  | ftp @HOST

	f.text "Get filename" =GETFILE
	f.file "Save Filename" =SAVEFILE
	f.text "Password" [D=vanye@robots.ox.ac.uk ] =EMAIL

	f.list "Site" [D=sunsite.unc.edu ] =HOST {sunsite.unc.edu} {src.doc.ic.ac.uk} {ftp.x.org} {ftp.uu.net} {ftp.sgi.com} 

	
EndPanel

Panel xboing
	f.command xboing @MAP -speed @SPEED -startlevel @LEVEL -nograb -nickname @NAME

	f.text "Pseudonym" [ D=vanye ] =NAME
	f.toggle "Colour Map" [ D=-usedefcmap ] =MAP {shared,-usedefcmap} {private,}
	f.scale "Speed" [ D=2 ] =SPEED {1 9 2}
	f.scale "Start at level" [ D=6 ] =LEVEL {1 55}

EndPanel
