altShowMe
codeon altShowMe
send mouseUp to btn "Active"
if the label of btn "Edit" = "Done" then send mouseUp to btn "Edit"
else send setTopleft to btn "Edit"
end altShowMe
checksum ϱ p;whandler_scroll 0dirty false handler_line 1 varChecking falsescroll 0 parent stack revFKey object name revFKeychunk char 1 to 12 of field 5 immed stack revFKey cConsNo SetPropsForArchive 1CompilesForSave 2CompilesForArchive 4SetPropsForSave 1 cConsLast HandlerScroll 0 HandlerName uRIP creator Sarah Reichelt copyright #Sarah Reichelt, TrozWare, 2003-2005home http://www.troz.net/Rev/updateInfoUrl .http://www.troz.net/Rev/plugins/RipUpdates.txt downloadUrl *http://www.troz.net/Rev/plugins/FunKey.rev description @Plugin allowing script snippets to be assigned to function keys.date 2005,9,4version 1.2 cREVLoadInfo load choseninMenu truerevResizeStack falsemode Palette cREVGeneral scriptChecksum awo0. debugObjects breakPoints handlerList altShowMescriptSelection char 166 to 165 bookmarks tempScript prevHandler moveStackscripton altShowMe
send mouseUp to btn "Active"
if the label of btn "Edit" = "Done" then send mouseUp to btn "Edit"
else send setTopleft to btn "Edit"
end altShowMe
Pon openStack altShowMe end openStack on moveStack if the label of btn "Edit" = "Done" then set the cDonePoint of this stack to the topLeft of this stack else set the cEditPoint of this stack to the topleft of this stack end if save this stack end moveStack on closeStack altShowMe save this stack end closeStack on closeField if the short name of the target contains "Title" then buildMenu save this stack end closeField on buildMenu lock screen put the menuHistory of btn "Select" into storedMenu put empty into tList repeat with x = 1 to 12 put fld ("Title " & x) into tName put "F" & x into tKey if word 1 of tName <> tKey then put tKey & space before tName put tName & cr after tList if x = 4 or x = 8 then put "-" & cr after tList end repeat put tList into btn "Select" set the menuHistory of btn "Select" to storedMenu end buildMenu cGlxGeneral handlers jopenStack
moveStack
closeStack
closeField
buildMenu
codeon openStack
altShowMe
end openStack
on moveStack
if the label of btn "Edit" = "Done" then
set the cDonePoint of this stack to the topleft of this stack
else
set the cEditPoint of this stack to the topleft of this stack
end if
save this stack
end moveStack
on closeStack
altShowMe
save this stack
end closeStack
on closeField
if the short name of the target contains "Title" then buildMenu
save this stack
end closeField
on buildMenu
lock screen
put the menuhistory of btn "Select" into storedMenu
put empty into tList
repeat with x = 1 to 12
put fld ("Title " & x) into tName
put "F" & x into tKey
if word 1 of tName <> tKey then put tKey & space before tName
put tName & cr after tList
if x = 4 or x = 8 then put "-" & cr after tList
end repeat
put tList into btn "Select"
set the menuhistory of btn "Select" to storedMenu
end buildMenu
checksum @NˠOӤw Şhandler_scroll 0dirty false handler_line 1 varChecking falsescroll 0 parent stack revFKey object name card id 1002chunk char 1 to 12 of field 5 immed stack revFKey cREVGeneral scriptChecksum ϩNg % bookmarks breakPoints handlerList 3openStack moveStack closeStack closeField buildMenu tempScript prevHandler moveStackscriptSelection char 303 to 302scripton openStack
altShowMe
end openStack
on moveStack
if the label of btn "Edit" = "Done" then
set the cDonePoint of this stack to the topLeft of this stack
else
set the cEditPoint of this stack to the topleft of this stack
end if
save this stack
end moveStack
on closeStack
altShowMe
save this stack
end closeStack
on closeField
if the short name of the target contains "Title" then buildMenu
save this stack
end closeField
on buildMenu
lock screen
put the menuHistory of btn "Select" into storedMenu
put empty into tList
repeat with x = 1 to 12
put fld ("Title " & x) into tName
put "F" & x into tKey
if word 1 of tName <> tKey then put tKey & space before tName
put tName & cr after tList
if x = 4 or x = 8 then put "-" & cr after tList
end repeat
put tList into btn "Select"
set the menuHistory of btn "Select" to storedMenu
end buildMenu
% ) - 1 5 Active `eion mouseUp put the id of btn "FKeys" into btnID if the hilite of me then if the frontscripts contains btnID is false then insert script of btn "FKeys" into front end if else if the frontscripts contains btnID is true then remove script of btn "FKeys" from front end if end if end mouseUp Function key scripts active cGlxGeneral handlersmouseUp
checksum _ VPl"codeon mouseUp
put the id of btn "FKeys" into btnID
if the hilite of me then
if the frontscripts contains btnID is false then
insert script of btn "FKeys" into front
end if
else
if the frontscripts contains btnID is true then
remove script of btn "FKeys" from front
end if
end if
end mouseUp
dirty falsehandler_scroll 0 varChecking false handler_line 1scroll 0 object name Active parent stack revFKeychunk 4char 214 to 213 of field 5 of stack "revGalaxy code" immed stack revFKey cREVGeneral scriptChecksum &G-^3&A(<( handlerList mouseUp breakPoints scriptSelection char 324 to 323 revUniqueID 1043964125100 bookmarks tempScript prevHandler mouseUpscript Oon mouseUp
put the id of btn "FKeys" into btnID
if the hilite of me then
if the frontScripts contains btnID is false then
insert script of btn "FKeys" into front
end if
else
if the frontScripts contains btnID is true then
remove script of btn "FKeys" from front
end if
end if
end mouseUp
Edit ewo--> all handlers on mouseUp lock screen hide this stack put the topLeft of this stack into tL put the height of this stack into tH if tH = 31 then topLevel this stack set the height of this stack to 255 set the label of me to "Done" send "choose browse tool" to me in 5 ticks repeat with x = 1 to 12 set the lockText of fld ("Title " & x) to false set the lockText of fld ("Script " & x) to false end repeat else palette this stack set the height of this stack to 31 set the label of me to "Edit" repeat with x = 1 to 12 set the lockText of fld ("Title " & x) to true set the lockText of fld ("Script " & x) to true end repeat save this stack end if send "setTopLeft" to me in 5 ticks end mouseUp on setTopLeft if the label of me = "Done" then if the cDonePoint of this stack is a point then put the cDonePoint of this stack into newTopLeft else put tL into newTopLeft end if else palette this stack if the cEditPoint of this stack is a point then put the cEditPoint of this stack into newTopLeft else put tL into newTopLeft end if end if -- check if the new settting puts it outside the window if item 1 of newTopLeft < 0 then put 100 into item 1 of newTopLeft if item 2 of newTopLeft < 0 then put 100 into item 2 of newTopLeft put the screenRect into tRect put item 3 of tRect into tW put item 4 of tRect into tH if item 1 of newTopLeft + the width of this stack > tW then put tW - the width of this stack into item 1 of newTopLeft end if if item 2 of newTopLeft + the height of this stack > tH then put tH - the height of this stack into item 2 of newTopLeft end if if the platform = "MacOS" then -- leave enough room at the top for the menu bar if item 1 of newTopLeft < 44 then put 44 into item 1 of newTopLeft end if set the topleft of this stack to newTopLeft set the iconic of this stack to false show this stack end setTopLeft ( cConsLastHandlerName mouseUp altOnClickMe cConsLastHandlerScroll 02 Edit cGlxGeneral handlers <all handlers
mouseUp
setTopLeft
code b--> all handlers
on mouseUp
lock screen
hide this stack
put the topleft of this stack into tL
put the height of this stack into tH
if tH = 31 then
toplevel this stack
set the height of this stack to 255
set the label of me to "Done"
send "choose browse tool" to me in 5 ticks
repeat with x = 1 to 12
set the locktext of fld ("Title " & x) to false
set the locktext of fld ("Script " & x) to false
end repeat
else
palette this stack
set the height of this stack to 31
set the label of me to "Edit"
repeat with x = 1 to 12
set the locktext of fld ("Title " & x) to true
set the locktext of fld ("Script " & x) to true
end repeat
save this stack
end if
send "setTopLeft" to me in 5 ticks
end mouseUp
on setTopLeft
if the label of me = "Done" then
if the cDonePoint of this stack is a point then
put the cDonePoint of this stack into newTopLeft
else
put tL into newTopLeft
end if
else
palette this stack
if the cEditPoint of this stack is a point then
put the cEditPoint of this stack into newTopLeft
else
put tL into newTopLeft
end if
end if
-- check if the new settting puts it outside the window
if item 1 of newTopLeft < 0 then put 100 into item 1 of newTopLeft
if item 2 of newTopLeft < 0 then put 100 into item 2 of newTopLeft
put the screenrect into tRect
put item 3 of tRect into tW
put item 4 of tRect into tH
if item 1 of newTopLeft + the width of this stack > tW then
put tW - the width of this stack into item 1 of newTopLeft
end if
if item 2 of newTopLeft + the height of this stack > tH then
put tH - the height of this stack into item 2 of newTopLeft
end if
if the platform = "MacOS" then
-- leave enough room at the top for the menu bar
if item 1 of newTopLeft < 44 then put 44 into item 1 of newTopLeft
end if
set the topleft of this stack to newTopLeft
set the iconic of this stack to false
show this stack
end setTopLeft
checksum niѿ^zhandler_scroll 0dirty false handler_line 3 varChecking falsescroll 0 parent stack revFKey object name Editchunk char 794 to 806 of field 5 immed stack revFKey cConsLast HandlerScroll 450 HandlerName setTopLeft command cREVGeneral scriptChecksum ka`W̹$ breakPoints handlerList mouseUp setTopLeftscriptSelection char 1937 to 1936 revUniqueID 1043964160223 bookmarks tempScript prevHandler mouseUpscript 1on mouseUp
lock screen
hide this stack
put the topLeft of this stack into tL
put the height of this stack into tH
if tH = 31 then
topLevel this stack
set the height of this stack to 255
set the label of me to "Done"
send "choose browse tool" to me in 5 ticks
repeat with x = 1 to 12
set the lockText of fld ("Title " & x) to false
set the lockText of fld ("Script " & x) to false
end repeat
else
palette this stack
set the height of this stack to 31
set the label of me to "Edit"
repeat with x = 1 to 12
set the lockText of fld ("Title " & x) to true
set the lockText of fld ("Script " & x) to true
end repeat
save this stack
end if
send "setTopLeft" to me in 5 ticks
end mouseUp
on setTopLeft
if the label of me = "Done" then
if the cDonePoint of this stack is a point then
put the cDonePoint of this stack into newTopLeft
else
put tL into newTopLeft
end if
else
if the cEditPoint of this stack is a point then
put the cEditPoint of this stack into newTopLeft
else
put tL into newTopLeft
end if
end if
-- check if the new settting puts it outside the window
if item 1 of newTopLeft < 0 then put 100 into item 1 of newTopLeft
if item 2 of newTopLeft < 0 then put 100 into item 2 of newTopLeft
put the screenRect into tRect
put item 3 of tRect into tW
put item 4 of tRect into tH
if item 1 of newTopLeft + the width of this stack > tW then
put tW - the width of this stack into item 1 of newTopLeft
end if
if item 2 of newTopLeft + the height of this stack > tH then
put tH - the height of this stack into item 2 of newTopLeft
end if
if the platform = "MacOS" then
-- leave enough room at the top for the menu bar
if item 1 of newTopLeft < 44 then put 44 into item 1 of newTopLeft
end if
set the topleft of this stack to newTopLeft
set the iconic of this stack to false
show this stack
end setTopLeft
Help ew -on mouseUp palette "fKeyHelp" end mouseUp Tabs false2 4Y ? cREVGeneral scriptChecksum $~6Xf}- bookmarks revUniqueID 1043964173113 handlerList mouseUpscriptSelection char 11 to 10 prevHandler mouseUp tempScript scripton mouseUp
palette "fKeyHelp"
end mouseUp
Edit line KF cREVGeneral revUniqueID 1043964307064 bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0script Select u#on menuPick pNew repeat with f = 1 to 12 hide grp ("F" & f & " group") end repeat put char 2 to -1 of word 1 of pNew into tNum put word 1 of pNew into pNew if fld ("Title " & tNum) is empty then put pNew into fld ("Title " & tNum) show grp (pNew & " group") end menuPick ( Tabs false0 F4 - clear F1 - cut F2 - copy F3 - paste F4 - clear - F5 - Browse F6 - Pointer F7 - App Browser F8 - Message Box - F9 - Stack Props F10 - edit stack script F11 - Navigator F12 - open stack cREVGeneral scriptChecksum 2]陪,`zWv bookmarks revUniqueID 1043964503238 handlerList menuPickscriptSelection prevHandler menuPick tempScript scripton menuPick pNew
repeat with f = 1 to 12
hide grp ("F" & f & " group")
end repeat
put char 2 to -1 of word 1 of pNew into tNum
put word 1 of pNew into pNew
if fld ("Title " & tNum) is empty then put pNew into fld ("Title " & tNum)
show grp (pNew & " group")
end menuPick
F5 group a D Selection Description falseTabs false cREVGeneral revUniqueID 1043964671554 Script 5 )` d cREVGeneral revUniqueID 1043964612011 choose browse tool ` e Title 5 i` H Tabs false cREVGeneral scriptChecksum ُ B~ revUniqueID 1043964631287 bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0script F5 - Browse F6 group a D Selection Description falseTabs false cREVGeneral revUniqueID 1043964671554 Script 6 )` d cREVGeneral revUniqueID 1043964612011 choose pointer tool ` e Title 6 i` H Tabs false cREVGeneral revUniqueID 1043964631287 F6 - Pointer F7 group a D Selection Description falseTabs false cREVGeneral revUniqueID 1043964671554 Script 7 )` d cREVGeneral revUniqueID 1043964612011 ^send "menuPick " & quote & "Application Browser" & quote to btn "Tools" of stack "revMenuBar" ` e Title 7 i` H Tabs false cREVGeneral revUniqueID 1043964631287 F7 - App Browser F8 group a D Selection Description falseTabs false cREVGeneral revUniqueID 1043964671554 Script 8 )` d cREVGeneral revUniqueID 1043964612011 go to stack "Message Box" ` e Title 8 i` H Tabs false cREVGeneral bookmarks revUniqueID 1043964631287 handlerList prevHandler tempScript script F8 - Message Box F9 group a D Selection Description falseTabs false cREVGeneral revUniqueID 1043964671554 Script 9 )` d cREVGeneral revUniqueID 1043964612011 [send "menuPick " & quote & "Stack Inspector" & quote to btn "Object" of stack "revMenuBar" ` e Title 9 i` H Tabs false cREVGeneral revUniqueID 1043964631287 F9 - Stack Props F10 group a D Selection Description falseTabs false cREVGeneral revUniqueID 1043964671554 Script 10 )` d cREVGeneral revUniqueID 1043964612011 edit the script of the topstack ` e Title 10 i` H Tabs false cREVGeneral revUniqueID 1043964631287 F10 - edit stack script F11 group a D Selection Description falseTabs false cREVGeneral revUniqueID 1043964671554 Script 11 )` d cREVGeneral revUniqueID 1043964612011 esend "menuPick " & quote & "Plugins|revNavigator" & quote to btn "Development" of stack "revMenuBar" ` e Title 11 i` H Tabs false cREVGeneral revUniqueID 1043964631287 F11 - Navigator F12 group a D Selection Description falseTabs false cREVGeneral revUniqueID 1043964671554 Script 12 )` d cREVGeneral revUniqueID 1043964612011 --- for when a stack is grayed in open dialog answer file "Select a stack:" go to stack it ` e Title 12 i` H Tabs false cREVGeneral revUniqueID 1043964631287 F12 - open stack FKeys Ewzon functionKey pKey put fld ("Script " & pKey) of stack "revFKey" into tScript if tScript is not empty then try do tScript catch errName answer error "The F" & pKey & " script has failed with error:" & cr & errName end try -- pass functionKey else pass functionKey end if end functionKey ( . w cGlxGeneral handlersfunctionKey
checksum YlT 7M0codeon functionKey pKey
put fld ("Script " & pKey) of stack "revFKey" into tScript
if tScript is not empty then
try
do tScript
catch errName
answer error "The F" & pKey & " script has failed with error:" & cr & errName
end try
-- pass functionKey
else
pass functionKey
end if
end functionKey
dirty falsehandler_scroll 0 varChecking false handler_line 1scroll 0 object name FKeys parent stack revFKeychunk 4char 291 to 290 of field 5 of stack "revGalaxy code" immed stack revFKey cREVGeneral scriptChecksum LyܷBˌx8O handlerList functionKey breakPoints scriptSelection char 296 to 295 revUniqueID 1044163685616 bookmarks tempScript prevHandler functionKeyscript jon functionKey pKey
put fld ("Script " & pKey) of stack "revFKey" into tScript
if tScript is not empty then
try
do tScript
catch errName
answer error "The F" & pKey & " script has failed with error:" & cr & errName
end try
end if
pass functionKey
end functionKey
1 F4 group i D Selection Description falseTabs false cREVGeneral revUniqueID 1043964671554 2 Script 4 )` d cREVGeneral revUniqueID 1043964612011 put empty into the selection 3 ` e 4 Title 4 i` H Tabs false cREVGeneral scriptChecksum ُ B~ revUniqueID 1043964631287 bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0script F4 - clear - F3 group a D Tabs falseSelection Description false cREVGeneral revUniqueID 1043964671554 . Script 3 )` d cREVGeneral revUniqueID 1043964612011 paste / ` e 0 Title 3 i` H Tabs false cREVGeneral scriptChecksum ُ B~ bookmarks revUniqueID 1043964631287 handlerList scriptSelection char 1 to 0 prevHandler tempScript script F3 - paste ) F2 group a D Selection Description falseTabs false cREVGeneral revUniqueID 1043964671554 * Script 2 )` d cREVGeneral revUniqueID 1043964612011 copy + ` e , Title 2 i` H Tabs false cREVGeneral scriptChecksum ُ B~ revUniqueID 1043964631287 bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0script F2 - copy % F1 group a D Tabs falseSelection Description false cREVGeneral revUniqueID 1043964671554 & Script 1 )` d cREVGeneral revUniqueID 1043964612011 cut ' ` e ( Title 1 i` H Tabs false cREVGeneral scriptChecksum ُ B~ bookmarks revUniqueID 1043964631287 handlerList scriptSelection char 1 to 0 prevHandler tempScript script F1 - cut 5 altPlug.png PH--> all handlers on mouseUp put the altVers of me into theCurrentVersion put the label of this stack into tStackLabel put the short name of this stack into tStackName put the effective fileName of this stack into tFileName put the altUpdateURL of me into tVersionURL -- open updater stack put the cUpdateStack of this stack into tUpdateBinary go stack tUpdateBinary as palette -- set it's custom properties -- cGadgetName contains the display name for the stack to be updated -- cGadgetVersion contains the current version of the stack to be updated -- cGadgetStack contains the stack name for the stack to be updated -- cGadgetSavePath contains the file path of the gadget being updated -- cGadgetUpdatePath contains the URL for the new stack (acquired during update) set the cGadgetName of stack "TrozWareUpdater" to tStackLabel set the cGadgetVersion of stack "TrozWareUpdater" to theCurrentVersion set the cGadgetStack of stack "TrozWareUpdater" to tStackName set the cGadgetSavePath of stack "TrozWareUpdater" to tFileName set the cGadgetVersionURL of stack "TrozWareUpdater" to tVersionURL set the cGadgetUpdatePath of stack "TrozWareUpdater" to "" -- call it's updater routine send "checkForUpdate" to stack "TrozWareUpdater" end mouseUp A altVers 1.3altOpenVisible truealtPlugFileName FunKey.rev altOnClickMe altShowMe altUpdateURL *http://www.troz.net/Rev/plugins/FunKey.txt PNG IHDR szz pHYs gAMA cHRM n r H o ! 05 Oc) +IDATxDA0@VL:=0ˢ SUHXٝ8PPӝ=&=?ξhfP˙,gb&E`KX`@ ! ;d !0 G F̌` Q =ȧ0" 9HA d X Q@6@ 1gf9ܷ` n14XY*oE{%y?Bh@ H43H34Q|j :O^2(={;2p1>r^ b )1#Y| ܌ 2ȼ| 2O^>KWX~b JcX @,f)349C@;] kFz /T'b8Gʎ,@5 n,4b1+r gAC@SxB{lPY@+` X`q-`@wѷx Rt_| vYΊssxvc' [s/T1,(H?ȥ"@ 0p,~pH 䳗pWVČocaaA Fu ,% 3JRA3_a{OҒal/ ZkCr( @,p5 3Rs5 չ(q Fo OY P $oC+rQ d -./~>G܈ g/,RB,bC)r}\ +eF`X''9[Kf[wf=e<XYܦ "g`r` ڮdF+Qhpi6a DDs6bbfgVR jjgV,lF& uj*(D)j3f @ Ͱ`caǩ]DNjR fZK36 ^]| *uΊR#g90c:ca x1 Y ~`AS )qB f- 3 } 4.YYؐHDr?| 4X,,(U6f [fD V|Z,cvA!^r"9 O| b$68P Gf`cVRD? jzq b6& Nb LRAn# ( -ѻ~06@\HH4R^2#!U9zִ5a!f IENDB` cConsLast prop varChecking falseHandlerScroll 46 HandlerName mouseUp message cREVGeneral scriptChecksum \.1Z f breakPoints handlerList 3mouseUp haveIPconnect getTagData installReplacementscriptSelection char 3295 to 3294 bookmarks revUniqueID 1114209944569 prevHandler mouseUp tempScript script 2 on mouseUp
put the altVers of me into theCurrentVersion
answer info "<p><b><font size=+1>FunKey v." & theCurrentVersion & "</font></b></p>" & cr & \
"<p>© Sarah Reichelt, TrozWare, 2005</p>" & cr & \
cr & "<br><p>Would you like to check for an update?</p>" with "No" or "Check"
if it is "No" then exit to top
set the cursor to watch
put the altOpenVisible of me into theOpenVisible
put the altOpenMode of me into theOpenMode
put the altUpdateURL of me into theURL
set the itemDel to "/"
put item 3 of theURL into theHostName
set the itemDel to comma
put haveIPconnect() into isConnected
if isConnected is false then
exit mouseUp
end if
put URL theURL into theUpdateInfo
replace numToChar(13) with cr in theUpdateInfo
if line 1 of theUpdateInfo is not "<!--AltPlugin-->" then
answer warning "The update information for this gadget is not AltPlugin compatible."
exit to top
end if
put getTagData("version",theUpdateInfo) into theVersion
put getTagData("UpdateURL",theUpdateInfo) into theGadgetURL
if theVersion is theCurrentVersion then
answer info "You are using the current version!" with "Download Again" or "Cancel"
put it into theAnswer
else
answer info "There is a new version available. Would you like to update?" with "Update" or "Cancel"
put it into theAnswer
end if
if theAnswer contains "Update" or theAnswer contains "Download" then
set the cursor to watch
put the effective filename of this stack into theFilePath
put the short name of this stack into theStackName
put "Ready to install new version."
send "installReplacement theGadgetURL,theFilePath" to me in 500 millisecs
end if
end mouseUp
function haveIPconnect
put URL "http://www.troz.net/test.txt" into tCheckConnect
put tCheckConnect = 1 into haveIPconnection
if haveIPConnection is false then
beep
answer warning "Either the server is down or you have no connection to the internet."
end if
return haveIPconnection
end haveIPconnect
function getTagData theTagName,theTagData
put "<" & theTagName & ">" into theOpenTag
put "</" & theTagName & ">" into theCloseTag
filter theTagData with theOpenTag & "*"
put line 1 of theTagData into theTagData
replace theOpenTag with "" in theTagData
replace theCloseTag with "" in theTagData
put URLdecode(theTagData) into theTagData
return theTagData
end getTagData
on installReplacement theGadgetURL,theFilePath
set the cursor to watch
set the itemDel to "/"
put the last item of theGadgetURL into theFileName
put theFileName into the last item of theFilePath
set the itemDel to comma
put the filetype into theFiletype
set the filetype to "revoRSTK"
put "Downloading new version..."
put URL theGadgetURL into tNewFile
put the result into theResult
if the result is not empty then
put "Download error: " & theResult
else if tNewFile is empty then
put "Download error: no data received."
else
put "Saving new version..."
put tNewFile into URL ("binfile:" & theFilePath)
set the filetype to theFileType
set the defaultStack to the short name of this stack
revert
put "Update of plugin" && theFileName && "now complete!"
end if
end installReplacement
fKeyHelp 2 @ ~ ; Tabs falseSelection Description false FunKey Help @U Verdana P on preOpenStack put the topLeft of stack "revFKey" into tL add 16 to item 2 of tL set the topLeft of this stack to tL end preOpenStack cREVGeneral scriptChecksum S$]OrGy bookmarks handlerList preOpenStackscriptSelection char 48 to 47 prevHandler preOpenStack tempScript scripton preOpenStack
put the topLeft of stack "revFKey" into tL
add 16 to item 2 of tL
set the topLeft of this stack to tL
end preOpenStack
Help p on linkClicked pLink put revAppVersion() into revVersion set the itemDel to "." put item 1 of revVersion into revMajor if revMajor < 2 then revGoURL "mailto:" & pLink else revMail pLink,,"FunKey plugin" end if end linkClicked Tabs false cREVGeneral scriptChecksum =Uwqi bookmarks revUniqueID 1044165823348 handlerList linkClickedscriptSelection char 143 to 142 prevHandler linkClicked tempScript scripton linkClicked pLink
put revAppVersion() into revVersion
set the itemDel to "."
put item 1 of revVersion into revMajor
if revMajor < 2 then
revGoURL "mailto:" & pLink
else
revMail pLink,,"FunKey plugin"
end if
end linkClicked
This is a plugin to allow Revolution programmers to assign snippets of code to selected function keys. It is intended for use during development. Click the Edit button to re-name and edit the scripts, selecting the relevant key from the popup menu. The name must start with F and the number of the chosen key. Click Done when you have finished to shrink the window. ,The check box inserts or removes a button script from the front scripts. This script (click Edit and have a look at the FKeys button script) checks if there is a script assigned and trys to run it if so, reporting any errors. If there is no script, the function key message is passed for normal use. I have included some sample scripts that I like to use, but I would expect every programmer to have their own preferences and to script their own, or to re-assign some of the examples to other keys. Mac OS X users: if the function keys are assigned to Expos, hold down any modifier (Shift, Control, Option or Command) when pressing a function key. Then it will get sent to this plugin. mThis plugin has been tested under Mac OS X. Please let me know if it doesn't work properly on other systems. uNow altPlugin & RIP compatible for easy update checks (click Edit & then click the image to check for new versions). Sarah Reichelt, 2003-2005 sarah.reichelt@gmail.com `