REVO2700 revPMManager3"Z e--> all handlers on trozShowClock put the long system time into fld "Time" if the pendingmessages contains "trozShowClock" is false then send "trozShowClock" to me in 30 ticks end trozShowClock on trozShowPending put the pendingmessages into tList put empty into tPending set the usesystemdate to true repeat for each line L in tList put item 1 of L into tID put item 2 of L into tSecs put item 3 of L into tName put item 4 of L into tSource -- cancel any calls to this routine and don't show if tName = "trozShowPending" then cancel tID next repeat end if -- don't show clock update messages if tName = "trozShowClock" then next repeat if the hilite of btn "ShowRev" is false then if char 1 to 3 of tName = "rev" or char 1 to 3 of tName = "glx" then next repeat end if convert tSecs from long seconds to short date and long time put tName & tab & tSecs & tab & tSource & tab & tID & cr after tPending end repeat delete last char of tPending set the itemdel to tab sort tPending dateTime by item 2 of each put the selectedtext of fld "Pending" into tSelection put tPending into fld "Pending" if tSelection is not empty then get lineOffset(tSelection, tPending) if it > 0 then set the hilitedline of fld "Pending" to it else get lineOffset(item 1 of tSelection, tPending) if it > 0 then set the hilitedline of fld "Pending" to it end if end if end if if the hilitedline of fld "Pending" is empty then disable btn "Cancel" disable btn "Edit script" else enable btn "Cancel" enable btn "Edit script" end if if tPending is empty then disable btn "Cancel All" else enable btn "Cancel All" if the hilite of btn "AutoUpdate" then send "trozShowPending" to me in 20 ticks end trozShowPending on altShowMe end altShowMe hhhhhht< cUpdateStack #!/bin/sh # MetaCard 2.4 stack # The following is not ASCII text, # so now would be a good time to q out of more exec mc $0 "$@" TrozWareUpdater2 --> all handlers -- 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 -- cGadgetVersionURL contains the URL to the text file with the version data -- on startup, the gadget needs to fill in these properties -- then call the updater routine on preOpenStack if the short name of this stack = "TrozWareUpdater" then go invisible to me put empty into fld "StackName" put empty into fld "Info" hide btn "Check for update" hide btn "Download again" hide btn "Download Now" hide btn "Cancel" enable btn "Check for update" enable btn "Download again" enable btn "Download Now" enable btn "Cancel" set the loc of me to the screenLoc end if end preOpenStack -- display current version and ask if they want to check for an update -- if so, go online and see if there is a newer version -- on checkForUpdate show stack "TrozWareUpdater" put the cGadgetName of this stack & " v." & the cGadgetVersion of this stack into fld "StackName" put "Would you like to check for an update?" into fld "Info" show btn "Check for update" show btn "Cancel" end checkForUpdate on versionCheck disable btn "Check for update" disable btn "Cancel" set the cursor to watch put the cGadgetVersionURL of this stack into theURL set the itemDel to "/" put item 3 of theURL into theHostName set the itemDel to comma put "Checking for new version..." into fld "Info" put haveIPconnect() into isConnected -- exits directly if this fails put URL theURL into theUpdateInfo replace numToChar(13) with cr in theUpdateInfo put getTagData("version",theUpdateInfo) into theVersion put getTagData("UpdateURL",theUpdateInfo) into theGadgetURL set the cGadgetUpdatePath of me to theGadgetURL hide btn "Check for update" if theVersion = the cGadgetVersion of this stack then put "You are using the current version!" into fld "Info" show btn "Download Again" else put "The version on the server is " & theVersion into fld "Info" show btn "Download Now" end if enable btn "Cancel" end versionCheck -- Updater: -- -- close the existing gadget and remove from memory -- download update & save to same spot -- open updated version -- close updater stack & remove from memory without saving (maybe gadget should do this) -- on doUpdate disable btn "Download Again" disable btn "Download Now" disable btn "Cancel" put checkData() into tCheck if tCheck is not empty then put tCheck into fld "Info" exitUpdate end if close stack (the cGadgetStack of me) delete stack (the cGadgetStack of me) set the cursor to watch set the itemDel to "/" put the cGadgetUpdatePath of me into tGadgetURL put the cGadgetSavePath of me into tGadgetFilePath set the itemDel to comma put the filetype into theFiletype set the filetype to "revoRSTK" put "Downloading new version of " & the cGadgetName of me into fld "Info" put URL tGadgetURL into tNewGadget put the result into theResult if the result is not empty then put "Download error: " & theResult into fld "Info" exitUpdate else if tNewGadget is empty then put "Download error: no data received." into fld "Info" exitUpdate else put "Saving new version..." into fld "Info" put tNewGadget into URL ("binfile:" & tGadgetFilePath) set the filetype to theFileType put "Update of " & the cGadgetName of me & " now complete!" into fld "Info" exitUpdate end if end doUpdate function checkData if the cGadgetName of me is empty then return "Unknown gadget name!" if the cGadgetStack of me is empty then return "Unknown gadget stack!" if the openStacks contains the cGadgetStack of me is false then return "Gadget stack not found!" if the cGadgetSavePath of me is empty then return "Unknown gadget file!" if there is not a file (the cGadgetSavePath of me) then return "Gadget file not found!" if the cGadgetUpdatePath of me is empty then return "Unknown gadget update URL!" return empty end checkData on exitUpdate wait 2 seconds with messages -- so user gets time to read the last message close stack "TrozWareUpdater" if the openStacks contains "TrozWareUpdater" then delete stack "TrozWareUpdater" go stack (the cGadgetSavePath of me) send "altShowMe" to stack (the cGadgetStack of me) exit to top end exitUpdate function haveIPconnect put URL "http://www.troz.net/test.txt" into tCheckConnect put tCheckConnect = 1 into haveIPconnection if haveIPConnection is false then put "Either the server is down or you have no connection to the internet." into fld "Info" exitUpdate 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 word 1 to -1 of theTagData end getTagData hhhhhhSdcGadgetVersionURL'http://www.troz.net/Rev/plugins/PPM.txt cGadgetNamePending Message ManagercGadgetSavePathZ/Applications/Revolution 2.6.1/plugins/gadgets/revConstellation tools/window/2_pending.revcGadgetVersion1.4 cGadgetStack revPMManagercGadgetUpdatePathTrozWare Updater UVerdana WVerdanaWVerdana WLucida Grande WVerdana UVerdana WVerdana cREVGeneral debugObjects breakPoints cConsLastHandlerScroll1736 HandlerNameexitUpdate commandcConsNoSetPropsForArchive7CompilesForSave2CompilesForArchive6SetPropsForSave2 @Sd cConsLastHandlerScroll0 HandlerName Info P( cConsLastHandlerScroll0 HandlerName cREVGeneral revUniqueID 1134684251120  StackName P cConsLastHandlerScroll0 HandlerName cREVGeneral revUniqueID 1134770053029 Check for updateE;--> all handlers on mouseUp versionCheck end mouseUp H cConsLastHandlerScroll0 HandlerNamemouseUp message cREVGeneral revUniqueID 1134770143911 CancelE--> all handlers -- different functions depending on what other button is visible -- on mouseUp disable btn "Check for update" disable btn "Download again" disable btn "Download Now" disable btn "Cancel" if the visible of btn "Check for update" then put "Cancel checking for new version." into fld "Info" else put "Not downloading new version." into fld "Info" end if exitUpdate end mouseUp HR cConsLastHandlerScroll0 HandlerNamemouseUp message cREVGeneral revUniqueID 1134770147616 Download AgainE3--> all handlers on mouseUp doUpdate end mouseUp H cConsLastHandlerScroll92 HandlerNamemouseUp message cREVGeneral revUniqueID 1134770741538  Download NowE7--> all handlers on mouseUp doUpdate end mouseUp H cConsLastHandlerScroll47 HandlerNamemouseUp message cREVGeneral revUniqueID 1134770761165 Pending Message Manager ULucida Grande UArial UArial UArial UComic Sans MS U Garamond UImpact U Inkpen2 Text UInkpen2 UTahoma UTimes U Trebuchet MS UVerdana WVerdanasentinelMenuBar cREVLoadInforevNameChangedfalserevResizeStackfalserevSelectionChangedfalse cGlx2Generalid 1192170582583 cGlxGeneral tabstops778,4000 handlers

6all handlers

trozShowClock

trozShowPending

altShowMe

code

--> all handlers

on trozShowClock

put the long system time into fld "Time"

if the pendingmessages contains "trozShowClock" is false

then send "trozShowClock" to me in 30 ticks

end trozShowClock

on trozShowPending

put the pendingmessages into tList

put empty into tPending

set the usesystemdate to true

repeat for each line L in tList

put item 1 of L into tID

put item 2 of L into tSecs

put item 3 of L into tName

put item 4 of L into tSource

-- cancel any calls to this routine and don't show

if tName = "trozShowPending" then

cancel tID

next repeat

end if

-- don't show clock update messages

if tName = "trozShowClock" then next repeat

if the hilite of btn "ShowRev" is false then

if char 1 to 3 of tName = "rev" or char 1 to 3 of tName = "glx" then next repeat

end if

convert tSecs from long seconds to short date and long time

put tName & tab & tSecs & tab & tSource & tab & tID & cr after tPending

end repeat

delete last char of tPending

set the itemdel to tab

sort tPending dateTime by item 2 of each

put the selectedtext of fld "Pending" into tSelection

put tPending into fld "Pending"

if tSelection is not empty then

get lineOffset(tSelection, tPending)

if it > 0 then

set the hilitedline of fld "Pending" to it

else

get lineOffset(item 1 of tSelection, tPending)

if it > 0 then

set the hilitedline of fld "Pending" to it

end if

end if

end if

if the hilitedline of fld "Pending" is empty then

disable btn "Cancel"

disable btn "Edit script"

else

enable btn "Cancel"

enable btn "Edit script"

end if

if tPending is empty then disable btn "Cancel All"

else enable btn "Cancel All"

if the hilite of btn "AutoUpdate" then send "trozShowPending" to me in 20 ticks

end trozShowPending

on altShowMe

end altShowMe

checksum͎i6Έvv%dirtyfalsehandler_scroll0 handler_line3 varCheckingfalsescroll176 object name revPMManager parent stack revPMManager folderlist all handlerschunkchar 969 to 968 of field 5 immed stack revPMManagercMotif Alabaster cLinkModefalse cConsAuthoremailsarah@troz.netenameSarah Reichelt cConsLastHandlerScroll255 HandlerNametrozShowClock commandcConsNoSetPropsForArchive4CompilesForSave3CompilesForArchive3SetPropsForSave4uRIPcreatorSarah Reichelt copyrightSarah Reichelt, TrozWare, 2005homehttp://www.troz.net/Rev/updateInfoUrl.http://www.troz.net/Rev/plugins/RipUpdates.txt downloadUrl+http://www.troz.net/Rev/plugins/Pending.rev description7Plugin for displaying and controlling pending messages.date2005,9,4version1.0cREVGeometryCachestackID1038 cREVGeneral scriptChecksum׺Vc#d debugObjects handlerList'trozShowClock trozShowPending altShowMe breakPointsscriptSelectionchar 1574 to 1573 bookmarks prevHandlertrozShowPending tempScriptscript

on trozShowPending

put the pendingMessages into tList

put empty into tPending

set the useSystemDate to true

repeat for each line L in tList

put item 1 of L into tID

put item 2 of L into tSecs

put item 3 of L into tName

put item 4 of L into tSource

-- cancel any calls to this rouinte and don't show

if tName = "trozShowPending" then

cancel tID

next repeat

end if

if the hilite of btn "ShowRev" is false and char 1 to 3 of tName = "rev" then next repeat

convert tSecs from long seconds to short date and long time

put tName & tab & tSecs & tab & tSource & tab & tID & cr after tPending

end repeat

delete last char of tPending

set the itemDel to tab

sort tPending dateTime by item 2 of each

put the selectedText of fld "Pending" into tSelection

put tPending into fld "Pending"

if tSelection is not empty then

get lineOffset(tSelection, tPending)

if it > 0 then

set the hilitedLine of fld "Pending" to it

else

get lineOffset(item 1 of tSelection, tPending)

if it > 0 then

set the hilitedLine of fld "Pending" to it

end if

end if

end if

if the hilitedLine of fld "Pending" is empty then

disable btn "Cancel"

disable btn "Edit script"

else

enable btn "Cancel"

enable btn "Edit script"

end if

if tPending is empty then disable btn "Cancel All"

else enable btn "Cancel All"

if the hilite of btn "AutoUpdate" then send "trozShowPending" to me in 20 ticks

end trozShowPending

on altShowMe

end altShowMe

 card id 1002 P --> all handlers on preOpenStack put empty into fld "Pending" set the style of this stack to "palette" pass preOpenStack end preOpenStack on openStack trozShowClock if the hilite of btn "AutoUpdate" then trozShowPending pass openStack end openStack on mouseMove trozShowClock if the hililte of btn "AutoUpdate" then trozShowPending pass mouseMove end mouseMove on closeStack put the pendingMessages into tList repeat for each line L in tList if item 3 of L = "trozShowPending" then cancel item 1 of L if item 3 of L = "trozShowClock" then cancel item 1 of L end repeat put empty into fld "Pending" save this stack pass closeStack end closeStack on moveStack save this stack pass moveStack end moveStack on resizeStack newW, newH trozChangeRect the long name of fld "Pending", , , newW-10, newH-76 set the tabStops of fld "Pending" to (newW - 36) div 2 trozChangeLoc the long name of btn "Update", , newH-55 trozChangeLoc the long name of btn "Cancel", , newH-55 trozChangeLoc the long name of btn "ShowRev", , newH-55 trozChangeLoc the long name of btn "AutoUpdate", , newH-22 trozChangeLoc the long name of btn "Cancel All", , newH-22 trozChangeLoc the long name of btn "Edit Script", , newH-22 trozChangeLoc the long name of img "altPlug.png", newW-40 , newH-24 save this stack pass resizeStack end resizeStack on trozChangeRect pObj, newL, newT, newR, newB put the rect of pObj into tRect if newL is not empty then put newL into item 1 of tRect if newT is not empty then put newT into item 2 of tRect if newR is not empty then put newR into item 3 of tRect if newB is not empty then put newB into item 4 of tRect set the rect of pObj to tRect end trozChangeRect on trozChangeLoc pObj, newL, newT put the loc of pObj into tLoc if newL is not empty then put newL into item 1 of tLoc if newT is not empty then put newT into item 2 of tLoc set the loc of pObj to tLoc end trozChangeLoc < cConsLastHandlerScroll30 HandlerName mouseMove on cREVGeneralscriptChecksum Swx]!b bookmarks handlerListipreOpenStack openStack mouseMove closeStack resizeStack trozChangeRect trozChangeLoc closeStack moveStack breakPoints tempScript prevHandler openStackscriptSelectionchar 427 to 426script\

on preOpenStack

put empty into fld "Pending"

set the style of this stack to "palette"

pass preOpenStack

end preOpenStack

on openStack

if the hilite of btn "AutoUpdate" then trozShowPending

pass openStack

end openStack

on mouseMove

if the hililte of btn "AutoUpdate" then trozShowPending

pass mouseMove

end mouseMove

on closeStack

put the pendingMessages into tList

repeat for each line L in tList

if item 3 of L = "trozShowPending" then cancel item 1 of L

end repeat

put empty into fld "Pending"

pass closeStack

end closeStack

on resizeStack newW, newH

trozChangeRect the long name of fld "Pending", , , newW-10, newH-76

set the tabStops of fld "Pending" to (newW - 36) div 2

trozChangeLoc the long name of btn "Update", , newH-55

trozChangeLoc the long name of btn "Cancel", , newH-55

trozChangeLoc the long name of btn "ShowRev", , newH-55

trozChangeLoc the long name of btn "AutoUpdate", , newH-22

trozChangeLoc the long name of btn "Cancel All", , newH-22

trozChangeLoc the long name of btn "Edit Script", , newH-22

trozChangeLoc the long name of img "altPlug.png", newW-40 , newH-24

save this stack

pass resizeStack

end resizeStack

on trozChangeRect pObj, newL, newT, newR, newB

put the rect of pObj into tRect

if newL is not empty then put newL into item 1 of tRect

if newT is not empty then put newT into item 2 of tRect

if newR is not empty then put newR into item 3 of tRect

if newB is not empty then put newB into item 4 of tRect

set the rect of pObj to tRect

end trozChangeRect

on trozChangeLoc pObj, newL, newT

put the loc of pObj into tLoc

if newL is not empty then put newL into item 1 of tLoc

if newT is not empty then put newT into item 2 of tLoc

set the loc of pObj to tLoc

end trozChangeLoc

on closeStack

save this stack

end closeStack

on moveStack

save this stack

end moveStack

cREVGeometryCacheIDs113395742253410381125722786996101311315765018031019113394510440710271125706384687100411257067026971009113394500460410261125722791469101511315765289091023112574109475310171133957235748103611257065792151007112570670787010111133957406808103711257247176041016cREVGeometrycacheordertotal15 Pending qaon mouseUp if the selectedText of me is not empty then enable btn "Cancel" enable btn "Edit Script" else disable btn "Cancel" disable btn "Edit Script" end if end mouseUp on mouseDoubleUp if the commandKey is down then send mouseUp to btn "Edit script" else send mouseUp to btn "Cancel" end if end mouseDoubleUp  EDouble-click to cancel, Command/Control-double-click to edit script. cREVGeneralscriptChecksumpF7L f!5 revUniqueID 1125706384687 bookmarks handlerListmouseUp mouseDoubleUp tempScript prevHandler mouseDoubleUpscriptSelectionchar 194 to 193script

on mouseUp

if the selectedText of me is not empty then

enable btn "Cancel"

enable btn "Edit Script"

else

disable btn "Cancel"

disable btn "Edit Script"

end if

end mouseUp

on mouseDoubleUp

if the commandKey is down then

send mouseUp to btn "Edit script"

else

send mouseUp to btn "Cancel"

end if

end mouseDoubleUp

 `}ضUpdateE *on mouseUp trozShowPending end mouseUp R%Update the list of pending messages.0 cGlxGeneral tabstops778,4000 handlers

mouseUp

checksumb`x0Ccodew

on mouseUp

trozShowPending

end mouseUp

dirtyfalsehandler_scroll0 varCheckingfalse handler_line1scroll0 object nameUpdate parent stack revPMManagerchunkchar 14 to 28 of field 5 immed stack revPMManagercMotif Alabaster cLinkModefalse cConsAuthoremailsarah@troz.netenameSarah Reichelt cConsLastHandlerScroll0 HandlerNamemouseUp message cREVGeneral scriptChecksumh|9e ]̎ handlerListmouseUp breakpointsscriptSelection char 37 to 36 bookmarks revUniqueID 1125706579215 prevHandlermouseUp tempScriptscript ShowRev`e N--> all handlers on mouseUp trozShowPending save this stack end mouseUp VMessages with names starting in 'rev' or 'glx' will only be shown if this is checked.Show Rev messages cGlxGeneral parent stack revPMManager object nameShowRev immed stack revPMManager hilitedLine6propsf

6basics

preview

-

name ShowRev

label Show Rev messages

tooltip Messages with names starting in 'rev' will only be shown if this is checked.

-

disabled false

hilite false

traversalOn true

visible true

-

location 317,324

height 23

width 167

rectangle 234,313,401,336

4borders

4colors

4formatting

4icons

4patterns

4position

4size

4text

4custom [main]

4custom [cConsLast]

4custom [cGlxGeneral]

4custom [cREVGeneral]

4miscellaneous

4global props

4global vars

scroll0 cConsLastHandlerScroll0 HandlerNamemouseUp message cREVGeneral revUniqueID 1125706702697  AutoUpdate`e on mouseUp

trozShowPending

save this stack

end mouseUp

CancelE on mouseUp put the hilitedLine of fld "Pending" into tLineNum set the itemDel to tab if the optionKey is down then -- cancel all instances of this message put item 1 of line tLineNum of fld "Pending" into tName put the pendingMessages into tList set the itemDel to comma repeat for each line L in tList if item 3 of L = tName then cancel item 1 of L end repeat filter fld "Pending" without tName & tab & "*" else put item 4 of line tLineNum of fld "Pending" into tID cancel tID delete line tLineNum of fld "Pending" end if if the hilite of btn "AutoUpdate" then trozShowPending else disable me disable btn "Edit Script" end if end mouseUp RDHold down Option/Alt to cancel all messages with the selected name." cREVGeneralscriptChecksumQ¨"Fr2fo revUniqueID 1125722786996 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelectionchar 721 to 720script

on mouseUp

put the hilitedLine of fld "Pending" into tLineNum

set the itemDel to tab

if the optionKey is down then

-- cancel all instances of this message

put item 1 of line tLineNum of fld "Pending" into tName

put the pendingMessages into tList

set the itemDel to comma

repeat for each line L in tList

if item 3 of L = tName then cancel item 1 of L

end repeat

filter fld "Pending" without tName & tab & "*"

else

put item 4 of line tLineNum of fld "Pending" into tID

cancel tID

delete line tLineNum of fld "Pending"

end if

if the hilite of btn "AutoUpdate" then

showPending

else

disable me

disable btn "Edit Script"

end if

end mouseUp

 Cancel AllE 4on mouseUp put fld "Pending" into tList set the itemDel to tab repeat for each line L in tList cancel (item 4 of L) end repeat put empty into fld "Pending" if the hilite of btn "AutoUpdate" then trozShowPending else disable me disable btn "Edit Script" end if end mouseUp R(This cancels all messages listed above.  cConsLastHandlerScroll0 HandlerNamemouseUp message cREVGeneralscriptChecksumJeVMUvp revUniqueID 1125722791469 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelectionchar 292 to 291script  Edit ScriptE on mouseUp put the selectedText of fld "Pending" into tLine set the itemDel to tab put item 3 of tLine into tObject do "edit the script of " & tObject end mouseUp R1Open the script containing the selected message.& cREVGeneralscriptChecksumc2.z00 bookmarks revUniqueID 1125724717604 handlerListmouseUpscriptSelection char 12 to 11 prevHandlermouseUp tempScriptscripto

on mouseUp

put the selectedText of fld "Pending" into tLine

set the itemDel to tab

put item 3 of tLine into tObject

do "edit the script of " & tObject

end mouseUp

 altPlug.png P--> 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" -- answer info "

Pending Message Manager 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 mouseUp -- 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 mouseUp -- on installReplacement theGadgetURL,theFilePath -- 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 -- -- -- open updater stack -- put the cUpdateStack of this stack into tUpdateBinary -- go stack tUpdateBinary -- -- -- set it's custom properties -- -- cGadgetName contains the display name for 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 -- set the cGadgetName of stack "TrozWareUpdater" to tStackLabel -- set the cGadgetStack of stack "TrozWareUpdater" to tStackName -- set the cGadgetSavePath of stack "TrozWareUpdater" to tFileName -- set the cGadgetUpdatePath of stack "TrozWareUpdater" to theGadgetURL -- -- -- call it's updater routine -- send "doUpdate" to stack "TrozWareUpdater" -- -- -- 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 -- -- if theFilePath contains "revConstellation" and the openStacks contains "revConstellation" then -- -- -- running as Constellation C3PO -- -- put "Update of C3PO" && theFileName && "now complete!" -- -- send "loadWindowToolbar" to cd 1 of stack "revConstellation" -- -- else -- -- put "Update of plugin" && theFileName && "now complete!" -- -- end if -- -- end if -- end installReplacement `  altOpenModepalettealtOpenVisibletruealtVers1.4altPlugFileName Pending.rev altOnClickMe altShowMe altUpdateURL'http://www.troz.net/Rev/plugins/PPM.txtPNG  IHDR szz pHYs  gAMA cHRMn rIo!1OIDATxdI0-I8T*h<\UH- ;`nk;{ 2$x#3-gbadb?-40 fE (6 rX @4add0(`p B 48@-b lKYAƊ6hF@X-zZ@_߯_8:$pVHh H3|+fC235tß? "@7NBb1r{%`_C,Aq`yv6b3'5B/ c)@ ;Rh}1llH>f;HXC (x '0D8xtP`ڷo  S; Jj=jƊ@`bwϟ@ǘ0pG))CC ؐ5d@>@1:@K~f4^sp0gxt+FjgEd'  +"ji pT}h(#,@/ Q}Q9P`GBbbg)Ihb 9>0x?x`9$A-f#AkpaC*ؐiVK .^ /%o\`_];H{ 6ڲA}^;w  "vc98$$ \@_e99?0$ 0&3GC@Pِ=H AC0@@ ;vv-r xyA o&&F?2|E@,v6X2F8 `_`@_B+bׯHxg y=CT"`:V *Ά(1Av r-O,?@6'>ynԙ3(vV`eUĄ(4`<"| `ЃC}pK= vv :.  ,,В QW3H|ࡥO`a$̒3?K\tBB 9Yc``X*0A XYYQOX^O! I3ZFT7@GB XM'Xds]^`-λ@͠WE2b *Gz70CH8 dt@~143c`@.Za Z{2ܺ-#} bX1nftWR+0V 6X5 {x200++ 'N-v(kF o)xmKbYȎ\C+;avXhK=v}}V`69k֤KS|t@Lډ 찚 *ƎT!c4??lVdt/ׯ3Ź VbaeE*ш&F.YߎԞee Νgxo*7w3ik3A_NpA]bӰrƎH,l:L|?~1VN\`qe lB_@_ܹabaCi6!J+HeцCnP@Ӑƣ 'be`c;ïglmA!ĂބbCjZl?/_ g֨ q8s_ Jp />pS Xa KlH5J+a9+, @Cd86|n.0:ҀwfA>-^: bh< |԰ŠQz0KA]5`ܻ F& B @ l)o Ú\1ú steq[}O1qIENDB` cConsAuthoremailsarah@troz.netenameSarah Reichelt cConsLastHandlerScroll30 HandlerNamemouseUp message cREVGeneral scriptChecksumƩ/vӐĺ handlerListmouseUp breakPointsscriptSelectionchar 3312 to 3311 bookmarks revUniqueID 1125741094753 prevHandlermouseUp tempScriptscript  Label Field  k cREVTable currentview Current Time: cREVGeneral revUniqueID 1131576501803 Current Time: Time  f  cConsLastHandlerScroll0 HandlerName cREVTable currentview cREVGeneral revUniqueID 1131576528909 3:02:26 PMC3POi consGroupNametrozPendingMsgMgr cConsLastHandlerScroll0 HandlerName cConsAuthoremailsarah@troz.netenameSarah Reichelt cREVGeneral revUniqueID 1133945104407pending msg mgrBBO--> all handlers ON mouseUp pMouseBtnNum put the consFileName of the owner of me into theFileName put the fileName of this stack into theFilePath set the itemDel to "/" put "revConstellation tools/window/" & theFileName into item -1 of theFilePath set the itemDel to comma put the short name of stack theFilePath into theStackName IF theStackName is among the lines of the openStacks THEN close stack theFilePath ELSE palette stack theFilePath END IF END mouseUp on mouseEnter set the hilited of me to true end mouseEnter on mouseLeave set the hilited of me to false end mouseLeave ON mouseWithin IF the cDisplayToolTips of stack "about constellation" of stack "revConstellation" is true AND \ the cUseConstellation of stack "about constellation" of stack "revConstellation" is true AND \ the mouse is up AND char -1 of fld "status" of stack "revConstellation" is not in "!?" THEN put the consFileName of the owner of me into theFileName put the fileName of this stack into theFilePath set the itemDel to "/" put "revConstellation tools/window/" & theFileName into item -1 of theFilePath set the itemDel to comma put the short name of stack theFilePath into theStackName IF theStackName is among the lines of the openStacks THEN put "click to close Trozware's Pending Message Manager" into theTip ELSE put "click to see Trozware's Pending Message Manager" into theTip END IF postAlert theTip END IF END mouseWithin @DconsHilitedIconImagePPM Hilited Icon consFileName Pending.revconsDisabledIconImagePPM Disabled IconconsIconImagePPM Icon cConsLastHandlerScroll30 HandlerNamemouseUp message cConsAuthoremailsarah@troz.netenameSarah Reichelt cREVGeneral revUniqueID 1133945004604   PPM Icon PNG  IHDRagAMAOX2tEXtSoftwareAdobe ImageReadyqe<~IDATxb?% X@޽{a|{033i2|˫W.|yEEO rNNNw-/8߿>|p@  &"#>>>`KgϞ1|h;8P~ѣGAzϟ%%%ql]t)ß?\mee7'''sv:111>0 aAhRHH 4a֭ Pq+@)X` T D0 P523} H/@ x@.d={ma  @`q޺k׮`,Hڂmi ;wdؽ{!AA*^CUU%++… o (nnnO>]fj@zuw]pEp @I X9߿pg Rg^ &d0 /jݺu_QeÕ ]0}+W.vn@1R _O[WIENDB` cConsLastHandlerScroll0 HandlerName cConsAuthoremailsarah@troz.netenameSarah Reichelt cREVGeneral revUniqueID 1133957235748 PPM Hilited Icon PNG  IHDRagAMAOX2tEXtSoftwareAdobe ImageReadyqe<IDATxb?% X@ľ}߿?)߀߿ _~ ?^/++;GIIH#@1\2ݻw---ń6 fx!Ù3g^ 2 @F@do2<˗/ @ȑ# 6Ύn 3  15 srrxM7H)@@TTÇ ?ev6i1d @lp?m2 lǏ_$0A1HB0A_` 13 Xa۷ A_`8x H\@ nݻC r-ngaaacPdصkΝ;à  PUU}p[0'7778 hQ-PkHH7^dO6޽{w Å p @e瀁/!!;(@ 7?0?~=700p544  u}40 3,@p@.1Z|R`Xx!;06@1R KKfIENDB` cConsLastHandlerScroll0 HandlerName cConsAuthoremailsarah@troz.netenameSarah Reichelt cREVGeneral revUniqueID 1133957406808PPM Disabled Icon 03PNG  IHDRagAMAOX2tEXtSoftwareAdobe ImageReadyqe<~IDATxb?% X@޽{a|{033i2|˫W.|yEEO rNNNw-/8߿>|p@  &"#>>>`KgϞ1|h;8P~ѣGAzϟ%%%ql]t)ß?\mee7'''sv:111>0 aAhRHH 4a֭ Pq+@)X` T D0 P523} H/@ x@.d={ma  @`q޺k׮`,Hڂmi ;wdؽ{!AA*^CUU%++… o (nnnO>]fj@zuw]pEp @I X9߿pg Rg^ &d0 /jݺu_QeÕ ]0}+W.vn@1R _O[WIENDB` cConsLastHandlerScroll0 HandlerName cConsAuthoremailjerry@daniels-mara.comename Jerry Daniels cREVGeneral revUniqueID 1133957422534