40 lines
1.5 KiB
Plaintext
40 lines
1.5 KiB
Plaintext
# UserStartup - MPW Shell UserStartup File
|
|
#
|
|
# Copyright Apple Computer, Inc. 1985-1988
|
|
# 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.
|
|
|
|
# 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…' ∂
|
|
'(Project "`GetListItem -s -r 10 ∂`MountProject -pp -s -r∂` -d "∂`Project -q∂`" ∂
|
|
-m "Select a new current project:" -q`") ∑ 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
|
|
|