mirror of
https://github.com/elliotnunn/BuildCubeE.git
synced 2026-01-23 19:16:18 +00:00
54 lines
1.5 KiB
Plaintext
54 lines
1.5 KiB
Plaintext
# DirectoryMenu - create the Directory menu
|
|
#
|
|
# Usage:
|
|
# DirectoryMenu directory…
|
|
#
|
|
# DirectoryMenu creates the menu shown below. The directory… parameter
|
|
# specifies the initial list of directories that appear in the menu.
|
|
#
|
|
# Directory
|
|
#
|
|
# Show Directory
|
|
# Set Directory…
|
|
# ----------------
|
|
# <directory…>
|
|
#
|
|
#
|
|
# Copyright Apple Computer, Inc. 1987 - 1990, 1992 - 1993
|
|
# All rights reserved.
|
|
|
|
Set Echo 0
|
|
Set Exit 0
|
|
DeleteMenu Directory ≥ Dev:Null
|
|
AddMenu Directory 'Show Directory' ∂
|
|
'(Echo "The default directory is ∂n"; Directory) | Alert -s'
|
|
AddMenu directory 'Set Directory…' ∂
|
|
'set __OldExit__ "{exit}"; ∂
|
|
unset exit; ∂
|
|
Set __Directory__ "`GetFileName -d; set __tmpStatus__ "{status}"`"; ∂
|
|
if "{__tmpStatus__}" == 0; ∂
|
|
SetDirectory {__Directory__} > "{ShellDirectory}"MPW.Errors ≥ Dev:StdOut; ∂
|
|
if "{status}" != 0; ∂
|
|
Alert < "{ShellDirectory}"MPW.Errors; ∂
|
|
end; ∂
|
|
end; ∂
|
|
set exit "{__OldExit__}"; ∂
|
|
unset __Directory__ __OldExit__ __tmpStatus__'
|
|
AddMenu Directory '(-' ''
|
|
For directory in {"Parameters"}
|
|
Set directory "`Files -i -fr -q "{directory}" ≥ Dev:Null || Echo "{directory}"`"
|
|
|
|
if !`Evaluate "{directory}" =~ /?«0,64»/` # longer that 64 bytes?
|
|
Unset ®1 ; Unset ®2
|
|
(Evaluate "{directory}" =~ /(?«30»)®1≈(?«33»)®2/ ) ∑ dev:null
|
|
Set menuname "{®1}"'…'"{®2}"
|
|
else
|
|
Set menuname "{directory}"
|
|
end
|
|
|
|
AddMenu Directory "{menuname}" ∂
|
|
'Directory "'"{directory}"'" > "{ShellDirectory}"MPW.Errors ≥ Dev:StdOut ∂
|
|
|| Alert < "{ShellDirectory}"MPW.Errors'
|
|
End
|
|
Exit 0
|