#!/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 "$@" Pointer `on preopenstack palette this stack set the style of this stack to palette end preopenstack ? W Geneva U Geneva cREVGeneral scriptChecksum &zP}Q`t debugObjects 1button id 1004 of card id 1002 of stack "Pointer" bookmarks handlerList preopenstackscriptSelection char 95 to 94prevHandler preopenstacktempScript script
on preopenstack
palette this stack
set the style of this stack to palette
end preopenstack
P on resetButtons put the number of buttons on this card into temp repeat with i = 1 to the number of buttons set the highlite of button i to false end repeat end resetButtons cREVGeneral scriptChecksum L].A=' bookmarks breakPoints handlerList resetButtonsscriptSelection char 184 to 183prevHandler resetButtonstempScript scripton resetButtons
put the number of buttons on this card into temp
repeat with i = 1 to the number of buttons
set the highlite of button i to false
end repeat
end resetButtons
Copy hands to current card Ex on mouseUP resetButtons put the topstack into tStackName put the number of images in tStackName into tNum repeat with i = 1 to tNum put the short name of image i of stack tStackName & return after tList end repeat if "PointerFingerLeft.gif"is not in tList then copy image "PointerFingerLeft.gif" to tStackName end if if "PointerFingerRight.gif" is not in tList then copy image "PointerFingerRight.gif" to tStackName end if set the highlite of me to true answer "Copy complete." with "OK" end mouseUP cREVGeneral scriptChecksum :+w9R@%le뢩handlerList mouseUPbreakPoints 3scriptSelection char 526 to 525revUniqueID 1085353007270 bookmarks tempScript prevHandler mouseUPscript /on mouseUP
resetButtons
put the topstack into tStackName
put the number of images in tStackName into tNum
repeat with i = 1 to tNum
put the short name of image i of stack tStackName & return after tList
end repeat
if "PointerFingerLeft.gif"is not in tList then
copy image "PointerFingerLeft.gif" to tStackName
end if
if "PointerFingerRight.gif" is not in tList then
copy image "PointerFingerRight.gif" to tStackName
end if
set the highlite of me to true
answer "Copy complete." with "OK"
end mouseUP
Set left pointers Ex on mouseUP put field "setPointerWords" into tSetScript put quote&"left""e into word 2 of line 2 of tSetScript resetButtons put the topstack into tStackName go to stack tStackName if there is an image "PointerFingerLeft.gif" then hide image "pointerFingerLeft.gif" end if if there is an image "pointerFingerRight.gif" then hide image "pointerFingerRight.gif" end if put the selectedObject into tField if "field" is not in tField then beep answer "You must first select the field." with "OK" choose the pointer tool exit mouseUP end if choose the browse tool set the locktext of tField to true set the script of tField to tSetScript set the highlite of me to true end mouseUP - cREVGeneral scriptChecksum 1l:-HI.breakPoints 2handlerList mouseUPscriptSelection char 593 to 592 bookmarks revUniqueID 1085353007271prevHandler mouseUPtempScript script ron mouseUP
put field "setPointerWords" into tSetScript
put quote&"left""e into word 2 of line 2 of tSetScript
resetButtons
put the topstack into tStackName
go to stack tStackName
if there is an image "PointerFingerLeft.gif" then
hide image "pointerFingerLeft.gif"
end if
if there is an image "pointerFingerRight.gif" then
hide image "pointerFingerRight.gif"
end if
put the selectedObject into tField
if "field" is not in tField then
beep
answer "You must first select the field." with "OK"
choose the pointer tool
exit mouseUP
end if
choose the browse tool
set the locktext of tField to true
set the script of tField to tSetScript
set the highlite of me to true
end mouseUP
Set right pointers Ex on mouseUP resetbuttons put field "setPointerWords" into tSetScript put quote&"right""e into word 2 of line 2 of tSetScript put the topstack into tStackName go to stack tStackName put the selectedObject into tField if tField is "" then beep answer "You must first select the field." with "OK" choose the pointer tool exit mouseUP end if if there is an image "PointerFingerLeft.gif" then hide image "pointerFingerLeft.gif" end if if there is an image "pointerFingerRight.gif" then hide image "pointerFingerRight.gif" end if choose the browse tool set the locktext of tField to true set the script of tField to tSetScript set the highlite of me to true end mouseUP S cREVGeneral scriptChecksum k ~HXhandlerList mouseUPbreakPoints 3 16scriptSelection char 728 to 727revUniqueID 1085353007272 bookmarks tempScript prevHandler mouseUPscripton mouseUP
resetbuttons
put field "setPointerWords" into tSetScript
put quote&"right""e into word 2 of line 2 of tSetScript
put the topstack into tStackName
go to stack tStackName
put the selectedObject into tField
if tField is "" then
beep
answer "You must first select the field." with "OK"
choose the pointer tool
exit mouseUP
end if
if there is an image "PointerFingerLeft.gif" then
hide image "pointerFingerLeft.gif"
end if
if there is an image "pointerFingerRight.gif" then
hide image "pointerFingerRight.gif"
end if
choose the browse tool
set the locktext of tField to true
set the script of tField to tSetScript
set the highlite of me to true
end mouseUP
Use pointers Ex ton mouseUP resetButtons put field "usePointerWords" into tUseScript put the topstack into tStackName go to stack tStackName if there is an image "PointerFingerLeft.gif" then hide image "pointerFingerLeft.gif" end if if there is an image "pointerFingerRight.gif" then hide image "pointerFingerRight.gif" end if put the selectedObject into tField if tField is "" then beep answer "You must first select the field." with "OK" choose the pointer tool exit mouseUP end if choose the browse tool set the script of tField to tUseScript set the highLite of me to true end mouseUP z cREVGeneral scriptChecksum 9)P0rbreakPoints 3 16handlerList mouseUPscriptSelection char 615 to 614 bookmarks revUniqueID 1085353007273prevHandler mouseUPtempScript scripton mouseUP
resetButtons
put field "usePointerWords" into tUseScript
put the topstack into tStackName
go to stack tStackName
if there is an image "PointerFingerLeft.gif" then
hide image "pointerFingerLeft.gif"
end if
if there is an image "pointerFingerRight.gif" then
hide image "pointerFingerRight.gif"
end if
put the selectedObject into tField
if tField is "" then
beep
answer "You must first select the field." with "OK"
choose the pointer tool
exit mouseUP
end if
choose the browse tool
set the script of tField to tUseScript
set the highLite of me to true
end mouseUP
Empty pointer properties EpEon mouseUP resetbuttons put the topstack into tStackName go to stack tStackName put the selectedObject into tField if tField is "" then beep answer "You must first select the field." with "OK" choose the pointer tool exit mouseUP else set the script of tField to "" set the customproperties of tField to "" select text of tField set the textstyle of the selectedChunk to plain set the foregroundcolor of the selectedchunk to black select empty end if choose the browse tool set the highlite of me to true end mouseUP cREVGeneral scriptChecksum 7Q_r handlerList mouseUPbreakPoints 19 32scriptSelection char 581 to 580 bookmarks revUniqueID 1085353007274prevHandler mouseUPtempScript scripton mouseUP
resetbuttons
put the topstack into tStackName
go to stack tStackName
put the selectedObject into tField
if tField is "" then
beep
answer "You must first select the field." with "OK"
choose the pointer tool
exit mouseUP
else
set the script of tField to ""
set the customproperties of tField to ""
select text of tField
set the textstyle of the selectedChunk to plain
set the foregroundcolor of the selectedchunk to black
select empty
end if
choose the browse tool
set the highlite of me to true
end mouseUP
info ) T cREVGeneral revUniqueID 1085353150807 bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0script The two fields below contain the scripts that are placed in the user's field, which script depends on whether the pointer tool is on or off. You can hide these fields in this palette stack. SetPointerWords )` p J cREVGeneral revUniqueID 1085353150808 on mouseUP put "Left" into tHandedness 9 put "pointerFinger" & tHandedness&".gif" into theImage ) set the layer of image theImage to top select the clickChunk & put the selectedchunk into theChunk & if theChunk is "" then exit mouseUP 6 set the textStyle of the selectedChunk to underline @ @ @ ( 1 set the textColor of the selectedChunk to blue @ @ @ ) put theChunk into ChunkCode # replace " " with "" in ChunkCode select empty wait until the mouseclick put the clickLoc into tLoc # put comma&tHandedness after tLoc " set the ChunkCode of me to tLoc if tloc is not empty then if "left" is in tLoc then I set the topleft of image theImage to item 1 of tLoc,item 2 of tLoc M else set the topright of image theImage to item 1 of tLoc,item 2 of tLoc end if show image theImage end mouseUP ` q H UsePointerWords )` G cREVGeneral revUniqueID 1085353150809 bookmarks handlerList tempScript prevHandler scriptSelection char 26 to 25script on mouseMove $ put the mouseChunk into ChunkCode # replace " " with "" in ChunkCode $ put the chunkCode of me into tLoc if tloc is empty then ' hide image "pointerFingerLeft.gif" ( hide image "pointerFingerRight.gif" exit mouseMove end if if "left" is in tLoc then . put "pointerFingerLeft.gif" into theImage G set the topleft of image theImage to item 1 of tLoc,item 2 of tLoc ( hide image "pointerFingerRight.gif" else / put "pointerFingerRight.gif" into theImage H set the topright of image theImage to item 1 of tLoc,item 2 of tLoc ' hide image "pointerFingerLeft.gif" end if show image theImage pass mouseMove end mouseMove on mouseEnter % hide image "pointerFingerLeft.gif" & hide image "pointerFingerRight.gif" end mouseEnter on mouseLeave % hide image "pointerFingerLeft.gif" & hide image "pointerFingerRight.gif" end mouseLeave ` E Help Ep Qon mouseUP show stack "Pointer help" go to stack "pointer help" end mouseUP cREVGeneral scriptChecksum A;/*lbreakPoints 19 32handlerList mouseUPscriptSelection char 68 to 67revUniqueID 1085354091422 bookmarks tempScript prevHandler mouseUPscripton mouseUP
show stack "Pointer help"
go to stack "pointer help"
end mouseUP
PointerFingerRight.gif V , $PNG IHDR V , OP pHYs gAMA cHRM m s v σ 4 }@ IDATx{kp[.ZKZKd)/lǗ886Nb $Mh@;)h)LrΡÔfR`Z:PBq'-_%ٺߖZ9 %вo&^z{}<