on mouseUp
put the short name of the target into tPick
put "revPropertyPalette 1" into stackName
-- open Inspector palette if it isn't already open
if the openStacks contains stackName is false then
send "revBuildPropertyPalette" to stack "revTemplatePalette"
else
send revUpdateTabs to stack stackName
end if
send mouseDown to btn "Section" of stack stackName
put btn "Section" of stack stackName into tList
put lineOffset(tPick, tList) into lineNum
if lineNum > 0 then
set the menuHistory of btn "Section" of stack stackName to lineNum
else
beep
end if
end mouseUp
P--> all handlers on preOpenStack set the style of this stack to palette end preOpenStack on openStack send setTopleft to me end openStack on moveStack set the cTopLeft of this stack to the topleft of this stack save this stack end moveStack on setTopLeft put the cTopLeft of this stack into newTopLeft set the topleft of this stack to newTopLeft end setTopLeft d ( cConsLastHandlerName setTopLeftcConsLastHandlerScroll 0 cREVGeneral scriptChecksum Y ;OWp bookmarks handlerList *openStack moveStack setTopLeft makePalette tempScript prevHandler openStackscriptSelection char 80 to 79script @on openStack
send setTopleft to me
send makePalette to me in 5 milliseconds
end openStack
on moveStack
set the cTopLeft of this stack to the topleft of this stack
save this stack
end moveStack
on setTopLeft
put the cTopLeft of this stack into newTopLeft
set the topleft of this stack to newTopLeft
end setTopLeft
on makePalette
lock messages
palette this stack
show this stack
end makePalette
Basic Properties eg cConsLastHandlerName cConsLastHandlerScroll 0 Basic Properties B cREVGeneral revUniqueID 1071613581071 Contents eg cConsLastHandlerName cConsLastHandlerScroll 0 Contents C cREVGeneral revUniqueID 1071613633139 Table eg ( cConsLastHandlerName cConsLastHandlerScroll 0 Table T cREVGeneral revUniqueID 1071613633140 bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0script Icons & Border eg < cConsLastHandlerName cConsLastHandlerScroll 0 Icons & Border I cREVGeneral revUniqueID 1071613633141 bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0script Colors & Patterns eg cConsLastHandlerName cConsLastHandlerScroll 0 Colors & Patterns Co cREVGeneral revUniqueID 1071613648460 bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0script Custom Properties eg cConsLastHandlerName cConsLastHandlerScroll 0 Custom Properties P cREVGeneral revUniqueID 1071613658427 Size & Position eg ( cConsLastHandlerName cConsLastHandlerScroll 0 Size & Position S cREVGeneral revUniqueID 1071613658428 Text Formatting eg < cConsLastHandlerName cConsLastHandlerScroll 0 Text Formatting X cREVGeneral revUniqueID 1071613658429 Align Objects eg P cConsLastHandlerName cConsLastHandlerScroll 0 Align Objects A cREVGeneral revUniqueID 1071613658430 Help ew--> all handlers on mouseUp answer information "This plugin stack is designed to give single-click access " & \ "to the commonly used sections of the Inspector palette." & cr & cr & \ "The 'B' and the bottom row of buttons will work with all objects, " & \ "'C' & 'T' are only for fields, 'I' is only for buttons and " & \ "'A' will only work when multiple objects are selected." & cr & cr & \ "To alter the function of any button," & \ "change it's name to the menu item you want it to pick." with "Check for updates" or "OK" if it is "Check for updates" then send checkForUpdates to img "altPlug.png" end mouseUp P cConsLastHandlerName mouseUpcConsLastHandlerScroll 0 Help ? cREVGeneral scriptChecksum )4KO˙h revUniqueID 1071614833616 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 539 to 538scripton mouseUp
answer information "This plugin stack is designed to give single-click access" & cr & \
"to the commonly used sections of the Inspector palette." & cr & \
"The 'B' and the bottom row of buttons will work with all objects," & cr & \
"'C' & 'T' are only for fields, 'I' is only for buttons and" & cr & \
"'A' will only work when multiple objects are selected." & cr & cr & \
"To alter the function of any button," & cr & \
"change it's name to the menu item you want it to pick."
end mouseUp
altPlug.png P --> all handlers on checkForUpdates put the altVers of me into theCurrentVersion answer info "InspectPanel v." & theCurrentVersion & "
" & cr & \ "Sarah Reichelt, TrozWare, 2005
" & cr & \ cr & "Would you like to check for an update?
" 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 to top end if put URL theURL into theUpdateInfo replace numToChar(13) with cr in theUpdateInfo if line 1 of theUpdateInfo is not "" 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 checkForUpdates 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 "" 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 " cConsLastHandlerName checkForUpdatesaltVers 1.0altOpenVisible truealtPlugFileName InspectPanel.rev altOnClickMe altShowMecConsLastHandlerScroll 0 altUpdateURL 0http://www.troz.net/Rev/plugins/InspectPanel.txt }PNG IHDR szz pHYs iCCPPhotoshop ICC profile xڭk`oZZ(^FY͋8Mjʜ #}$͒S zA<DЃ !z"C ]eϛwo /y7yH/g 8nWOPΜS|F z YވM`XByןߘ_tۃ{{iC@ɑ4sׅk ܬ_OxK;k_yװ\on checkForUpdates
put the altVers of me into theCurrentVersion
answer info "<p><b><font size=+1>InspectPanel 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 to top
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 checkForUpdates
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