on resumeStack
send menuPick && the cStackName of fld "function list" to btn "library chooser"
end resumeStack
cREVLoadInfo load chosenrevPreOpenStack false P4on preOpenCard put the fileName of stack "home" into tFilePath set the itemDel to "/" put "components/save/userscripts" into item -1 of tFilePath set the itemDel to comma put the directory into tSaveDirectory set the directory to tFilePath put the files into tFilesList repeat for each line l in tFilesList if there is a stack l then put char 4 to -1 of the short name of stack l & cr after tStacksList end repeat set the directory to tSaveDirectory delete last char of tStacksList set the text of btn "library chooser" to tStacksList send "menuPick" && line 1 of tStacksList to btn "library chooser" end preOpenCard on resizeStack revUpdateGeometry end resizeStack on arrowKey if the focusedObject is empty then send "arrowKey" to fld "function list" pass arrowKey end arrowKey R revcard false cREVGeometryCacheIDs 1023770954078 2688 964484732502 12431023881100726 170001023882124029 170031023609265210 26831023608987593 2677 964487407132 10061023770908568 2685 964487407133 10091023874805155 26931023609106949 2680 964487407135 10141023882180269 26991023609107051 26811023881189370 17002 964487407137 10181023608987682 26781023874787849 2692 964487407138 2684 964484811619 1244 964487407140 10111023770988091 26891023770908576 26861023876956515 26951023881157810 170011023770988098 26901023878849749 2697 cREVGeneral scriptChecksum mi3I9q(Ia bookmarks handlerList preOpenCard resizeStack arrowKey tempScript prevHandler preOpenCardscriptSelection char 584 to 583script mon preOpenCard
put the fileName of stack "home" into tFilePath
set the itemDel to "/"
put "components/save/userscripts" into item -1 of tFilePath
set the itemDel to comma
put the directory into tSaveDirectory
set the directory to tFilePath
put the files into tFilesList
repeat for each line l in tFilesList
if there is a stack l then put char 4 to -1 of the short name of stack l & cr after tStacksList
end repeat
set the directory to tSaveDirectory
delete last char of tStacksList
set the text of btn "library chooser" to tStacksList
send "menuPick" && line 1 of tStacksList to btn "library chooser"
end preOpenCard
on resizeStack
revUpdateGeometry
end resizeStack
on arrowKey
if the focusedObject is empty
then send "arrowKey" to fld "function list"
pass arrowKey
end arrowKey
cREVGeometryCache total 27order u v x y { | } ~ Bk Bj Bi Bh function list )p!on arrowKey send "mouseUp" to me in 10 milliseconds pass arrowKey end arrowKey on mouseUp lock messages lock screen put the cStackName of me into tStackName set the defaultStack to tStackName put line (the hilitedLines of me) of me into tFunction if tCard is empty then set the defaultStack to "revScriptLibrary" put empty into fld "description" put empty into fld "parameters" put empty into fld "returns" disable fld "returns" disable fld "parameters" disable fld "description" disable btn "edit" unlock screen exit mouseUp else set the defaultStack to "revScriptLibrary" enable fld "parameters" enable fld "returns" enable fld "description" enable btn "delete" end if set the defaultStack to tStackName put the cDescription[tFunction] of stack tStackName into fld "description" of stack "revScriptLibrary" put the cParameters[tFunction] of stack tStackName into fld "parameters" of stack "revScriptLibrary" put the cReturns[tFunction] of stack tStackName into fld "returns" of stack "revScriptLibrary" put the script of stack tStackName into tScript set the caseSensitive to true repeat forever put lineOffset(tFunction,tScript) into tLineNumber put line tLineNumber of tScript into tLine if tScript is "" then exit repeat switch word 1 of tLine case "function" put tFunction&&"function" into tDisplay exit repeat case "on" put tFunction&&"handler" into tDisplay exit repeat break case "setProp" put tFunction&&"setProp" into tDisplay exit repeat break case "getProp" put tFunction&&"getProp" into tDisplay exit repeat break default delete line 1 to tLineNumber of tScript break end switch end repeat set the htmlText of fld "function" of stack "revScriptLibrary" to tDisplay unlock screen end mouseUp cStackName libSoundXMLTexton arrowKey
send "mouseUp" to me in 10 milliseconds
pass arrowKey
end arrowKey
on mouseUp
lock messages
lock screen
put the cStackName of me into tStackName
set the defaultStack to tStackName
put line (the hilitedLines of me) of me into tFunction
if tCard is empty then
set the defaultStack to "revScriptLibrary"
put empty into fld "description"
put empty into fld "parameters"
put empty into fld "returns"
disable fld "returns"
disable fld "parameters"
disable fld "description"
disable btn "edit"
unlock screen
exit mouseUp
else
set the defaultStack to "revScriptLibrary"
enable fld "parameters"
enable fld "returns"
enable fld "description"
enable btn "delete"
end if
set the defaultStack to tStackName
put the cDescription[tFunction] of stack tStackName into fld "description" of stack "revScriptLibrary"
put the cParameters[tFunction] of stack tStackName into fld "parameters" of stack "revScriptLibrary"
put the cReturns[tFunction] of stack tStackName into fld "returns" of stack "revScriptLibrary"
put the script of stack tStackName into tScript
set the caseSensitive to true
repeat forever
put lineOffset(tFunction,tScript) into tLineNumber
put line tLineNumber of tScript into tLine
if tScript is "" then exit repeat
switch word 1 of tLine
case "function"
put tFunction&&"<font color=gray45><b><i>function</i><b></font>" into tDisplay
exit repeat
case "on"
put tFunction&&"<font color=gray45><b><i>handler</i><b></font>" into tDisplay
exit repeat
break
case "setProp"
put tFunction&&"<font color=gray45><b><i>setProp</i><b></font>" into tDisplay
exit repeat
break
case "getProp"
put tFunction&&"<font color=gray45><b><i>getProp</i><b></font>" into tDisplay
exit repeat
break
default
delete line 1 to tLineNumber of tScript
break
end switch
end repeat
set the htmlText of fld "function" of stack "revScriptLibrary" to tDisplay
unlock screen
end mouseUp
cREVGeometry Master,scaleBottomObjectSide BottomMaster trueMaster,scaletopObjectRef Master,scaleLeftObjectRef Master,scaleBottomObjectRef CardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,scaleTopObjectSide centerMaster,scaleLeftObjectSide centerMaster,scalebottomDistance -23Master,expectedRect 6,190,234,434Master,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 mouseDown n ` @ library chooser uNon menuPick pWhich if pWhich is "" then put line 1 of me into pWhich if char 1 to 3 of pWhich is "lib" then put char 4 to -1 of pWhich into pWhich set the label of me to pWhich put "lib" & pWhich into tStackName put the fileName of stack "home" into tFilePath set the itemDel to "/" put "components/save/userscripts" into item -1 of tFilePath set the itemDel to comma put the directory into tSaveDirectory set the directory to tFilePath hide stack tStackName set the directory to tSaveDirectory put the cRevGeneral["handlerList"] of stack tStackName into tFunctions repeat for each line tLine in tFunctions if char 1 to 4 of tLine <> "priv" then put tLine & cr after tPublicFunctions end if end repeat put char 1 to - 2 of tPublicFunctions into fld "function list" put the cContributingAuthors of stack tStackName into fld "contributing authors" put the cLibraryPurpose of stack tStackName into fld "library purpose" put the cVersion of stack tStackName into fld "version" set the cStackName of fld "function list" to tStackName if the cLoad of stack tStackName is "" then set the hilite of btn "Load" to true else set the hilite of btn "Load" to the cLoad of stack tStackName end if set the hilitedLines of fld "function list" to 1 send "mouseUp" to fld "function list" end menuPick Sound KCursor DataChecking iCoachDataAPI iCoachRowing PDF SMTP Sound Stat XMLText cREVGeneral scriptChecksum *.JinLc revUniqueID 964487407133 bookmarks handlerList menuPickscriptSelection char 71 to 70 prevHandler menuPick tempScript scripton menuPick pWhich
if pWhich is "" then put line 1 of me into pWhich
if char 1 to 3 of pWhich is "lib" then put char 4 to -1 of pWhich into pWhich
set the label of me to pWhich
put "lib" & pWhich into tStackName
put the fileName of stack "home" into tFilePath
set the itemDel to "/"
put "components/save/userscripts" into item -1 of tFilePath
set the itemDel to comma
put the directory into tSaveDirectory
set the directory to tFilePath
hide stack tStackName
set the directory to tSaveDirectory
put the cRevGeneral["handlerList"] of stack tStackName into tFunctions
repeat for each line tLine in tFunctions
if char 1 to 4 of tLine <> "priv" then
put tLine & cr after tPublicFunctions
end if
end repeat
put char 1 to - 2 of tPublicFunctions into fld "function list"
put the cContributingAuthors of stack tStackName into fld "contributing authors"
put the cLibraryPurpose of stack tStackName into fld "library purpose"
put the cVersion of stack tStackName into fld "version"
set the cStackName of fld "function list" to tStackName
if the cLoad of stack tStackName is "" then
set the hilite of btn "Load" to true
else
set the hilite of btn "Load" to the cLoad of stack tStackName
end if
set the hilitedLines of fld "function list" to 1
send "mouseUp" to fld "function list"
end menuPick
description )p on closeField put line (the hilitedLines of fld "function list") of fld "function list" into tFunction put the cStackName of fld "function list" into tStackName set the cDescription[tFunction] of stack tStackName to me save stack tStackName end closeField Ra ] cREVGeometry Master,scaleBottomObjectSide BottomMaster trueMaster,scaletopObjectRef Master,scaleLeftObjectRef Master,scaleBottomObjectRef CardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,scaleTopObjectSide centerMaster,scaleLeftObjectSide centerMaster,scalebottomDistance -23Master,expectedRect 236,338,539,438Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -5Master,scaleLeftAbsolute false Master,scaleRightObjectSide RightMaster,scaleRightObjectRef CardMaster,scaleTopAbsolute falseMaster,scaleLeft falseMaster,scaleTop falseMaster,cardRanking 2Master,scaletopDistance 0Master,scaleleftDistance 0 cREVGeneral scriptChecksum #u5xߞ2&USC revUniqueID 964487407140 bookmarks handlerList closeFieldscriptSelection char 265 to 264 prevHandler closeField tempScript script 9on closeField
put line (the hilitedLines of fld "function list") of fld "function list" into tFunction
put the cStackName of fld "function list" into tStackName
set the cDescription[tFunction] of stack tStackName to me
save stack tStackName
end closeField
If you handle the mouseDown message just make sure it is passed unless you want to override the sound management for that object. p ` @ <S [ New Field 3 @ g cREVGeneral revUniqueID 964487407135 Documentation: New g X on mouseUp ask "Please name the new library:" if it is empty then exit mouseUp put "lib" & it into tNewName put the fileName of stack "home" into tFilePath set the itemDel to "/" put "components/save/userscripts" into item -1 of tFilePath set the itemDel to comma put the directory into tSaveDirectory set the directory to tFilePath set the name of the templateStack to tNewName set the destroyStack of the templateStack to false set the visible of the templateStack to false create stack reset the templateStack set the mainStack of stack tNewName to tNewName save stack tNewName as (the directory & "/" & tNewName & ".rev") set the directory to tSaveDirectory lock screen preOpencard send "menuPick" && tNewName to btn "library chooser" of stack "revScriptLibrary" set the label of btn "library chooser" of stack "revScriptLibrary" to char 4 to -1 of tNewName unlock screen end mouseUp @8 d Bj New Library... cREVGeneral scriptChecksum {MY]+ revUniqueID 964487407137 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 11 to 10script kon mouseUp
ask "Please name the new library:"
if it is empty then exit mouseUp
put "lib" & it into tNewName
put the fileName of stack "home" into tFilePath
set the itemDel to "/"
put "components/save/userscripts" into item -1 of tFilePath
set the itemDel to comma
put the directory into tSaveDirectory
set the directory to tFilePath
set the name of the templateStack to tNewName
set the destroyStack of the templateStack to false
set the visible of the templateStack to false
create stack
reset the templateStack
set the mainStack of stack tNewName to tNewName
save stack tNewName as (the directory & "/" & tNewName & ".rev")
set the directory to tSaveDirectory
lock screen
preOpencard
send "menuPick" && tNewName to btn "library chooser" of stack "revScriptLibrary"
set the label of btn "library chooser" of stack "revScriptLibrary" to char 4 to -1 of tNewName
unlock screen
end mouseUp
New Field 3 y cREVGeneral revUniqueID 964484732502 Library Contents: New Button Ag G cREVGeometry Master,scaleBottomObjectSide centerMaster trueMaster,scaletopObjectRef Master,scaleLeftObjectRef Master,scaleBottomObjectRef Master,scaleBottomAbsolute falseMaster,scaleBottom falseMaster,scaleTopObjectSide centerMaster,scaleLeftObjectSide centerMaster,scalebottomDistance 0Master,expectedRect 3,118,500,120Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -8Master,scaleLeftAbsolute false Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,scaleTopAbsolute falseMaster,scaleLeft falseMaster,scaleTop falseMaster,cardRanking 1Master,scaletopDistance 0Master,scaleleftDistance 0 cREVGeneral revUniqueID 964484811619 u New Field 3 g cREVGeneral revUniqueID 1023608987593 Returns: v returns )pon closeField put line (the hilitedLines of fld "function list") of fld "function list" into tFunction put the cStackName of fld "function list" into tStackName set the cReturns[tFunction] of stack tStackName to me save stack tStackName end closeField a ( cREVGeometry Master,scaleBottomObjectSide BottomMaster trueMaster,scaleLeftObjectRef Master,scaletopObjectRef Master,scaleBottomObjectRef Master,scaleBottomAbsolute trueMaster,scaleBottom falseMaster,scaleLeftObjectSide centerMaster,scaleTopObjectSide centerMaster,expectedRect 236,142,500,196Master,scalebottomDistance -31Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -5Master,scaleTopAbsolute falseMaster,scaleRightObjectRef Card Master,scaleRightObjectSide RightMaster,scaleLeftAbsolute falseMaster,scaleTop falseMaster,scaleLeft falseMaster,cardRanking 1Master,scaleleftDistance 0Master,scaletopDistance 0 cREVGeneral scriptChecksum ʲܦ PۨI bookmarks revUniqueID 1023608987682 handlerList closeField tempScript prevHandler closeFieldscriptSelection char 184 to 183script 5on closeField
put line (the hilitedLines of fld "function list") of fld "function list" into tFunction
put the cStackName of fld "function list" into tStackName
set the cReturns[tFunction] of stack tStackName to me
save stack tStackName
end closeField
w ` @ < & x New Field 3 g cREVGeneral revUniqueID 1023609106949 Parameters: y parameters )pon closeField put line (the hilitedLines of fld "function list") of fld "function list" into tFunction put the cStackName of fld "function list" into tStackName set the cParameters[tFunction] of stack tStackName to me save stack tStackName end closeField a ( cREVGeometry Master,scaleBottomObjectSide BottomMaster trueMaster,scaletopObjectRef Master,scaleLeftObjectRef Master,scaleBottomObjectRef Master,scaleBottomAbsolute trueMaster,scaleBottom falseMaster,scaleTopObjectSide centerMaster,scaleLeftObjectSide centerMaster,scalebottomDistance -31Master,expectedRect 236,72,500,126Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -5Master,scaleLeftAbsolute false Master,scaleRightObjectSide RightMaster,scaleRightObjectRef CardMaster,scaleTopAbsolute falseMaster,scaleLeft falseMaster,scaleTop falseMaster,cardRanking 1Master,scaletopDistance 0Master,scaleleftDistance 0 cREVGeneral scriptChecksum -IvWܣM revUniqueID 1023609107051 bookmarks handlerList closeFieldscriptSelection char 1 to 0 prevHandler closeField tempScript script 8on closeField
put line (the hilitedLines of fld "function list") of fld "function list" into tFunction
put the cStackName of fld "function list" into tStackName
set the cParameters[tFunction] of stack tStackName to me
save stack tStackName
end closeField
z ` @ < & { Edit g X Yon mouseUp edit the script of stack the cStackName of fld "function list" end mouseUp @ e Bi Edit the script cREVGeometry Master,expectedRect 4,145,230,165Master,movevDistance 155Master,moveVObjectSide TopMaster,movehDistance -0.263366Master,moveHObjectSide centerMaster trueMaster,moveVObjectRef cardMaster,moveHObjectRef Master,moveVAbsolute trueMaster,cardRanking 1 Master,moveV trueMaster,moveHAbsolute false Master,moveH false cREVGeneral scriptChecksum =t}MfL bookmarks revUniqueID 1023609265210 handlerList mouseUpscriptSelection prevHandler mouseUp tempScript script ton mouseUp
edit the script of stack the cStackName of fld "function list"
end mouseUp
| Delete g X on mouseUp put the cStackName of fld "function list" into tStackName answer warning "Really delete library" && char 4 to -1 of tStackName & "? This cannot be undone." with "Cancel" or "Delete" if it is "cancel" then exit mouseUp put the fileName of stack tStackName into tFilePath delete stack tStackName delete file tFilePath set the defaultStack to "revScriptLibrary" preOpenCard end mouseUp @ ^ Bh Delete Library cREVGeneral scriptChecksum {^=p Fޣ revUniqueID 964487407138 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 1 to 0scripton mouseUp
put the cStackName of fld "function list" into tStackName
answer warning "Really delete library" && char 4 to -1 of tStackName & "? This cannot be undone." with "Cancel" or "Delete"
if it is "cancel" then exit mouseUp
put the fileName of stack tStackName into tFilePath
delete stack tStackName
delete file tFilePath
set the defaultStack to "revScriptLibrary"
preOpenCard
end mouseUp
} New Field 3 cREVGeneral revUniqueID 1023770908568 )Library Purpose & General Documentation: ~ library purpose )p on closeField put the cStackName of fld "function list" into tStackName set the cLibraryPurpose of stack tStackName to me save stack tStackName end closeField 0a v cREVGeometry Master,scaleBottomObjectSide BottomMaster trueMaster,scaleLeftObjectRef Master,scaletopObjectRef Master,scaleBottomObjectRef Master,scaleBottomAbsolute trueMaster,scaleBottom falseMaster,scaleLeftObjectSide centerMaster,scaleTopObjectSide centerMaster,expectedRect 236,72,500,126Master,scalebottomDistance -31Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -5Master,scaleTopAbsolute falseMaster,scaleRightObjectRef Card Master,scaleRightObjectSide RightMaster,scaleLeftAbsolute falseMaster,scaleTop falseMaster,scaleLeft falseMaster,cardRanking 1Master,scaleleftDistance 0Master,scaletopDistance 0 cREVGeneral scriptChecksum yƷo]ia bookmarks revUniqueID 1023770908576 handlerList closeField tempScript prevHandler closeFieldscriptSelection char 100 to 99scripton closeField
put the cStackName of fld "function list" into tStackName
set the cLibraryPurpose of stack tStackName to me
save stack tStackName
end closeField
*Library for the management of GUI sounds. ` @ < 1 t New Button Ag G cREVGeometry Master,scaleBottomObjectSide centerMaster trueMaster,scaletopObjectRef Master,scaleLeftObjectRef Master,scaleBottomObjectRef Master,scaleBottomAbsolute falseMaster,scaleBottom falseMaster,scaleTopObjectSide centerMaster,scaleLeftObjectSide centerMaster,scalebottomDistance 0Master,expectedRect 4,28,501,30Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -7Master,scaleLeftAbsolute false Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,scaleTopAbsolute falseMaster,scaleLeft falseMaster,scaleTop falseMaster,cardRanking 1Master,scaletopDistance 0Master,scaleleftDistance 0 cREVGeneral revUniqueID 1023770954078 New Field 3 cREVGeneral revUniqueID 1023770988091 Contributing Authors: contributing authors )p on closeField put the cStackName of fld "function list" into tStackName set the cContributingAuthors of stack tStackName to me save stack tStackName end closeField 0 F cREVGeometry Master,scaleBottomObjectSide Master trueMaster,scaletopObjectRef Master,scaleLeftObjectRef Master,scaleBottomObjectRef Master,scaleBottomAbsolute Master,scaleBottom falseMaster,scaleTopObjectSide Master,scaleLeftObjectSide Master,scalebottomDistance Master,expectedRect 4,48,232,92Master,scaleRightAbsolute Master,scaleRight falseMaster,scalerightDistance Master,scaleLeftAbsolute Master,scaleRightObjectSide Master,scaleRightObjectRef Master,scaleTopAbsolute Master,scaleLeft falseMaster,scaleTop falseMaster,cardRanking 0Master,scaletopDistance Master,scaleleftDistance cREVGeneral scriptChecksum |q revUniqueID 1023770988098 bookmarks handlerList closeFieldscriptSelection char 17 to 154 prevHandler closeField tempScript scripton closeField
put the cStackName of fld "function list" into tStackName
set the cContributingAuthors of stack tStackName to me
save stack tStackName
end closeField
VMonte Goulding, mailto:monte@sweattechnologies.com, http://www.sweattechnologies.com; ` @ 1 D New Field 3 y k cREVGeneral revUniqueID 1023874787849 Version Number: version )p on closeField put the cStackName of fld "function list" into tStackName set the cVersion of stack tStackName to me save stack tStackName end closeField ] z cREVGeometry Master,scaleBottomObjectSide BottomMaster trueMaster,scaleLeftObjectRef Master,scaletopObjectRef Master,scaleBottomObjectRef Master,scaleBottomAbsolute trueMaster,scaleBottom falseMaster,scaleLeftObjectSide centerMaster,scaleTopObjectSide centerMaster,expectedRect 4,48,232,114Master,scalebottomDistance -31Master,scaleRightAbsolute trueMaster,scaleRight falseMaster,scalerightDistance -5Master,scaleTopAbsolute falseMaster,scaleRightObjectRef Master,scaleRightObjectSide RightMaster,scaleLeftAbsolute falseMaster,scaleTop falseMaster,scaleLeft falseMaster,cardRanking 0Master,scaleleftDistance 0Master,scaletopDistance 0 cREVGeneral scriptChecksum Se97 bookmarks revUniqueID 1023874805155 handlerList closeField tempScript prevHandler closeFieldscriptSelection char 14 to 13scripton closeField
put the cStackName of fld "function list" into tStackName
set the cVersion of stack tStackName to me
save stack tStackName
end closeField
0.1 Load `e on mouseUp put the cStackName of fld "function list" into tStackName set the cLoad of stack tStackName to the hilite of me save stack tStackName end mouseUp Load library at startup cREVGeneral scriptChecksum n=1@ revUniqueID 1023876956515 bookmarks handlerList mouseUp tempScript prevHandler scriptSelection char 125 to 124scripton mouseUp
put the cStackName of fld "function list" into tStackName
set the cLoad of stack tStackName to the hilite of me
save stack tStackName
end mouseUp
function ` cREVGeometry Master,scaleBottomObjectSide centerMaster trueMaster,scaleLeftObjectRef Master,scaletopObjectRef Master,scaleBottomObjectRef Master,scaleBottomAbsolute falseMaster,scaleBottom falseMaster,scaleLeftObjectSide RightMaster,scaleTopObjectSide centerMaster,expectedRect 236,176,522,206Master,scalebottomDistance 0Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -6Master,scaleTopAbsolute falseMaster,scaleRightObjectRef Card Master,scaleRightObjectSide RightMaster,scaleLeftAbsolute trueMaster,scaleTop falseMaster,scaleLeft falseMaster,cardRanking 1Master,scaleleftDistance -292Master,scaletopDistance 0 cREVGeneral revUniqueID 1023878849749 mouseDown handler @ ffccbb HTML g X |on mouseUp if the platform is "MacOS" then put "MSIEHTML" into tFilter else put "*.html" into tFilter end if ask file "Save HTML Documentation as:" with filter tFilter if it is "" or the result is "cancel" then exit mouseUp put "file:"&it into tURL set the itemDel to "." if the number of items of tURL > 1 then if not(item -1 of tURL is "htm" or item -1 of tURL is "html") then put "html" into item -1 of tURL end if else put ".html" after tURL end if put the cStackName of fld "function list" into tStackName put replaceText(replaceText(the cContributingAuthors of stack tStackName,","," "),";",cr) into tAuthors repeat for each word tWord in tAuthors switch char 1 to 7 of tWord case "http://" case "mailto:" replace tWord with ""&tWord&"" in tAuthors break end switch end repeat put "Version "& the cVersion of stack tStackName& "
" & \ ""& replaceText(tAuthors,cr,"
") & "
"&\
replaceText(the cLibraryPurpose of stack tStackName,cr,"
") &"
"& replaceText(the cParameters[tLine] of stack tStackName,cr,"
")&"
"& replaceText(the cReturns[tLine] of stack tStackName,cr,"
")&"
"& replaceText(the cDescription[tLine] of stack tStackName,cr,"
")&"
on mouseUp
if the platform is "MacOS" then
put "MSIEHTML" into tFilter
else
put "*.html" into tFilter
end if
ask file "Save HTML Documentation as:" with filter tFilter
if it is "" or the result is "cancel" then exit mouseUp
put "file:"&it into tURL
set the itemDel to "."
if the number of items of tURL > 1 then
if not(item -1 of tURL is "htm" or item -1 of tURL is "html") then
put "html" into item -1 of tURL
end if
else
put ".html" after tURL
end if
put the cStackName of fld "function list" into tStackName
put replaceText(replaceText(the cContributingAuthors of stack tStackName,","," "),";",cr) into tAuthors
repeat for each word tWord in tAuthors
switch char 1 to 7 of tWord
case "http://"
case "mailto:"
replace tWord with "<a href="&tWord&">"&tWord&"</a>" in tAuthors
break
end switch
end repeat
put "<html><head><title>Script Library Documentation - " & tStackName & "</title>"& the cStyle of me &"<head><body><h1>" & \
"Script Library Documentation - " & tStackName &"</h1><p><b>Version "& the cVersion of stack tStackName& "</b></p>" & \
"<h2>Contributing Authors</h2><p>"& replaceText(tAuthors,cr,"<br/>") & "</p><h2>Library Purpose and General Documetation</h2><p>"&\
replaceText(the cLibraryPurpose of stack tStackName,cr,"<br/>") &"</p><h2>Functions and Handlers</h2>" into tHTML
put fld "function list" into tFunctions
put the script of stack tStackName into tScript
repeat for each line tLine in tFunctions
put "<h3>"&getName(tLine,tScript)&"</h3>" after tHTML
if the cParameters[tLine] of stack tStackName <> "" then put "<h4>Parameters</h4><p>"& replaceText(the cParameters[tLine] of stack tStackName,cr,"<br/>")&"</p>" after tHTML
if the cReturns[tLine] of stack tStackName <> "" then put "<h4>Returns</h4><p>"& replaceText(the cReturns[tLine] of stack tStackName,cr,"<br/>")&"</p>" after tHTML
if the cDescription[tLine] of stack tStackName <> "" then put "<h4>Documentation</h4><p>"& replaceText(the cDescription[tLine] of stack tStackName,cr,"<br/>")&"</p>" after tHTML
end repeat
put "</body></html>" after tHTML
put tHTML into url tURL
end mouseUp
function getName pFunction,pScript
set the caseSensitive to true
repeat forever
put lineOffset(pFunction,pScript) into tLineNumber
put line tLineNumber of pScript into tLine
if pScript is "" then exit repeat
switch word 1 of tLine
case "function"
put pFunction&&"(function)" into tName
exit repeat
case "on"
put pFunction&&"(handler)" into tName
exit repeat
break
case "setProp"
put pFunction&&"(setProp)" into tName
exit repeat
break
case "getProp"
put pFunction&&"(getProp)" into tName
exit repeat
break
default
delete line 1 to tLineNumber of pScript
break
end switch
end repeat
return tName
end getName
Bk ftv2doc.gif @ GIF89a ! , tpI8m 'H)p"y @)r@j @#f\!i!0 N tZ%