" into tXML
set the xmlText of fld "display" of stack "revHappySnap" to tXML
else
put "" into fld "display" of stack "revHappySnap"
end if
end upDateImagePanel
on resizeStack
if the width of this stack < 495 then
set the topLeft of group "stack" to the bottomLeft of group "card"
else
set the topLeft of group "stack" to the topRight of group "Card"
end if
revUpdateGeometry
end resizeStack
on revPreOpenStack
put stackList() into btn "Stack"
end revPreOpenStack
on revCloseStack
put stackList() into btn "Stack"
end revCloseStack
on revResumeStack
put stackList() into btn "Stack"
end revResumeStack
revstack false cHiddenList
put stackList() into btn "Stack" of stack "revScreenGrabber"
end preOpenStack
function stackList
put the openStacks into tStacks
if not (the hilite of btn "show revolution stacks" of stack "revPreferences") then
repeat with i=the number of lines of tStacks down to 1
if char 1 to 3 of line i of tStacks is "rev" then delete line i of tStacks
end repeat
end if
return tStacks
end stackList
on hideRev
put the openStacks into tStacks
if (the hilite of btn "hide") then
repeat with i=the number of lines of tStacks down to 1
if char 1 to 3 of line i of tStacks is "rev" and \
the visible of stack line i of tStacks then
hide stack line i of tStacks
put line i of tStacks & cr after tHiddenList
end if
end repeat
set the cHiddenList of this stack to tHiddenList
end if
end hideRev
on showRev
repeat for each line tLine in the cHiddenList of this stack
show stack tLine
end repeat
end showRev
on newImage
repeat with X=1 to the number of images
put the short name of image X into tName
put tName & cr after tImageList
end repeat
delete the last char of tImageList
put tImageList into fld "image list" of stack "revScreenGrabber"
set the hilitedLine of fld "image list" of stack "revScreenGrabber" to 1
send mouseUp to fld "image list" of stack "revScreenGrabber"
updateImagePanel line 1 of tImageList
end newImage
on upDateImagePanel tImage
if tImage <> "" then
set the useSystemDate to true
put word -1 of tImage into tImageDate
convert tImageDate to abbrev date and time
put "<heading>"&word 1 to -2 of tImage&"</heading><subhead>Date: "&\
tImageDate&"</subhead><p><img src="& the id of image tImage&" />" into tXML
set the xmlText of fld "display" of stack "revScreenGrabber" to tXML
else
put "" into fld "display" of stack "revScreenGrabber"
end if
end upDateImagePanel
on resizeStack
if the width of this stack < 495 then
set the topLeft of group "stack" to the bottomLeft of group "card"
else
set the topLeft of group "stack" to the topRight of group "Card"
end if
revUpdateGeometry
end resizeStack
on revPreOpenStack
put stackList() into btn "Stack"
end revPreOpenStack
on revCloseStack
put stackList() into btn "Stack"
end revCloseStack
on revResumeStack
put stackList() into btn "Stack"
end revResumeStack
cREVGeometryCache stackID 1213 stack @ cREVGeneral bookmarks handlerList scriptSelection char 1 to 0 prevHandler tempScript script cREVGeometryCacheIDs 1025510209168 10221025583240873 12031025521704061 11411025516389974 11161025515619108 11011025515210942 10991025516331284 11141025512084151 10301025512206435 10321025512055396 10291025512120514 10311025584001865 12071025583316150 12041025583272870 11081025511202547 10041025583344612 12051025516294683 11131025516376696 11151025511006255 10241025583796498 12061025515615024 1100 cREVGeometrycache order total 21 K L M T image list )p on mouseUp updateImagePanel line (the hilitedLine of me) of me end mouseUp on arrowKey send mouseUp to me in 5 ticks pass arrowKey end arrowKey M cREVGeometry Master,scaleBottomObjectSide BottomMaster trueMaster,scaleLeftObjectRef Master,scaletopObjectRef 1025515615024 Master,scaleBottomObjectRef CardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,scaleLeftObjectSide centerMaster,scaleTopObjectSide BottomMaster,expectedRect 6,29,139,304Master,scalebottomDistance -78 Master,scale trueMaster,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -3Master,scaleTopAbsolute trueMaster,scaleRightObjectRef 1025515210942 Master,scaleRightObjectSide CenterMaster,scaleLeftAbsolute falseMaster,scaleTop trueMaster,scaleLeft falseMaster,cardRanking 1Master,scaleleftDistance 0Master,scaletopDistance 0 cREVGeneral scriptChecksum B X.5QL:( bookmarks revUniqueID 1025510209168 handlerList mouseUp arrowKeyscriptSelection char 122 to 121 prevHandler mouseUp tempScript scripton mouseUp
updateImagePanel line (the hilitedLine of me) of me
end mouseUp
on arrowKey
send mouseUp to me in 5 ticks
pass arrowKey
end arrowKey
` @ z K display +` 8M htmlText XMLText
cREVGeometry Master,scaleBottomObjectSide BottomMaster trueMaster,scaleLeftObjectRef
1025515210942Master,scaletopObjectRef
1025515615024 Master,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,scaleLeftObjectSide CenterMaster,scaleTopObjectSide BottomMaster,expectedRect 145,29,566,304Master,scalebottomDistance -78
Master,scale trueMaster,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -6Master,scaleTopAbsolute trueMaster,scaleRightObjectRef Card Master,scaleRightObjectSide RightMaster,scaleLeftAbsolute trueMaster,scaleTop trueMaster,scaleLeft trueMaster,cardRanking 2Master,scaleleftDistance 3Master,scaletopDistance 0 StyleXML heading Arial,18,blue,White
b
psubhead Arial,14,Gray35,White b,i
pstrong Arial,12,Black,White b cREVGeneral revUniqueID 1025511006255 ` @ < a @ Y' K test "@ local lMoving, lDistance on mouseLeave set the lockcursor to false end mouseLeave on mouseDown put true into lMoving set the lockcursor to true set the cursor to 230021 end mouseDown on mouseUp put false into lMoving unlock cursor end mouseUp on mouseRelease put false into lMoving unlock Cursor end mouseRelease on mouseMove if lMoving then lock screen put the mouseH into tH if tH > the width of this cd - the cRightConstraint of me then put the width of this cd - the cRightConstraint of me into tH if tH < the cLeftConstraint of me then put the cLeftConstraint of me into tH set the loc of me to tH, item 2 of the loc of me revUpdateGeometry unlock screen end if set the lockcursor to true set the cursor to 230021 end mouseMove @ cLeftConstraint 100cRightConstraint 100 cREVGeometry Master,scaleBottomObjectSide BottomMaster trueMaster,scaletopObjectRef Master,scaleLeftObjectRef Master,scaleBottomObjectRef CardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,scaleTopObjectSide centerMaster,scaleLeftObjectSide centerMaster,scalebottomDistance -23Master,expectedRect 128,30,140,412Master,scaleRightAbsolute falseMaster,scaleRight falseMaster,scalerightDistance 0Master,scaleLeftAbsolute false Master,scaleRightObjectSide centerMaster,scaleRightObjectRef Master,scaleTopAbsolute falseMaster,scaleLeft falseMaster,scaleTop falseMaster,cardRanking 1Master,scaletopDistance 0Master,scaleleftDistance 0 cREVGeneral scriptChecksum "6sn revUniqueID 1025515210942 bookmarks handlerList 3mouseLeave mouseDown mouseUp mouseRelease mouseMove tempScript prevHandler mouseDownscriptSelection script ,
local lMoving, lDistance
on mouseLeave
set the lockcursor to false
end mouseLeave
on mouseDown
put true into lMoving
set the lockcursor to true
set the cursor to 230021
end mouseDown
on mouseUp
put false into lMoving
unlock cursor
end mouseUp
on mouseRelease
put false into lMoving
unlock Cursor
end mouseRelease
on mouseMove
if lMoving then
lock screen
put the mouseH into tH
if tH > the width of this cd - the cRightConstraint of me then put the width of this cd - the cRightConstraint of me into tH
if tH < the cLeftConstraint of me then put the cLeftConstraint of me into tH
set the loc of me to tH, item 2 of the loc of me
revUpdateGeometry
unlock screen
end if
set the lockcursor to true
set the cursor to 230021
end mouseMove
L stack i cREVGeometry Master,scaleBottomObjectSide Master trueMaster,scaleLeftObjectRef Master,scaletopObjectRef Master,scaleBottomObjectRef Master,scaleBottomAbsolute Master,scaleBottom falseMaster,scaleLeftObjectSide Master,scaleTopObjectSide Master,expectedRect 238,-2,492,34Master,scalebottomDistance Master,scaleRightAbsolute Master,scaleRight falseMaster,scalerightDistance Master,scaleTopAbsolute Master,scaleRightObjectRef Master,scaleRightObjectSide Master,scaleLeftAbsolute Master,scaleTop falseMaster,scaleLeft falseMaster,cardRanking 0Master,scaleleftDistance Master,scaletopDistance cREVGeneral revUniqueID 1025515615024 stack u!on menuPick pStack repeat with x=1 to the number of cds of stack pStack put the abbrev name of cd X of stack pStack & cr after tCds end repeat delete the last char of tCds put "all cards"&cr&"the current card"&cr&tCds into btn "card" end menuPick revSaving hrevSaving revMenubar revTools revApplicationOverview revHappySnap iCoach Browser revScriptLibraryLoader cREVGeneral scriptChecksum loN5%` ' bookmarks revUniqueID 1025511202547 handlerList menuPickscriptSelection char 245 to 244 prevHandler insetRect tempScript scripton menuPick pStack
repeat with x=1 to the number of cds of stack pStack
put the abbrev name of cd X of stack pStack & cr after tCds
end repeat
delete the last char of tCds
put "all cards"&cr&"the current card"&cr&tCds into btn "card"
end menuPick
Grab G Ton mouseUp lock messages put the label of btn "stack" into tStack put the label of btn "card" into tCard put getRect(tStack) into tRect hideRev switch tCard case "all cards" repeat with x=1 to the number of cds of stack tStack go cd X of stack tStack getImage tStack,tRect end repeat break case "the current card" go this cd of stack tStack getImage tStack,tRect break default go tCard of stack tStack getImage tStack,tRect break end switch showRev end mouseUp on getImage pStack,pRect lock screen set the defaultStack to "revHappySnap" import snapshot from rect pRect put (the abbrev name the current cd of stack pStack & " of stack " "e&pStack"e&&the long seconds) into tName set the name of image (the number of imgs of this stack) to tName hide img tName unlock screen choose browse tool newImage end getImage function insetRect pRect,pInset repeat with X=1 to 4 subtract item X of pInset from item X of pRect end repeat return pRect end insetRect function getRect pStack switch the label of btn "snapshot style" case "Estimated Window Rect" put the cWindow[the style of the stack pStack] of this stack into tWindow put item 2 of tWindow,item 1 of tWindow,-item 2 of tWindow,-item 2 of tWindow into tInset return insetRect(the rect of stack pStack,tInset) break case "Stack Rect" return the rect of stack pStack break case "Window Bounding Rect" return the windowBoundingRect break case "Screen Rect" return the screenRect break end switch end getRect @ B N cREVGeneral scriptChecksum }K+l revUniqueID 1025512084151 bookmarks handlerList "mouseUp getImage insetRect getRect tempScript prevHandler getImagescriptSelection char 1623 to 1622scripton mouseUp
lock messages
put the label of btn "stack" into tStack
put the label of btn "card" into tCard
put getRect(tStack) into tRect
hideRev
switch tCard
case "all cards"
repeat with x=1 to the number of cds of stack tStack
go cd X of stack tStack
getImage tStack,tRect
end repeat
break
case "the current card"
go this cd of stack tStack
getImage tStack,tRect
break
default
go tCard of stack tStack
getImage tStack,tRect
break
end switch
showRev
end mouseUp
on getImage pStack,pRect
lock screen
set the defaultStack to "revScreenGrabber"
import snapshot from rect pRect
put (the abbrev name the current cd of stack pStack & " of stack " "e&pStack"e&&the long seconds) into tName
set the name of image (the number of imgs of this stack) to tName
hide img tName
unlock screen
choose browse tool
newImage
end getImage
function insetRect pRect,pInset
repeat with X=1 to 4
subtract item X of pInset from item X of pRect
end repeat
return pRect
end insetRect
function getRect pStack
switch the label of btn "snapshot style"
case "Estimated Window Rect"
put the cWindow[the style of the stack pStack] of this stack into tWindow
put item 2 of tWindow,item 1 of tWindow,-item 2 of tWindow,-item 2 of tWindow into tInset
return insetRect(the rect of stack pStack,tInset)
break
case "Stack Rect"
return the rect of stack pStack
break
case "Window Bounding Rect"
return the windowBoundingRect
break
case "Screen Rect"
return the screenRect
break
end switch
end getRect
New Field 1 " cREVGeneral revUniqueID 1025512206435 of M card i cREVGeneral revUniqueID 1025515619108 card e ` all cards /all cards the current card card "card id 1002" cREVGeneral scriptChecksum ُ B~ revUniqueID 1025512055396 bookmarks handlerList tempScript prevHandler insetRectscriptSelection char 1 to 0script New Field 1 ^ cREVGeneral revUniqueID 1025512120514 Grab image(s) of T Delete i q X A cREVGeometry !Master,movehDistance -0.295388Master,scaleLeftObjectRef Master,scaletopObjectRef Master,moveVAbsolute trueMaster,scaleBottomAbsolute Master,movevDistance -39Master,scalebottomDistance Master,scaleRightAbsolute Master,scalerightDistance Master,scaleLeft falseMaster,scaleTop falseMaster,cardRanking 1 Master,moveH falseMaster,moveVObjectSide Bottom Master,scaleBottomObjectSide Master trueMaster,moveVObjectRef card Master,scaleBottomObjectRef Master,moveHObjectRef Master,moveV trueMaster,scaleBottom falseMaster,scaleLeftObjectSide Master,scaleTopObjectSide Master,expectedRect 6,311,94,376Master,moveHObjectSide centerMaster,scaleRight falseMaster,scaleLeftAbsolute Master,scaleRightObjectSide Master,scaleRightObjectRef Master,scaleTopAbsolute Master,moveHAbsolute falseMaster,scaleleftDistance Master,scaletopDistance cREVGeneral revUniqueID 1025583272870 Y Selected G on mouseUp if fld "image list" <> "" then delete img line (the hilitedLine of fld "image list") of fld "image list" delete line (the hilitedLine of fld "image list") of fld "image list" updateImagePanel end if end mouseUp @ L N# cREVGeneral scriptChecksum jQ% TI}2r bookmarks revUniqueID 1025516294683 handlerList mouseUpscriptSelection char 48 to 47 prevHandler mouseUp tempScript script Oon mouseUp
if fld "image list" <> "" then
delete img line (the hilitedLine of fld "image list") of fld "image list"
delete line (the hilitedLine of fld "image list") of fld "image list"
updateImagePanel
end if
end mouseUp
Z All Images G on mouseUp repeat for each line tLine in fld "image list" delete img tLine end repeat put "" into fld "image list" updateImagePanel end mouseUp @ L N# cREVGeneral scriptChecksum VOFI revUniqueID 1025516331284 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 29 to 28scripton mouseUp
repeat for each line tLine in fld "image list"
delete img tLine
end repeat
put "" into fld "image list"
updateImagePanel
end mouseUp
Save i dq A cREVGeometry Master,movevDistance -39Master,expectedRect 100,311,249,376Master,moveVObjectSide BottomMaster,movehDistance -0.195804Master,moveHObjectSide centerMaster trueMaster,moveVObjectRef cardMaster,moveHObjectRef Master,cardRanking 1Master,moveVAbsolute true Master,moveV trueMaster,moveAbsolute falseMaster,moveHAbsolute false Master,moveH false cREVGeneral revUniqueID 1025583316150 [ Save Image As... G on mouseUp if fld "image list" <> "" then switch the platform case "MacOS" put "JPEG" into tFilter break default put "JPEG Images (*.jpg),*.jpg" into tFilter break end switch ask file "Save image as:" with filter tFilter if it is "" or the result is cancel then exit to top set the itemDel to "." put it into tSave if the number of items of tSave > 1 then if item -1 of tSave <> "jpg" then put ".jpg" after tSave end if else put ".jpg" after tSave end if export img (line (the hilitedLine of fld "image list") of fld "image list") to url ("binfile:"&tSave) as JPEG end if end mouseUp @ j N! cREVGeneral scriptChecksum FSʠHĄ bookmarks revUniqueID 1025516376696 handlerList mouseUpscriptSelection char 14 to 46 prevHandler getImage tempScript scripton mouseUp
if fld "image list" <> "" then
switch the platform
case "MacOS"
put "JPEG" into tFilter
break
default
put "JPEG Images (*.jpg),*.jpg" into tFilter
break
end switch
ask file "Save image as:" with filter tFilter
if it is "" or the result is cancel then exit to top
set the itemDel to "."
put it into tSave
if the number of items of tSave > 1 then
if item -1 of tSave <> "jpg" then
put ".jpg" after tSave
end if
else
put ".jpg" after tSave
end if
export img (line (the hilitedLine of fld "image list") of fld "image list") to url ("binfile:"&tSave) as JPEG
end if
end mouseUp
\ Save All To Folder... G on mouseUp if fld "image list" <> "" then answer folder "Save all images to folder:" if it is "" or the result is cancel then exit to top put it into tSave repeat for each line tLine in fld "image list" export img tLine to url ("binfile:"&tSave&"/"&saveFileName(tLine)&".jpg") as JPEG end repeat end if end mouseUp function saveFileName tFile replace " " with "_" in tFile replace quote with "" in tFile replace "/" with "" in tFile replace "\" with "" in tFile return tFile end saveFileName @ k N" cREVGeneral scriptChecksum < 1N3 revUniqueID 1025516389974 bookmarks handlerList mouseUp saveFileName tempScript prevHandler mouseUpscriptSelection char 321 to 320scripton mouseUp
if fld "image list" <> "" then
answer folder "Save all images to folder:"
if it is "" or the result is cancel then exit to top
put it into tSave
repeat for each line tLine in fld "image list"
export img tLine to url ("binfile:"&tSave&"/"&saveFileName(tLine)&".jpg") as JPEG
end repeat
end if
end mouseUp
function saveFileName tFile
replace " " with "_" in tFile
replace quote with "" in tFile
replace "/" with "" in tFile
replace "\" with "" in tFile
return tFile
end saveFileName
Preferences q* A cREVGeometry Master,movevDistance -39Master,expectedRect 255,310,553,376Master,moveVObjectSide BottomMaster,movehDistance 0.206294Master,moveHObjectSide centerMaster trueMaster,moveVObjectRef cardMaster,moveHObjectRef Master,cardRanking 1Master,moveVAbsolute true Master,moveV trueMaster,moveHAbsolute false Master,moveH false cREVGeneral bookmarks revUniqueID 1025583344612 handlerList scriptSelection prevHandler tempScript script u JPEG Quality G 1on mouseUp palette "JPEG quality" end mouseUp @ ^ N$ cREVGeneral scriptChecksum FMh =hMc bookmarks revUniqueID 1025521704061 handlerList mouseUpscriptSelection char 21 to 20 prevHandler mouseUp tempScript scripton mouseUp
palette "JPEG quality"
end mouseUp
Hide "e @ N$ Hide SG & Revolution cREVGeneral scriptChecksum ُ B~ revUniqueID 1025583240873 bookmarks handlerList tempScript prevHandler mouseUpscriptSelection char 1 to 0script snapshot style } pon menuPick pWhich if pWhich is "Estimated Window Rect" then palette "Window Rect" end if end menuPick @ N$ Estimated Window Rect BWindow Bounding Rect Screen Rect Stack Rect Estimated Window Rect cREVGeneral scriptChecksum g7MJ94-4Fա bookmarks revUniqueID 1025583796498 handlerList menuPickscriptSelection char 98 to 97 prevHandler mouseUp tempScript script ?on menuPick pWhich
if pWhich is "Estimated Window Rect" then
palette "Window Rect"
end if
end menuPick
t cREVGeneral bookmarks revUniqueID 1025584001865 handlerList scriptSelection prevHandler tempScript script Grab image(s) of: JPEG quality on suspendStack close this stack end suspendStack on preOpenStack set the loc of this stack to the screenmouseLoc set the thumbpostionion of scrollBar 1 to the jpegQuality end preOpenStack ) , revscrollbar false revstack false cREVGeneral scriptChecksum s)LC bookmarks handlerList suspendStack preOpenStack tempScript prevHandler preOpenStackscriptSelection char 20 to 19script Yon suspendStack
close this stack
end suspendStack
on preOpenStack
set the loc of this stack to the screenmouseLoc
set the thumbpostionion of scrollBar 1 to the jpegQuality
end preOpenStack
card id 1002 ` , cREVGeneral bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0script N# N N" N! N$ N# delete.gif @ y h 201341 GIF89a fff3 LLLXXX||| ! , n 4( B#JtHЀhH" Byb(80`eK&OPA$ `f͛9w&iND JhPM 3ѩ]jeă ; N image.gif @ H 201061 GIF89a 3 f 3 33 3f 3 3 3 f f3 ff f f f 3 f 3 f ̙ 3 f 3 3 33 f3 3 3 33 33333f3333333f 3f33ff3f3f3f3 333f3333 333f3̙333 333f333f f 3f ff f f f3 f33f3ff3f3f3ff ff3ffffffffff f3ffffff f3fff̙fff f3fffff 3 f ̙ 3 333f33̙3f f3ffff̙f 3f̙ 3f̙̙ 3f̙ 3 f 3 333f333f f3fffff̙ ̙3̙f̙̙̙ 3f̙ 3f 3 f 3 333f333f f3fffff 3f 3f̙ 3f (((444@@@LLLXXXdddppp|||𠠤 ! , {ݢv[ad n-Jŋ1]wl`H$I D\G.;!)惍aέK-~2 JR-{p\M1 J-&X)7oWCv=6[ARpÇ, `Ç>T \p1z1:g| N1֡9ΆTH߿r3gRrƉC8 ; N" open.gif @ 202364 GIF89a 33fff f333f ! , H XH C #. `a%ZqC $\Ѥ̗"oset the jpegQuality to x
end scrollBardrag
N$ visible.gif @ | " GIF89a ĸ3fffXXX444 ! , L P0@*DX (8 X0@ 8 $ː,[ 0bƈ(aĉ ; cREVGeneral revUniqueID 965964946957 Window Rect - @ New Field 1 , cREVGeneral revUniqueID 1025584476173 nYou may wish to edit the default settings for window title and border as they are different on each platform. toplevel i 9 * cREVGeneral revUniqueID 1025584757334 topLevel border )p on closeField end closeField J cMinValue 0 cMaxValue 1000 cREVGeneral scriptChecksum rcsf =Ġ bookmarks revUniqueID 1025584745778 handlerList closeFieldscriptSelection char 32 to 31 prevHandler tempScript script non closeField
end closeField
4 topLevel title )p on closeField end closeField E J cMinValue 0 cMaxValue 1000 cREVGeneral scriptChecksum rcsf =Ġ bookmarks revUniqueID 1025584564787 handlerList closeFieldscriptSelection char 1 to 0 prevHandler tempScript script Qon closeField
end closeField
30 Little Arrows "B local lTrackingIcon, lTracking, lCancelID on mouseUp cancel lCancelID put false into lTracking set the icon of me to the cIcon of me end mouseUp on mouseDoubleUp mouseUp end mouseDoubleUp on mouseDoubleDown mouseDown end mouseDoubleDown on mouseMove x,y if lTracking then put x,y into tLoc if within (me,tLoc) then if the icon of me is not lTrackingIcon then set the icon of me to lTrackingIcon if lTrackingIcon is the cUpIcon of me then hAddToField else if lTrackingIcon is the cDownIcon of me then hSubtractFromField end if else set the icon of me to the cIcon of me end if end if pass mouseMove end mouseMove on mousedown if the mouseV < (the top of me + 10) then put the cUpIcon of me into lTrackingIcon else put the cDownIcon of me into lTrackingIcon set the icon of me to lTrackingIcon if lTrackingIcon is the cUpIcon of me then hAddToField else if lTrackingIcon is the cDownIcon of me then hSubtractFromField put true into lTracking if "hTimeMove" is not in the pendingMessages then send "hTimeMove" to me in 250 milliseconds put the result into lCancelID end mousedown on hTimeMove if not lTracking then exit hTimeMove if the icon of me is the cUpIcon of me then hAddToField else if the icon of me is the cDownIcon of me then hSubtractFromField if "hTimeMove" is not in the pendingMessages then send "hTimeMove" to me in 50 milliseconds put the result into lCancelID end hTimeMove on mouseRelease mouseUp end mouseRelease on hAddToField if the text of the fld (the cTargetField of me) < the cMaxValue of fld (the cTargetField of me) then add 1 to fld (the cTargetField of me) send "closeField" to fld (the cTargetField of me) end hAddToField on hSubtractFromField if the text of the fld (the cTargetField of me) > the cMinValue of fld (the cTargetField of me) then subtract 1 from fld (the cTargetField of me) send "closeField" to fld (the cTargetField of me) end hSubtractFromField b I cUpIcon 201319 revButton false cDownIcon 201318cIcon 201317 cTargetField topLevel title revbasic false e cREVGeneral scriptChecksum 8P )}n\K bookmarks revUniqueID 1025584460819 handlerList omouseUp mouseDoubleUp mouseDoubleDown mouseMove mousedown hTimeMove mouseRelease hAddToField hSubtractFromField tempScript prevHandler mouseMovescriptSelection char 677 to 676scriptlocal lTrackingIcon, lTracking, lCancelID
on mouseUp
cancel lCancelID
put false into lTracking
set the icon of me to the cIcon of me
end mouseUp
on mouseDoubleUp
mouseUp
end mouseDoubleUp
on mouseDoubleDown
mouseDown
end mouseDoubleDown
on mouseMove x,y
if lTracking then
put x,y into tLoc
if within (me,tLoc) then
if the icon of me is not lTrackingIcon then
set the icon of me to lTrackingIcon
if lTrackingIcon is the cUpIcon of me then hAddToField
else if lTrackingIcon is the cDownIcon of me then hSubtractFromField
end if
else
set the icon of me to the cIcon of me
end if
end if
pass mouseMove
end mouseMove
on mousedown
if the mouseV < (the top of me + 10) then put the cUpIcon of me into lTrackingIcon
else put the cDownIcon of me into lTrackingIcon
set the icon of me to lTrackingIcon
if lTrackingIcon is the cUpIcon of me then hAddToField
else if lTrackingIcon is the cDownIcon of me then hSubtractFromField
put true into lTracking
if "hTimeMove" is not in the pendingMessages then send "hTimeMove" to me in 250 milliseconds
put the result into lCancelID
end mousedown
on hTimeMove
if not lTracking then exit hTimeMove
if the icon of me is the cUpIcon of me then hAddToField
else if the icon of me is the cDownIcon of me then hSubtractFromField
if "hTimeMove" is not in the pendingMessages then send "hTimeMove" to me in 50 milliseconds
put the result into lCancelID
end hTimeMove
on mouseRelease
mouseUp
end mouseRelease
on hAddToField
if the text of the fld (the cTargetField of me) < the cMaxValue of fld (the cTargetField of me) then add 1 to fld (the cTargetField of me)
send "closeField" to fld (the cTargetField of me)
end hAddToField
on hSubtractFromField
if the text of the fld (the cTargetField of me) > the cMinValue of fld (the cTargetField of me) then subtract 1 from fld (the cTargetField of me)
send "closeField" to fld (the cTargetField of me)
end hSubtractFromField
New Field 3 I * cREVGeneral revUniqueID 1025584587313 Title New Field 3 I * cREVGeneral revUniqueID 1025584621472 Border Little Arrows "B local lTrackingIcon, lTracking, lCancelID on mouseUp cancel lCancelID put false into lTracking set the icon of me to the cIcon of me end mouseUp on mouseDoubleUp mouseUp end mouseDoubleUp on mouseDoubleDown mouseDown end mouseDoubleDown on mouseMove x,y if lTracking then put x,y into tLoc if within (me,tLoc) then if the icon of me is not lTrackingIcon then set the icon of me to lTrackingIcon if lTrackingIcon is the cUpIcon of me then hAddToField else if lTrackingIcon is the cDownIcon of me then hSubtractFromField end if else set the icon of me to the cIcon of me end if end if pass mouseMove end mouseMove on mousedown if the mouseV < (the top of me + 10) then put the cUpIcon of me into lTrackingIcon else put the cDownIcon of me into lTrackingIcon set the icon of me to lTrackingIcon if lTrackingIcon is the cUpIcon of me then hAddToField else if lTrackingIcon is the cDownIcon of me then hSubtractFromField put true into lTracking if "hTimeMove" is not in the pendingMessages then send "hTimeMove" to me in 250 milliseconds put the result into lCancelID end mousedown on hTimeMove if not lTracking then exit hTimeMove if the icon of me is the cUpIcon of me then hAddToField else if the icon of me is the cDownIcon of me then hSubtractFromField if "hTimeMove" is not in the pendingMessages then send "hTimeMove" to me in 50 milliseconds put the result into lCancelID end hTimeMove on mouseRelease mouseUp end mouseRelease on hAddToField if the text of the fld (the cTargetField of me) < the cMaxValue of fld (the cTargetField of me) then add 1 to fld (the cTargetField of me) send "closeField" to fld (the cTargetField of me) end hAddToField on hSubtractFromField if the text of the fld (the cTargetField of me) > the cMinValue of fld (the cTargetField of me) then subtract 1 from fld (the cTargetField of me) send "closeField" to fld (the cTargetField of me) end hSubtractFromField I revButton falsecUpIcon 201319cIcon 201317 cDownIcon 201318 cTargetField topLevel border revbasic false e cREVGeneral scriptChecksum 8P )}n\K revUniqueID 1025584745776 bookmarks handlerList omouseUp mouseDoubleUp mouseDoubleDown mouseMove mousedown hTimeMove mouseRelease hAddToField hSubtractFromFieldscriptSelection char 677 to 676 prevHandler hAddToField tempScript scriptlocal lTrackingIcon, lTracking, lCancelID
on mouseUp
cancel lCancelID
put false into lTracking
set the icon of me to the cIcon of me
end mouseUp
on mouseDoubleUp
mouseUp
end mouseDoubleUp
on mouseDoubleDown
mouseDown
end mouseDoubleDown
on mouseMove x,y
if lTracking then
put x,y into tLoc
if within (me,tLoc) then
if the icon of me is not lTrackingIcon then
set the icon of me to lTrackingIcon
if lTrackingIcon is the cUpIcon of me then hAddToField
else if lTrackingIcon is the cDownIcon of me then hSubtractFromField
end if
else
set the icon of me to the cIcon of me
end if
end if
pass mouseMove
end mouseMove
on mousedown
if the mouseV < (the top of me + 10) then put the cUpIcon of me into lTrackingIcon
else put the cDownIcon of me into lTrackingIcon
set the icon of me to lTrackingIcon
if lTrackingIcon is the cUpIcon of me then hAddToField
else if lTrackingIcon is the cDownIcon of me then hSubtractFromField
put true into lTracking
if "hTimeMove" is not in the pendingMessages then send "hTimeMove" to me in 250 milliseconds
put the result into lCancelID
end mousedown
on hTimeMove
if not lTracking then exit hTimeMove
if the icon of me is the cUpIcon of me then hAddToField
else if the icon of me is the cDownIcon of me then hSubtractFromField
if "hTimeMove" is not in the pendingMessages then send "hTimeMove" to me in 50 milliseconds
put the result into lCancelID
end hTimeMove
on mouseRelease
mouseUp
end mouseRelease
on hAddToField
if the text of the fld (the cTargetField of me) < the cMaxValue of fld (the cTargetField of me) then add 1 to fld (the cTargetField of me)
send "closeField" to fld (the cTargetField of me)
end hAddToField
on hSubtractFromField
if the text of the fld (the cTargetField of me) > the cMinValue of fld (the cTargetField of me) then subtract 1 from fld (the cTargetField of me)
send "closeField" to fld (the cTargetField of me)
end hSubtractFromField
modeless i j * cREVGeneral revUniqueID 1025585218559 modeless border )p on closeField end closeField { cMinValue 0 cMaxValue 1000 cREVGeneral scriptChecksum rcsf =Ġ revUniqueID 1025584745778 bookmarks handlerList closeField tempScript prevHandler scriptSelection char 32 to 31script non closeField
end closeField
4 modeless title )p on closeField end closeField E { cMinValue 0 cMaxValue 1000 cREVGeneral scriptChecksum rcsf =Ġ revUniqueID 1025584564787 bookmarks handlerList closeField tempScript prevHandler scriptSelection char 1 to 0script Qon closeField
end closeField
20 Little Arrows "B local lTrackingIcon, lTracking, lCancelID on mouseUp cancel lCancelID put false into lTracking set the icon of me to the cIcon of me end mouseUp on mouseDoubleUp mouseUp end mouseDoubleUp on mouseDoubleDown mouseDown end mouseDoubleDown on mouseMove x,y if lTracking then put x,y into tLoc if within (me,tLoc) then if the icon of me is not lTrackingIcon then set the icon of me to lTrackingIcon if lTrackingIcon is the cUpIcon of me then hAddToField else if lTrackingIcon is the cDownIcon of me then hSubtractFromField end if else set the icon of me to the cIcon of me end if end if pass mouseMove end mouseMove on mousedown if the mouseV < (the top of me + 10) then put the cUpIcon of me into lTrackingIcon else put the cDownIcon of me into lTrackingIcon set the icon of me to lTrackingIcon if lTrackingIcon is the cUpIcon of me then hAddToField else if lTrackingIcon is the cDownIcon of me then hSubtractFromField put true into lTracking if "hTimeMove" is not in the pendingMessages then send "hTimeMove" to me in 250 milliseconds put the result into lCancelID end mousedown on hTimeMove if not lTracking then exit hTimeMove if the icon of me is the cUpIcon of me then hAddToField else if the icon of me is the cDownIcon of me then hSubtractFromField if "hTimeMove" is not in the pendingMessages then send "hTimeMove" to me in 50 milliseconds put the result into lCancelID end hTimeMove on mouseRelease mouseUp end mouseRelease on hAddToField if the text of the fld (the cTargetField of me) < the cMaxValue of fld (the cTargetField of me) then add 1 to fld (the cTargetField of me) send "closeField" to fld (the cTargetField of me) end hAddToField on hSubtractFromField if the text of the fld (the cTargetField of me) > the cMinValue of fld (the cTargetField of me) then subtract 1 from fld (the cTargetField of me) send "closeField" to fld (the cTargetField of me) end hSubtractFromField b z revButton falsecUpIcon 201319cIcon 201317 cDownIcon 201318 cTargetField modeless title revbasic false e cREVGeneral scriptChecksum 8P )}n\K revUniqueID 1025584460819 bookmarks handlerList omouseUp mouseDoubleUp mouseDoubleDown mouseMove mousedown hTimeMove mouseRelease hAddToField hSubtractFromFieldscriptSelection char 677 to 676 prevHandler mouseMove tempScript scriptlocal lTrackingIcon, lTracking, lCancelID
on mouseUp
cancel lCancelID
put false into lTracking
set the icon of me to the cIcon of me
end mouseUp
on mouseDoubleUp
mouseUp
end mouseDoubleUp
on mouseDoubleDown
mouseDown
end mouseDoubleDown
on mouseMove x,y
if lTracking then
put x,y into tLoc
if within (me,tLoc) then
if the icon of me is not lTrackingIcon then
set the icon of me to lTrackingIcon
if lTrackingIcon is the cUpIcon of me then hAddToField
else if lTrackingIcon is the cDownIcon of me then hSubtractFromField
end if
else
set the icon of me to the cIcon of me
end if
end if
pass mouseMove
end mouseMove
on mousedown
if the mouseV < (the top of me + 10) then put the cUpIcon of me into lTrackingIcon
else put the cDownIcon of me into lTrackingIcon
set the icon of me to lTrackingIcon
if lTrackingIcon is the cUpIcon of me then hAddToField
else if lTrackingIcon is the cDownIcon of me then hSubtractFromField
put true into lTracking
if "hTimeMove" is not in the pendingMessages then send "hTimeMove" to me in 250 milliseconds
put the result into lCancelID
end mousedown
on hTimeMove
if not lTracking then exit hTimeMove
if the icon of me is the cUpIcon of me then hAddToField
else if the icon of me is the cDownIcon of me then hSubtractFromField
if "hTimeMove" is not in the pendingMessages then send "hTimeMove" to me in 50 milliseconds
put the result into lCancelID
end hTimeMove
on mouseRelease
mouseUp
end mouseRelease
on hAddToField
if the text of the fld (the cTargetField of me) < the cMaxValue of fld (the cTargetField of me) then add 1 to fld (the cTargetField of me)
send "closeField" to fld (the cTargetField of me)
end hAddToField
on hSubtractFromField
if the text of the fld (the cTargetField of me) > the cMinValue of fld (the cTargetField of me) then subtract 1 from fld (the cTargetField of me)
send "closeField" to fld (the cTargetField of me)
end hSubtractFromField
New Field 3 z * cREVGeneral revUniqueID 1025584587313 Title New Field 3 z * cREVGeneral revUniqueID 1025584621472 Border Little Arrows "B local lTrackingIcon, lTracking, lCancelID on mouseUp cancel lCancelID put false into lTracking set the icon of me to the cIcon of me end mouseUp on mouseDoubleUp mouseUp end mouseDoubleUp on mouseDoubleDown mouseDown end mouseDoubleDown on mouseMove x,y if lTracking then put x,y into tLoc if within (me,tLoc) then if the icon of me is not lTrackingIcon then set the icon of me to lTrackingIcon if lTrackingIcon is the cUpIcon of me then hAddToField else if lTrackingIcon is the cDownIcon of me then hSubtractFromField end if else set the icon of me to the cIcon of me end if end if pass mouseMove end mouseMove on mousedown if the mouseV < (the top of me + 10) then put the cUpIcon of me into lTrackingIcon else put the cDownIcon of me into lTrackingIcon set the icon of me to lTrackingIcon if lTrackingIcon is the cUpIcon of me then hAddToField else if lTrackingIcon is the cDownIcon of me then hSubtractFromField put true into lTracking if "hTimeMove" is not in the pendingMessages then send "hTimeMove" to me in 250 milliseconds put the result into lCancelID end mousedown on hTimeMove if not lTracking then exit hTimeMove if the icon of me is the cUpIcon of me then hAddToField else if the icon of me is the cDownIcon of me then hSubtractFromField if "hTimeMove" is not in the pendingMessages then send "hTimeMove" to me in 50 milliseconds put the result into lCancelID end hTimeMove on mouseRelease mouseUp end mouseRelease on hAddToField if the text of the fld (the cTargetField of me) < the cMaxValue of fld (the cTargetField of me) then add 1 to fld (the cTargetField of me) send "closeField" to fld (the cTargetField of me) end hAddToField on hSubtractFromField if the text of the fld (the cTargetField of me) > the cMinValue of fld (the cTargetField of me) then subtract 1 from fld (the cTargetField of me) send "closeField" to fld (the cTargetField of me) end hSubtractFromField z cUpIcon 201319 revButton false cDownIcon 201318cIcon 201317 cTargetField modeless border revbasic false e cREVGeneral scriptChecksum 8P )}n\K bookmarks revUniqueID 1025584745776 handlerList omouseUp mouseDoubleUp mouseDoubleDown mouseMove mousedown hTimeMove mouseRelease hAddToField hSubtractFromField tempScript prevHandler hAddToFieldscriptSelection char 677 to 676scriptlocal lTrackingIcon, lTracking, lCancelID
on mouseUp
cancel lCancelID
put false into lTracking
set the icon of me to the cIcon of me
end mouseUp
on mouseDoubleUp
mouseUp
end mouseDoubleUp
on mouseDoubleDown
mouseDown
end mouseDoubleDown
on mouseMove x,y
if lTracking then
put x,y into tLoc
if within (me,tLoc) then
if the icon of me is not lTrackingIcon then
set the icon of me to lTrackingIcon
if lTrackingIcon is the cUpIcon of me then hAddToField
else if lTrackingIcon is the cDownIcon of me then hSubtractFromField
end if
else
set the icon of me to the cIcon of me
end if
end if
pass mouseMove
end mouseMove
on mousedown
if the mouseV < (the top of me + 10) then put the cUpIcon of me into lTrackingIcon
else put the cDownIcon of me into lTrackingIcon
set the icon of me to lTrackingIcon
if lTrackingIcon is the cUpIcon of me then hAddToField
else if lTrackingIcon is the cDownIcon of me then hSubtractFromField
put true into lTracking
if "hTimeMove" is not in the pendingMessages then send "hTimeMove" to me in 250 milliseconds
put the result into lCancelID
end mousedown
on hTimeMove
if not lTracking then exit hTimeMove
if the icon of me is the cUpIcon of me then hAddToField
else if the icon of me is the cDownIcon of me then hSubtractFromField
if "hTimeMove" is not in the pendingMessages then send "hTimeMove" to me in 50 milliseconds
put the result into lCancelID
end hTimeMove
on mouseRelease
mouseUp
end mouseRelease
on hAddToField
if the text of the fld (the cTargetField of me) < the cMaxValue of fld (the cTargetField of me) then add 1 to fld (the cTargetField of me)
send "closeField" to fld (the cTargetField of me)
end hAddToField
on hSubtractFromField
if the text of the fld (the cTargetField of me) > the cMinValue of fld (the cTargetField of me) then subtract 1 from fld (the cTargetField of me)
send "closeField" to fld (the cTargetField of me)
end hSubtractFromField
palette i * cREVGeneral revUniqueID 1025585227537 palette border )p on closeField end closeField cMinValue 0 cMaxValue 1000 cREVGeneral scriptChecksum rcsf =Ġ bookmarks revUniqueID 1025584745778 handlerList closeFieldscriptSelection char 32 to 31 prevHandler tempScript script non closeField
end closeField
4 palette title )p on closeField end closeField E cMinValue 0 cMaxValue 1000 cREVGeneral scriptChecksum rcsf =Ġ bookmarks revUniqueID 1025584564787 handlerList closeFieldscriptSelection char 1 to 0 prevHandler tempScript script Qon closeField
end closeField
20 Little Arrows "B local lTrackingIcon, lTracking, lCancelID on mouseUp cancel lCancelID put false into lTracking set the icon of me to the cIcon of me end mouseUp on mouseDoubleUp mouseUp end mouseDoubleUp on mouseDoubleDown mouseDown end mouseDoubleDown on mouseMove x,y if lTracking then put x,y into tLoc if within (me,tLoc) then if the icon of me is not lTrackingIcon then set the icon of me to lTrackingIcon if lTrackingIcon is the cUpIcon of me then hAddToField else if lTrackingIcon is the cDownIcon of me then hSubtractFromField end if else set the icon of me to the cIcon of me end if end if pass mouseMove end mouseMove on mousedown if the mouseV < (the top of me + 10) then put the cUpIcon of me into lTrackingIcon else put the cDownIcon of me into lTrackingIcon set the icon of me to lTrackingIcon if lTrackingIcon is the cUpIcon of me then hAddToField else if lTrackingIcon is the cDownIcon of me then hSubtractFromField put true into lTracking if "hTimeMove" is not in the pendingMessages then send "hTimeMove" to me in 250 milliseconds put the result into lCancelID end mousedown on hTimeMove if not lTracking then exit hTimeMove if the icon of me is the cUpIcon of me then hAddToField else if the icon of me is the cDownIcon of me then hSubtractFromField if "hTimeMove" is not in the pendingMessages then send "hTimeMove" to me in 50 milliseconds put the result into lCancelID end hTimeMove on mouseRelease mouseUp end mouseRelease on hAddToField if the text of the fld (the cTargetField of me) < the cMaxValue of fld (the cTargetField of me) then add 1 to fld (the cTargetField of me) send "closeField" to fld (the cTargetField of me) end hAddToField on hSubtractFromField if the text of the fld (the cTargetField of me) > the cMinValue of fld (the cTargetField of me) then subtract 1 from fld (the cTargetField of me) send "closeField" to fld (the cTargetField of me) end hSubtractFromField b cUpIcon 201319 revButton false cDownIcon 201318cIcon 201317 cTargetField palette title revbasic false e cREVGeneral scriptChecksum 8P )}n\K bookmarks revUniqueID 1025584460819 handlerList omouseUp mouseDoubleUp mouseDoubleDown mouseMove mousedown hTimeMove mouseRelease hAddToField hSubtractFromField tempScript prevHandler mouseMovescriptSelection char 677 to 676scriptlocal lTrackingIcon, lTracking, lCancelID
on mouseUp
cancel lCancelID
put false into lTracking
set the icon of me to the cIcon of me
end mouseUp
on mouseDoubleUp
mouseUp
end mouseDoubleUp
on mouseDoubleDown
mouseDown
end mouseDoubleDown
on mouseMove x,y
if lTracking then
put x,y into tLoc
if within (me,tLoc) then
if the icon of me is not lTrackingIcon then
set the icon of me to lTrackingIcon
if lTrackingIcon is the cUpIcon of me then hAddToField
else if lTrackingIcon is the cDownIcon of me then hSubtractFromField
end if
else
set the icon of me to the cIcon of me
end if
end if
pass mouseMove
end mouseMove
on mousedown
if the mouseV < (the top of me + 10) then put the cUpIcon of me into lTrackingIcon
else put the cDownIcon of me into lTrackingIcon
set the icon of me to lTrackingIcon
if lTrackingIcon is the cUpIcon of me then hAddToField
else if lTrackingIcon is the cDownIcon of me then hSubtractFromField
put true into lTracking
if "hTimeMove" is not in the pendingMessages then send "hTimeMove" to me in 250 milliseconds
put the result into lCancelID
end mousedown
on hTimeMove
if not lTracking then exit hTimeMove
if the icon of me is the cUpIcon of me then hAddToField
else if the icon of me is the cDownIcon of me then hSubtractFromField
if "hTimeMove" is not in the pendingMessages then send "hTimeMove" to me in 50 milliseconds
put the result into lCancelID
end hTimeMove
on mouseRelease
mouseUp
end mouseRelease
on hAddToField
if the text of the fld (the cTargetField of me) < the cMaxValue of fld (the cTargetField of me) then add 1 to fld (the cTargetField of me)
send "closeField" to fld (the cTargetField of me)
end hAddToField
on hSubtractFromField
if the text of the fld (the cTargetField of me) > the cMinValue of fld (the cTargetField of me) then subtract 1 from fld (the cTargetField of me)
send "closeField" to fld (the cTargetField of me)
end hSubtractFromField
New Field 3 * cREVGeneral revUniqueID 1025584587313 Title New Field 3 * cREVGeneral revUniqueID 1025584621472 Border Little Arrows "B local lTrackingIcon, lTracking, lCancelID on mouseUp cancel lCancelID put false into lTracking set the icon of me to the cIcon of me end mouseUp on mouseDoubleUp mouseUp end mouseDoubleUp on mouseDoubleDown mouseDown end mouseDoubleDown on mouseMove x,y if lTracking then put x,y into tLoc if within (me,tLoc) then if the icon of me is not lTrackingIcon then set the icon of me to lTrackingIcon if lTrackingIcon is the cUpIcon of me then hAddToField else if lTrackingIcon is the cDownIcon of me then hSubtractFromField end if else set the icon of me to the cIcon of me end if end if pass mouseMove end mouseMove on mousedown if the mouseV < (the top of me + 10) then put the cUpIcon of me into lTrackingIcon else put the cDownIcon of me into lTrackingIcon set the icon of me to lTrackingIcon if lTrackingIcon is the cUpIcon of me then hAddToField else if lTrackingIcon is the cDownIcon of me then hSubtractFromField put true into lTracking if "hTimeMove" is not in the pendingMessages then send "hTimeMove" to me in 250 milliseconds put the result into lCancelID end mousedown on hTimeMove if not lTracking then exit hTimeMove if the icon of me is the cUpIcon of me then hAddToField else if the icon of me is the cDownIcon of me then hSubtractFromField if "hTimeMove" is not in the pendingMessages then send "hTimeMove" to me in 50 milliseconds put the result into lCancelID end hTimeMove on mouseRelease mouseUp end mouseRelease on hAddToField if the text of the fld (the cTargetField of me) < the cMaxValue of fld (the cTargetField of me) then add 1 to fld (the cTargetField of me) send "closeField" to fld (the cTargetField of me) end hAddToField on hSubtractFromField if the text of the fld (the cTargetField of me) > the cMinValue of fld (the cTargetField of me) then subtract 1 from fld (the cTargetField of me) send "closeField" to fld (the cTargetField of me) end hSubtractFromField revButton falsecUpIcon 201319cIcon 201317 cDownIcon 201318 cTargetField palette border revbasic false e cREVGeneral scriptChecksum 8P )}n\K revUniqueID 1025584745776 bookmarks handlerList omouseUp mouseDoubleUp mouseDoubleDown mouseMove mousedown hTimeMove mouseRelease hAddToField hSubtractFromFieldscriptSelection char 677 to 676 prevHandler hAddToField tempScript scriptlocal lTrackingIcon, lTracking, lCancelID
on mouseUp
cancel lCancelID
put false into lTracking
set the icon of me to the cIcon of me
end mouseUp
on mouseDoubleUp
mouseUp
end mouseDoubleUp
on mouseDoubleDown
mouseDown
end mouseDoubleDown
on mouseMove x,y
if lTracking then
put x,y into tLoc
if within (me,tLoc) then
if the icon of me is not lTrackingIcon then
set the icon of me to lTrackingIcon
if lTrackingIcon is the cUpIcon of me then hAddToField
else if lTrackingIcon is the cDownIcon of me then hSubtractFromField
end if
else
set the icon of me to the cIcon of me
end if
end if
pass mouseMove
end mouseMove
on mousedown
if the mouseV < (the top of me + 10) then put the cUpIcon of me into lTrackingIcon
else put the cDownIcon of me into lTrackingIcon
set the icon of me to lTrackingIcon
if lTrackingIcon is the cUpIcon of me then hAddToField
else if lTrackingIcon is the cDownIcon of me then hSubtractFromField
put true into lTracking
if "hTimeMove" is not in the pendingMessages then send "hTimeMove" to me in 250 milliseconds
put the result into lCancelID
end mousedown
on hTimeMove
if not lTracking then exit hTimeMove
if the icon of me is the cUpIcon of me then hAddToField
else if the icon of me is the cDownIcon of me then hSubtractFromField
if "hTimeMove" is not in the pendingMessages then send "hTimeMove" to me in 50 milliseconds
put the result into lCancelID
end hTimeMove
on mouseRelease
mouseUp
end mouseRelease
on hAddToField
if the text of the fld (the cTargetField of me) < the cMaxValue of fld (the cTargetField of me) then add 1 to fld (the cTargetField of me)
send "closeField" to fld (the cTargetField of me)
end hAddToField
on hSubtractFromField
if the text of the fld (the cTargetField of me) > the cMinValue of fld (the cTargetField of me) then subtract 1 from fld (the cTargetField of me)
send "closeField" to fld (the cTargetField of me)
end hSubtractFromField
modal i * cREVGeneral revUniqueID 1025585240470 modal border )p on closeField end closeField cMinValue 0 cMaxValue 1000 cREVGeneral scriptChecksum rcsf =Ġ revUniqueID 1025584745778 bookmarks handlerList closeField tempScript prevHandler scriptSelection char 32 to 31script non closeField
end closeField
4 modal title )p on closeField end closeField E cMinValue 0 cMaxValue 1000 cREVGeneral scriptChecksum rcsf =Ġ revUniqueID 1025584564787 bookmarks handlerList closeField tempScript prevHandler scriptSelection char 1 to 0script Qon closeField
end closeField
20 Little Arrows "B local lTrackingIcon, lTracking, lCancelID on mouseUp cancel lCancelID put false into lTracking set the icon of me to the cIcon of me end mouseUp on mouseDoubleUp mouseUp end mouseDoubleUp on mouseDoubleDown mouseDown end mouseDoubleDown on mouseMove x,y if lTracking then put x,y into tLoc if within (me,tLoc) then if the icon of me is not lTrackingIcon then set the icon of me to lTrackingIcon if lTrackingIcon is the cUpIcon of me then hAddToField else if lTrackingIcon is the cDownIcon of me then hSubtractFromField end if else set the icon of me to the cIcon of me end if end if pass mouseMove end mouseMove on mousedown if the mouseV < (the top of me + 10) then put the cUpIcon of me into lTrackingIcon else put the cDownIcon of me into lTrackingIcon set the icon of me to lTrackingIcon if lTrackingIcon is the cUpIcon of me then hAddToField else if lTrackingIcon is the cDownIcon of me then hSubtractFromField put true into lTracking if "hTimeMove" is not in the pendingMessages then send "hTimeMove" to me in 250 milliseconds put the result into lCancelID end mousedown on hTimeMove if not lTracking then exit hTimeMove if the icon of me is the cUpIcon of me then hAddToField else if the icon of me is the cDownIcon of me then hSubtractFromField if "hTimeMove" is not in the pendingMessages then send "hTimeMove" to me in 50 milliseconds put the result into lCancelID end hTimeMove on mouseRelease mouseUp end mouseRelease on hAddToField if the text of the fld (the cTargetField of me) < the cMaxValue of fld (the cTargetField of me) then add 1 to fld (the cTargetField of me) send "closeField" to fld (the cTargetField of me) end hAddToField on hSubtractFromField if the text of the fld (the cTargetField of me) > the cMinValue of fld (the cTargetField of me) then subtract 1 from fld (the cTargetField of me) send "closeField" to fld (the cTargetField of me) end hSubtractFromField b revButton falsecUpIcon 201319cIcon 201317 cDownIcon 201318 cTargetField modal title revbasic false e cREVGeneral scriptChecksum 8P )}n\K revUniqueID 1025584460819 bookmarks handlerList omouseUp mouseDoubleUp mouseDoubleDown mouseMove mousedown hTimeMove mouseRelease hAddToField hSubtractFromFieldscriptSelection char 677 to 676 prevHandler mouseMove tempScript scriptlocal lTrackingIcon, lTracking, lCancelID
on mouseUp
cancel lCancelID
put false into lTracking
set the icon of me to the cIcon of me
end mouseUp
on mouseDoubleUp
mouseUp
end mouseDoubleUp
on mouseDoubleDown
mouseDown
end mouseDoubleDown
on mouseMove x,y
if lTracking then
put x,y into tLoc
if within (me,tLoc) then
if the icon of me is not lTrackingIcon then
set the icon of me to lTrackingIcon
if lTrackingIcon is the cUpIcon of me then hAddToField
else if lTrackingIcon is the cDownIcon of me then hSubtractFromField
end if
else
set the icon of me to the cIcon of me
end if
end if
pass mouseMove
end mouseMove
on mousedown
if the mouseV < (the top of me + 10) then put the cUpIcon of me into lTrackingIcon
else put the cDownIcon of me into lTrackingIcon
set the icon of me to lTrackingIcon
if lTrackingIcon is the cUpIcon of me then hAddToField
else if lTrackingIcon is the cDownIcon of me then hSubtractFromField
put true into lTracking
if "hTimeMove" is not in the pendingMessages then send "hTimeMove" to me in 250 milliseconds
put the result into lCancelID
end mousedown
on hTimeMove
if not lTracking then exit hTimeMove
if the icon of me is the cUpIcon of me then hAddToField
else if the icon of me is the cDownIcon of me then hSubtractFromField
if "hTimeMove" is not in the pendingMessages then send "hTimeMove" to me in 50 milliseconds
put the result into lCancelID
end hTimeMove
on mouseRelease
mouseUp
end mouseRelease
on hAddToField
if the text of the fld (the cTargetField of me) < the cMaxValue of fld (the cTargetField of me) then add 1 to fld (the cTargetField of me)
send "closeField" to fld (the cTargetField of me)
end hAddToField
on hSubtractFromField
if the text of the fld (the cTargetField of me) > the cMinValue of fld (the cTargetField of me) then subtract 1 from fld (the cTargetField of me)
send "closeField" to fld (the cTargetField of me)
end hSubtractFromField
New Field 3 * cREVGeneral revUniqueID 1025584587313 Title New Field 3 * cREVGeneral revUniqueID 1025584621472 Border Little Arrows "B local lTrackingIcon, lTracking, lCancelID on mouseUp cancel lCancelID put false into lTracking set the icon of me to the cIcon of me end mouseUp on mouseDoubleUp mouseUp end mouseDoubleUp on mouseDoubleDown mouseDown end mouseDoubleDown on mouseMove x,y if lTracking then put x,y into tLoc if within (me,tLoc) then if the icon of me is not lTrackingIcon then set the icon of me to lTrackingIcon if lTrackingIcon is the cUpIcon of me then hAddToField else if lTrackingIcon is the cDownIcon of me then hSubtractFromField end if else set the icon of me to the cIcon of me end if end if pass mouseMove end mouseMove on mousedown if the mouseV < (the top of me + 10) then put the cUpIcon of me into lTrackingIcon else put the cDownIcon of me into lTrackingIcon set the icon of me to lTrackingIcon if lTrackingIcon is the cUpIcon of me then hAddToField else if lTrackingIcon is the cDownIcon of me then hSubtractFromField put true into lTracking if "hTimeMove" is not in the pendingMessages then send "hTimeMove" to me in 250 milliseconds put the result into lCancelID end mousedown on hTimeMove if not lTracking then exit hTimeMove if the icon of me is the cUpIcon of me then hAddToField else if the icon of me is the cDownIcon of me then hSubtractFromField if "hTimeMove" is not in the pendingMessages then send "hTimeMove" to me in 50 milliseconds put the result into lCancelID end hTimeMove on mouseRelease mouseUp end mouseRelease on hAddToField if the text of the fld (the cTargetField of me) < the cMaxValue of fld (the cTargetField of me) then add 1 to fld (the cTargetField of me) send "closeField" to fld (the cTargetField of me) end hAddToField on hSubtractFromField if the text of the fld (the cTargetField of me) > the cMinValue of fld (the cTargetField of me) then subtract 1 from fld (the cTargetField of me) send "closeField" to fld (the cTargetField of me) end hSubtractFromField cUpIcon 201319 revButton false cDownIcon 201318cIcon 201317 cTargetField modal border revbasic false e cREVGeneral scriptChecksum 8P )}n\K bookmarks revUniqueID 1025584745776 handlerList omouseUp mouseDoubleUp mouseDoubleDown mouseMove mousedown hTimeMove mouseRelease hAddToField hSubtractFromField tempScript prevHandler hAddToFieldscriptSelection char 677 to 676scriptlocal lTrackingIcon, lTracking, lCancelID
on mouseUp
cancel lCancelID
put false into lTracking
set the icon of me to the cIcon of me
end mouseUp
on mouseDoubleUp
mouseUp
end mouseDoubleUp
on mouseDoubleDown
mouseDown
end mouseDoubleDown
on mouseMove x,y
if lTracking then
put x,y into tLoc
if within (me,tLoc) then
if the icon of me is not lTrackingIcon then
set the icon of me to lTrackingIcon
if lTrackingIcon is the cUpIcon of me then hAddToField
else if lTrackingIcon is the cDownIcon of me then hSubtractFromField
end if
else
set the icon of me to the cIcon of me
end if
end if
pass mouseMove
end mouseMove
on mousedown
if the mouseV < (the top of me + 10) then put the cUpIcon of me into lTrackingIcon
else put the cDownIcon of me into lTrackingIcon
set the icon of me to lTrackingIcon
if lTrackingIcon is the cUpIcon of me then hAddToField
else if lTrackingIcon is the cDownIcon of me then hSubtractFromField
put true into lTracking
if "hTimeMove" is not in the pendingMessages then send "hTimeMove" to me in 250 milliseconds
put the result into lCancelID
end mousedown
on hTimeMove
if not lTracking then exit hTimeMove
if the icon of me is the cUpIcon of me then hAddToField
else if the icon of me is the cDownIcon of me then hSubtractFromField
if "hTimeMove" is not in the pendingMessages then send "hTimeMove" to me in 50 milliseconds
put the result into lCancelID
end hTimeMove
on mouseRelease
mouseUp
end mouseRelease
on hAddToField
if the text of the fld (the cTargetField of me) < the cMaxValue of fld (the cTargetField of me) then add 1 to fld (the cTargetField of me)
send "closeField" to fld (the cTargetField of me)
end hAddToField
on hSubtractFromField
if the text of the fld (the cTargetField of me) > the cMinValue of fld (the cTargetField of me) then subtract 1 from fld (the cTargetField of me)
send "closeField" to fld (the cTargetField of me)
end hSubtractFromField
Done Epon mouseUp put fld "toplevel title",fld "toplevel border" into tArray["toplevel"] put fld "modeless title",fld "modeless border" into tArray["modeless"] put fld "palette title",fld "palette border" into tArray["palette"] put fld "modal title",fld "modal border" into tArray["modal"] set the customProperties["cWindow"} of stack "revScreenGrabber" to tArray close this stack end mouseUp 6 cREVGeneral scriptChecksum #E ˲roI\ bookmarks revUniqueID 1025585560390 handlerList mouseUpscriptSelection char 367 to 366 prevHandler tempScript scripton mouseUp
put fld "toplevel title",fld "toplevel border" into tArray["toplevel"]
put fld "modeless title",fld "modeless border" into tArray["modeless"]
put fld "palette title",fld "palette border" into tArray["palette"]
put fld "modal title",fld "modal border" into tArray["modal"]
set the customProperties["cWindow"} of stack "revScreenGrabber" to tArray
close this stack
end mouseUp