REVO2700 Pointer R `on preopenstack palette this stack set the style of this stack to palette end preopenstack W Geneva U Geneva cREVGeneral scriptChecksum &zP}Q`t bookmarks debugObjects 1button id 1004 of card id 1002 of stack "Pointer"handlerList preopenstacktempScript prevHandler preopenstackscriptSelection char 95 to 94script
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 handlerList resetButtonsbreakPoints tempScript prevHandler resetButtonsscriptSelection char 184 to 183scripton 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 R cREVGeneral scriptChecksum :+w9R@%le뢩breakPoints 3handlerList mouseUPscriptSelection char 526 to 525 bookmarks revUniqueID 1085353007270prevHandler mouseUPtempScript script /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 - T cREVGeneral scriptChecksum 1l:-HI.handlerList mouseUPbreakPoints 2scriptSelection char 593 to 592revUniqueID 1085353007271 bookmarks tempScript prevHandler mouseUPscript 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 T cREVGeneral scriptChecksum k ~HXbreakPoints 3 16handlerList mouseUPscriptSelection char 728 to 727 bookmarks revUniqueID 1085353007272prevHandler mouseUPtempScript scripton 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 V cREVGeneral scriptChecksum 9)P0rhandlerList mouseUPbreakPoints 3 16scriptSelection char 615 to 614revUniqueID 1085353007273 bookmarks tempScript prevHandler mouseUPscripton 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 V cREVGeneral scriptChecksum 7Q_r breakPoints 19 32handlerList mouseUPscriptSelection char 581 to 580revUniqueID 1085353007274 bookmarks tempScript prevHandler mouseUPscripton 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 bookmarks revUniqueID 1085353150807handlerList scriptSelection char 1 to 0prevHandler tempScript script 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 bookmarks revUniqueID 1085353150809handlerList scriptSelection char 26 to 25prevHandler tempScript script 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 V cREVGeneral scriptChecksum A;/*lhandlerList mouseUPbreakPoints 19 32scriptSelection char 68 to 67 bookmarks revUniqueID 1085354091422prevHandler mouseUPtempScript scripton 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{}<