||THE HYPERCARD CENTER
Note: This is a work in progress and will be formatting errors. Read more about the project on the home page.
Value returned: a return-separated list of the full path names for all the open stacks, in front-to-back order
put longNamesToShort(the stacks) into theStacks
answer "The stacks currently open are:" & return & return & theStacks
function longNamesToShort longStackList
put empty into shortStackList
set the itemDelimiter to ":"
repeat with lineNum = 1 to the number of lines in longStackList
put last item of line lineNum of longStackList into ¬
line lineNum of shortStackList
set itemDelimiter to comma
« sqrt | HyperTalk Reference
| stackSpace »
(March 24, 2022)
Switch to Modern View