#	UserStartup - MPW Shell UserStartup File
#
#	Copyright Apple Computer, Inc. 1985-1988, 1991, 1993
#	All Rights Reserved.

#	This file (UserStartup) is executed from the Startup file, and can be used
#	to override definitions made in Startup, or to define additional variables,
#	exports, and aliases.  UserStartup may also be used to define menu items,
#	open windows, etc.	The file should be located in the directory containing
#	the MPW Shell or in the MPW preferences folder.

#	Create the Project menu

	AddMenu Project 'Check In…' 'CheckIn -w ∑∑ "{Worksheet}"'
	AddMenu Project 'Check Out…' 'CheckOut -w ∑∑ "{Worksheet}"'
 	AddMenu Project "(-" ""
	AddMenu Project 'New Project…' 'NewProject -w ∑∑ "{Worksheet}"'
	AddMenu Project 'Mount Project…' 'MountProject… ∑∑ "{Worksheet}"'

	AddMenu Project 'Set Project…' ∂
		'(if "`Project -q`"; Project "`GetListItem -s -r 10 ∂
		  ∂`MountProject -pp -s -r∂` -d "∂`Project -q∂`" ∂
		 -m "Select a new current project:" -q`"; else; ∂
		  Alert "There are currently no projects mounted."; end) ∑ Dev:Null'

 	AddMenu Project "(-" ""
	AddMenu Project 'Compare Active…' 'CompareRevisions "{Active}" ∑∑ "{Worksheet}"'
	AddMenu Project 'Merge Active…' 'MergeBranch "{Active}" ∑∑ "{Worksheet}"'

#	Create the Directory menu

#	The parameters to DirectoryMenu become the initial list of directories
#	in the Directory menu.  The parameters below specify each of the 
#	Examples directories, and the current directory.  Replace them with
#	your favorite directories.

	DirectoryMenu `(Files -d -i "{MPW}"Examples:≈ || Set Status 0) ≥ Dev:Null` ∂
		`Directory`	

#	Create the Build Menu

	BuildMenu


# 	Add MPW Help to the Help menu.
#	Since this option is only supported in MPW Shell 3.3 and later, we
#	ignore any errors which may be reported by earlier shells.

	AddMenu -help 'MPW Help' 'Open "{worksheet}"; Help ∑∑ "{worksheet}"' ∑ Dev:Null || set Status 0
	
