mirror of
https://github.com/elliotnunn/BuildCubeE.git
synced 2026-01-23 04:16:18 +00:00
51 lines
1.9 KiB
Plaintext
51 lines
1.9 KiB
Plaintext
# 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
|
|
|