"Smalltalk Launcher" MENU
	"Browsers"	MENU
		"system"		DEFAULT	exec $HOME/bin/rdoit localhost 8004 "[BrowserView openOn: SystemOrganization] fork"
		"class"			exec $HOME/bin/rdoit localhost 8004 "[Browser newPickClass] fork"
		"senders"		exec $HOME/bin/rdoit localhost 8004 "[Smalltalk promptThenBrowseCalls] fork"
		"implementors"		exec $HOME/bin/rdoit localhost 8004 "[Smalltalk promptThenBrowseImplementors] fork"
	"Browsers"	END PIN
	"Utilities"	MENU
		"file list"		DEFAULT exec $HOME/bin/rdoit localhost 8004 "[FileBrowser open] fork"
		"file editor"		exec $HOME/bin/rdoit localhost 8004 "[FileBrowser openPrompted] fork"
		"system workspace"	exec $HOME/bin/rdoit localhost 8004 "[StringHolderView openSystemWorkspace] fork"
		"transcript"		exec $HOME/bin/rdoit localhost 8004 "[TextCollectorView open: Transcript label: 'System Transcript'] fork"
		"workspace"		exec $HOME/bin/rdoit localhost 8004 "[StringHolderView open] fork"
	"Utilities"	END PIN
	"Changes"	MENU
		"open change list"	DEFAULT exec $HOME/bin/rdoit localhost 8004 "[ChangeListView open] fork"
		"inspect ChangeSet"	exec $HOME/bin/rdoit localhost 8004 "[Smalltalk changes inspect] fork"
		"file out ChangeSet"	exec $HOME/bin/rdoit localhost 8004 "[Filename fileOutChanges] fork"
		"empty ChangeSet"	exec $HOME/bin/rdoit localhost 8004 "[(DialogView confirm: 'Really empty the current change set?') ifTrue: [Smalltalk noChanges]] fork"
	"Changes"	END PIN
	"Special"	MENU
		"refresh windows"	DEFAULT REFRESH	# exec $HOME/bin/rdoit localhost 8004 "[ScheduledControllers restore] fork"
		"collect garbage"	exec $HOME/bin/rdoit localhost 8004 "[ObjectMemory verboseCompactingGC] fork"
		"open project"		exec $HOME/bin/rdoit localhost 8004 "[Project openViewOn: Project new] fork"
		"exit project"		exec $HOME/bin/rdoit localhost 8004 "[Project current exit] fork"
		"save"			exec $HOME/bin/rdoit localhost 8004 "[Smalltalk saveDialog] fork"
	"Special"	END PIN
	"Quit"				exec $HOME/bin/rdoit localhost 8004 "[Smalltalk quitDialog] fork"
"Smalltalk Launcher" END PIN