38 lines
626 B
Plaintext
38 lines
626 B
Plaintext
# Suspend - MPW Shell Suspend File
|
|
#
|
|
# Copyright Apple Computer, Inc. 1986-1989
|
|
# All Rights Reserved.
|
|
|
|
Begin
|
|
|
|
# Save all variables, exports, aliases, and menus.
|
|
|
|
Set
|
|
Export
|
|
Alias
|
|
AddMenu
|
|
|
|
# Save the current directory.
|
|
|
|
Quote Directory `Directory`
|
|
|
|
# Save the windows.
|
|
|
|
Windows -o
|
|
|
|
# Save projector state.
|
|
|
|
Echo Set Exit 0
|
|
mountProject
|
|
(checkoutdir -r -m || set status 0) ≥ dev:null
|
|
Echo "Project " "`Project -q`"
|
|
Echo Set Exit 1
|
|
|
|
# Write it all to a temporary file.
|
|
|
|
End > "{ShellDirectory}MPW.SuspendState"
|
|
|
|
# User tasks.
|
|
|
|
Save "{Worksheet}"
|