#!/bin/sh # MetaCard 2.4 stack # The following is not ASCII text, # so now would be a good time to q out of more exec mc $0 "$@" Untitled 1 1 b s 9 @ s 9 themenus i B cREVGeneral revUniqueID 1012028647662 Edit ŋU--The following menuPick handler was generated by the Menu Manager. on menuPick pWhich switch pWhich case "Cut" cut --Insert script for Cut menu item here break case "Copy" copy --Insert script for Copy menu item here break case "Paste" --Insert script for Paste menu item here if the clipboard is "text" then paste break case "Clear" --Insert script for Clear menu item here delete the selectedChunk break case "Select All" --Insert script for Clear menu item here if the focusedobject contains "field" then select text of the focusedobject end if break end switch end menuPick 8 /Cu&t/X &Copy/C &Paste/V Clea&r - Select &All/A cREVGeneral scriptChecksum :_0ݠ(> bookmarks handlerList menuPickscriptSelection prevHandler menuPicktempScript script
--The following menuPick handler was generated by the Menu Manager.
on menuPick pWhich
switch pWhich
case "Cut"
cut
--Insert script for Cut menu item here
break
case "Copy"
copy
--Insert script for Copy menu item here
break
case "Paste"
--Insert script for Paste menu item here
if the clipboard is "text" then paste
break
case "Clear"
--Insert script for Clear menu item here
delete the selectedChunk
break
case "Select All"
--Insert script for Clear menu item here
if the focusedobject contains "field" then
select text of the focusedobject
end if
break
end switch
end menuPick
File ŋU --The following menuPick handler was generated by the Menu Manager. on menuPick pWhich switch pWhich case "Quit" if not exists(stack "revMenuBar") then quit end if end switch end menuPick &Quit/Q cREVGeneral scriptChecksum FQ7%"4;pW bookmarks handlerList menuPickscriptSelection char 182 to 181prevHandler menuPicktempScript script--The following menuPick handler was generated by the Menu Manager.
on menuPick pWhich
switch pWhich
case "Quit"
if not exists(stack "revMenuBar") then
quit
end if
end switch
end menuPick