AddToMenu Top 
	f.disk-space "%.4gMb /" / green=:5 yellow=5:3 orange=3:1 red=1:
	f.panel "FTP .." [ I=ftp.xpm ] file-getter
	f.menu "Essentials" Games
EndMenu

AddToMenu Help-menu
	f.separator ""
	f.help-file "rTc manual" /usr/users/richardo/src/rtc-2.0/doc/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
