All uRIP properties are optional.
The recommended set of elements per the ECMI spec is:
name
copyright
creator
date
description
help
homeURL
downloadUrl
interface
EULA
requirements
version
And the suggested elements are:
type
updateInfoURL
props
HelpText All uRIP properties are optional. The recommended set of properties per the ECMI spec is: name copyright creator date description help homeURL downloadUrl interface EULA requirements version type updateInfoURL props cConsLastHandlerScroll 13 U Tahoma W Tahoma W Verdana W Times U Verdana U Verdana U Times U Times W Verdana W Verdana U Courier New U Times U Courier New U Verdana U Times U Times New Roman U Courier New W Courier New U Lucida Grande U Tahoma W Tahoma U tahoma uRIP creator Ah, Software copyright public domaintype pluginhomeURL 'http://www.ahsoftware.net/uRIPides.html description AIDE plugin for manipulating the uRIP custom properties of objects HelpText All uRIP properties are optional. The recommended set of elements per the ECMI spec is: name copyright creator date description help homeURL downloadUrl interface EULA requirements version And the suggested elements are: type updateInfoURL props version 1.02.00EULA cREVOnline fingerprint TpylJZFd0tEszdedbTHeUg cREVGeometryCache stackID 1108 cREVGeneral scriptChecksum bhK@ debugObjects handlerList openStack GetUserPreference breakPoints scriptSelection char 44 to 43 bookmarks prevHandler openStack tempScript script Xon openStack
go card "SplashScreen"
end openStack
function GetUserPreference pWhich, pDefault
local tReturn
put pDefault into tReturn
if there is a field ("fld" & pWhich) of card "Preferences" of this stack then
if field ("fld" & pWhich) of card "Preferences" of this stack is not empty then
put field ("fld" & pWhich) of card "Preferences" of this stack into tReturn
end if
end if
return tReturn
end GetUserPreference
Widgets @ cREVGeometryCacheIDs 1129307691827 10371129308383164 10421129360437572 10621129305951995 10351129567770366 10661129315511249 10451129665246184 11061129217496239 10221129315056808 10441129591345324 10891129168030506 10051129217191333 10201129608696581 10921129582531046 1070 cREVGeometryCache order total 14 cREVGeneral bookmarks handlerList prevHandler tempScript script * . A D & R E About P [on openCard put the uRIP["version"] of this stack into field "fldVersion" end openCard cREVGeneral scriptChecksum Ӹn!4 bookmarks handlerList openCardscriptSelection char 38 to 37 prevHandler tempScript scripton openCard
put the uRIP["version"] of this stack into field "fldVersion"
end openCard
cREVGeometryCacheIDs 1129665563256 11071129609023361 10981129665649882 11081129608844638 10961129608877335 10971129608769033 1094 cREVGeometrycache total 6order F H I J S T SplashScreen P >on openCard wait 1 second go card "Widgets" end openCard cREVGeometryCacheIDs 1129615031788 1099 cREVGeometryCache order total 1 cREVGeneral scriptChecksum R<:FcH+vFy bookmarks handlerList openCard tempScript prevHandler openCardscriptSelection char 31 to 30scripton openCard
wait 1 second
go card "Widgets"
end openCard
K InfoEditor P----------------------------------------------------------- -- Generic check to check for latest version. -- Part of the uRIPides collection. -- -- This now conforms to the ECMI standard: -- There is an xml file on a web server with the update info containing: -- latest version -- update url -- release notes -- -- This requires the following custom properties to be set up: -- uRIP["version"] -- uRIP["updateInfoURL"] -- uRIP["version"] -- -- Fixing up the two constants and then running the _RIPSetup -- handler sets up the custom properties -- -- The xml file contains, at a minimum, the following per the ECMI spec: -------------------------------------------------------------
-- Generic check to check for latest version.
-- Part of the uRIPides collection.
--
-- This now conforms to the ECMI standard:
-- There is an xml file on a web server with the update info containing:
-- latest version
-- update url
-- release notes
--
-- This requires the following custom properties to be set up:
-- uRIP["version"]
-- uRIP["updateInfoURL"]
-- uRIP["version"]
--
-- Fixing up the two constants and then running the _RIPSetup
-- handler sets up the custom properties
--
-- The xml file contains, at a minimum, the following per the ECMI spec:
-- <rip>
-- <file>
-- <version>currentVersionNumber</version>
-- <downloadURL>downloadURL</downloadURL>
-- </file>
-- </rip>
-----------------------------------------------------------
-- this is the current version
constant kVersion=1.00.00
-- this is the location of the info file
constant kDownloadURL="http://www.runrev.com/files/ECMI.xml"
local tDirty
-----------------------------------------------------------
-- openCard
-----------------------------------------------------------
on openCard
local tRIPxml
local tDate
put the date into tDate
convert tDate to dateItems
if the uRIP["updateInfoURL"] of stack the topstack is not empty then
put the uRIP["updateInfoURL"] of stack the topstack into tRIPxml
else
put "<rip>" & cr & \
tab & "<file>" & cr & \
tab & tab & "<name>" & the short name of the topstack & "</name>" & cr & \
tab & tab & "<version>" & kVersion & "</version>" & cr & \
tab & tab & "<releaseDate>" & item 1 to 3 of tDate & "</releaseDate>" & cr & \
tab & tab & "<downloadURL>" & kDownloadURL & "</downloadURL>" & cr & \
tab & "</file>" & cr & \
"</rip>" & cr into tRIPxml
end if
put tRIPxml into field "fldInfo"
put false into tDirty
end openCard
on selectionChanged
put true into tDirty
end selectionChanged
on CleanDirty
put false into tDirty
end CleanDirty
function IsDirty
return tDirty
end IsDirty
) uRIPEditor Plocal lTargetObject local lRIPProp on openCard put empty into field "uProps" put empty into field "fldContents" RIPInitialize put empty into lTargetObject end openCard on RIPInitialize put empty into lRIPProp end RIPInitialize function GatherRIPProps pTarget local tProps, tKeys local tPropValues put pTarget into lTargetObject RIPInitialize put the customProperties["uRIP"] of lTargetObject into tProps put the keys of tProps into tKeys repeat for each line tKey in tKeys put tKey & cr after tPropValues end repeat return tPropValues end GatherRIPProps on GetRIPProp pWhich put pWhich into lRIPProp get the uRIP[pWhich] of lTargetObject if char 1 to 3 of it is "" then set the htmlText of field "fldContents" to the uRIP[pWhich] of lTargetObject else put the uRIP[pWhich] of lTargetObject into field "fldContents" end if end GetRIPProp on SetRIPProp pWhich local tValue switch pWhich case "date" put the date into tValue convert tValue to dateItems put item 1 to 3 of tValue into tValue default put "newValue" into tValue end switch put empty into field "uProps" set the uRIP[pWhich] of lTargetObject to "newValue" put GatherRIPProps(lTargetObject) into field "uProps" end SetRIPProp on SaveRIPProp local tKeys, tHTMLContents if field "fldContents" is not empty then put the htmlText of field "fldContents" into tHTMLContents put field "fldContents" into field "tContents" if the htmlText of field "tContents" is tHTMLContents then set the uRIP[lRIPProp] of lTargetObject to field "fldContents" else set the uRIP[lRIPProp] of lTargetObject to the htmlText of field "fldContents" end if put empty into field "fldContents" else if lRIPProp is not empty and the selectedText is empty then put empty into field "uProps" set the customPropertySet of lTargetObject to "uRIP" put the customKeys of lTargetObject into tKeys filter tKeys without lRIPProp set the customKeys of lTargetObject to tKeys set the customPropertySet of lTargetObject to empty put GatherRIPProps(lTargetObject) into field "uProps" end if end if end SaveRIPProp cREVGeometryCacheIDs 1129330452208 10501129177808014 10131129615843163 11001129177801132 10111129572951810 10681129335255879 10551129217384645 10211129308162114 10391129217134198 10171129615881430 11011129315554950 10461129336223498 10541129177782467 10081129331412344 1051 cREVGeometrycache total 14order cREVGeneral scriptChecksum qgJKdQu!M bookmarks handlerList GopenCard RIPInitialize GatherRIPProps GetRIPProp SetRIPProp SaveRIPProp breakPoints tempScript prevHandler GatherRIPPropsscriptSelection char 1823 to 1822script
local lTargetObject
local lRIPProp
on openCard
put empty into field "uProps"
put empty into field "fldContents"
RIPInitialize
put empty into lTargetObject
end openCard
on RIPInitialize
put empty into lRIPProp
end RIPInitialize
function GatherRIPProps pTarget
local tProps, tKeys
local tPropValues
put pTarget into lTargetObject
RIPInitialize
put the customProperties["uRIP"] of lTargetObject into tProps
put the keys of tProps into tKeys
repeat for each line tKey in tKeys
put tKey & cr after tPropValues
end repeat
return tPropValues
end GatherRIPProps
on GetRIPProp pWhich
put pWhich into lRIPProp
get the uRIP[pWhich] of lTargetObject
if char 1 to 3 of it is "<p>" then
set the htmlText of field "fldContents" to the uRIP[pWhich] of lTargetObject
else
put the uRIP[pWhich] of lTargetObject into field "fldContents"
end if
end GetRIPProp
on SetRIPProp pWhich
local tValue
switch pWhich
case "date"
put the date into tValue
convert tValue to dateItems
put item 1 to 3 of tValue into tValue
default
put "newValue" into tValue
end switch
put empty into field "uProps"
set the uRIP[pWhich] of lTargetObject to "newValue"
put GatherRIPProps(lTargetObject) into field "uProps"
end SetRIPProp
on SaveRIPProp
local tKeys, tHTMLContents
if field "fldContents" is not empty then
put the htmlText of field "fldContents" into tHTMLContents
put field "fldContents" into field "tContents"
if the htmlText of field "tContents" is tHTMLContents then
set the uRIP[lRIPProp] of lTargetObject to field "fldContents"
else
set the uRIP[lRIPProp] of lTargetObject to the htmlText of field "fldContents"
end if
put empty into field "fldContents"
else
if lRIPProp is not empty and the selectedText is empty then
put empty into field "uProps"
set the customPropertySet of lTargetObject to "uRIP"
put the customKeys of lTargetObject into tKeys
filter tKeys without lRIPProp
set the customKeys of lTargetObject to tKeys
set the customPropertySet of lTargetObject to empty
put GatherRIPProps(lTargetObject) into field "uProps"
end if
end if
end SaveRIPProp
M L , / Preferences Pon openCard local x local tField local tPrefsFolder repeat with x=1 to the number of fields of this card if not the lockText of field x then put empty into field x end if end repeat if the platform is "Win32" then put specialFolderPath(26) into tPrefsFolder else put specialFolderPath("Preferences") into tPrefsFolder end if if there is a file (tPrefsFolder & "/uRIPides.xml") then RetrieveXMLPrefs tPrefsFolder end if end openCard on RetrieveXMLPrefs pPrefsFolder local tTree local tRootNode, tNode, tElement put revCreateXMLTreeFromFile(pPrefsFolder & "/uRIPides.xml",false,true,false) into tTree put revXMLRootNode(tTree) into tRootNode put revXMLFirstChild(tTree, tRootNode) into tNode set the itemDelimiter to "/" repeat while tNode is not empty put revXMLNodeContents(tTree, tNode) into tElement put tElement into field ("fld" & the last item of tNode) put revXMLNextSibling(tTree, tNode) into tNode end repeat end RetrieveXMLPrefs cREVGeneral scriptChecksum EmWlA[iV` bookmarks breakPoints handlerList openCard RetrieveXMLPrefsscriptSelection char 937 to 936 prevHandler openCard tempScript script "on openCard
local x
local tField
local tPrefsFolder
repeat with x=1 to the number of fields of this card
if not the lockText of field x then
put empty into field x
end if
end repeat
if the platform is "Win32" then
put specialFolderPath(26) into tPrefsFolder
else
put specialFolderPath("Preferences") into tPrefsFolder
end if
if there is a file (tPrefsFolder & "/uRIPides.xml") then
RetrieveXMLPrefs tPrefsFolder
end if
end openCard
on RetrieveXMLPrefs pPrefsFolder
local tTree
local tRootNode, tNode, tElement
put revCreateXMLTreeFromFile(pPrefsFolder & "/uRIPides.xml",false,true,false) into tTree
put revXMLRootNode(tTree) into tRootNode
put revXMLFirstChild(tTree, tRootNode) into tNode
set the itemDelimiter to "/"
repeat while tNode is not empty
put revXMLNodeContents(tTree, tNode) into tElement
put tElement into field ("fld" & the last item of tNode)
put revXMLNextSibling(tTree, tNode) into tNode
end repeat
end RetrieveXMLPrefs
cREVGeometryCacheIDs 1129588916260 10771129588900070 10761129588916261 10781129588808449 10751129589005748 10831129589005749 10841129591493675 10911129588912022 10791129588939930 10811129588939929 10801129589199123 10881129588801639 10731129588934615 10821129589000937 1085 cREVGeometrycache order total 14 4 5 8 ; @ C btnCheckUpdate ep ----------------------------------------------------------- -- Generic check to check for latest version. -- Part of the uRIPides collection. -- -- This now conforms to the ECMI standard: -- There is an xml file on a web server with the update info containing: -- latest version -- update url -- release notes -- -- This requires the following custom properties of this button to be set up: -- uRIP["name"] -- uRIP["updateInfoURL"] -- uRIP["version"] -- -- Fixing up the two constants and then running the _RIPSetup -- handler sets up the custom properties -- -- The xml file contains, at a minimum, the following per the ECMI spec: -------------------------------------------------------------
-- Generic check to check for latest version.
-- Part of the uRIPides collection.
--
-- This now conforms to the ECMI standard:
-- There is an xml file on a web server with the update info containing:
-- latest version
-- update url
-- release notes
--
-- This requires the following custom properties of this button to be set up:
-- uRIP["name"]
-- uRIP["updateInfoURL"]
-- uRIP["version"]
--
-- Fixing up the two constants and then running the _RIPSetup
-- handler sets up the custom properties
--
-- The xml file contains, at a minimum, the following per the ECMI spec:
-- <rip>
-- <file>
-- <version>currentVersionNumber</version>
-- <downloadURL>downloadURL</downloadURL>
-- </file>
-- </rip>
-----------------------------------------------------------
-----------------------------------------------------------
-- mouseUp
--
-- Get our current version info,
-- compare it with the latest on the web.
-- If we're up to date, just tell the user so.
-- Otherwise launch a browser to start a download.
-- If there are release notes and there's a field in the
-- current environment called "ReleaseNotes" then show them.
-----------------------------------------------------------
on mouseUp
local tLatestVersion
local tWebLocation
local tTree, tNodes, tNum, tStackName, tSpec
local tResult
-- set up the custom properties based on the constant values
set the cursor to busy
-- get the info for the most current version
put url(the uRIP["updateInfoURL"] of me) into tWebLocation
put the result into tResult
if tResult is not empty then
switch tResult
case "error 404 not found"
answer the uRIP["updateInfoURL"] of me && "not found"
break
default
answer tResult
end switch
else
replace lf with cr in tTree
put revCreateXMLTree(tWebLocation, false, true, false) into tTree
if "xmlerr" is not in tTree then
put revXMLNumberOfChildren(tTree, "/rip", "file", -1) into tNum
put revXMLFirstChild(tTree, "/rip") into tSpec
put revXMLNodeContents(tTree, tSpec & "/name") into tStackName
repeat while tStackName is not the uRIP["name"] of me
put revXMLNextSibling(tTree, tSpec) into tSpec
if tSpec is empty then
exit repeat
end if
put revXMLNodeContents(tTree, tSpec & "/name") into tStackName
if "xmlerr" is in tStackName then
exit repeat
end if
end repeat
if tSpec is not empty then
-- get the latest version number
put revXMLNodeContents(tTree, tSpec & "/version") into tLatestVersion
if tLatestVersion > the uRIP["version"] of me then
-- get the release notes
if there is a field "ReleaseNotes" then
get revXMLNodeContents(tTree, tSpec & "/releaseNotes")
if it is not empty then
put it into field "ReleaseNotes"
end if
end if
-- get the download url
put revXMLNodeContents(tTree, tSpec & "/downloadURL") into tNodes
revGoUrl (tNodes)
else
answer "Your version is current."
end if
end if
end if
end if
set the cursor to arrow
end mouseUp
uProps )pon mouseUp pWhichButton switch pWhichButton case 3 if the selectedText of me is not empty then answer "delete this property?" with "Yes" and "No" if it is "Yes" then end if else ask "what RIP property name?" if it is not empty then SetRIPProp it end if end if break default SaveRIPProp if the selectedText of me is not empty then GetRIPProp the selectedText of me end if end switch end mouseUp cREVGeneral scriptChecksum ˹$Jih handlerList mouseUp breakPoints scriptSelection char 438 to 437 revUniqueID 1129177782467 bookmarks tempScript prevHandler mouseUpscript Lon mouseUp pWhichButton
switch pWhichButton
case 3
if the selectedText of me is not empty then
answer "delete this property?" with "Yes" and "No"
if it is "Yes" then
end if
else
ask "what RIP property name?"
if it is not empty then
SetRIPProp it
end if
end if
break
default
SaveRIPProp
if the selectedText of me is not empty then
GetRIPProp the selectedText of me
end if
end switch
end mouseUp
` @ btnStackProps ep on mouseUp local tTarget RIPInitialize put empty into field "uProps" put empty into field "fldContents" put the long name of stack the topstack into tTarget put GatherRIPProps(tTarget) into field "uProps" end mouseUp 2 ^ the topStack Stack properties cREVGeneral scriptChecksum {Tm74z'0_7 breakPoints handlerList mouseUpscriptSelection char 46 to 45 bookmarks revUniqueID 1129177801132 prevHandler mouseUp tempScript script fon mouseUp
local tTarget
RIPInitialize
put empty into field "uProps"
put empty into field "fldContents"
put the long name of stack the topstack into tTarget
put GatherRIPProps(tTarget) into field "uProps"
end mouseUp
btnDone mp #on mouseUp pop card end mouseUp 9w R Done cREVGeneral scriptChecksum ސef f;SC revUniqueID 1129177808014 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 22 to 21scripton mouseUp
pop card
end mouseUp
fldContents )` vZ cREVGeneral revUniqueID 1129217134198 ` @ w btnEditor ep ;on mouseUp push card go card "uRIPEditor" end mouseUp y uRIP Editor cREVGeneral scriptChecksum 4 revUniqueID 1129217191333 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 23 to 22scripton mouseUp
push card
go card "uRIPEditor"
end mouseUp
btnCardProps ep on mouseUp local tTarget put empty into field "uProps" put empty into field "fldContents" put line 1 of the recentCards of stack the topstack into tTarget put GatherRIPProps(tTarget) into field "uProps" end mouseUp 2 5 ^ !The current card of the topStack Card properties cREVGeneral scriptChecksum 2sz TT STq handlerList mouseUp breakPoints scriptSelection char 77 to 76 revUniqueID 1129217384645 bookmarks tempScript prevHandler mouseUpscript [on mouseUp
local tTarget
put empty into field "uProps"
put empty into field "fldContents"
put line 1 of the recentCards of stack the topstack into tTarget
put GatherRIPProps(tTarget) into field "uProps"
end mouseUp
btnInfoEditor ep ;on mouseUp push card go card "InfoEditor" end mouseUp " y updateInfoURL Editor cREVGeneral scriptChecksum oE ~ bookmarks revUniqueID 1129217496239 handlerList mouseUpscriptSelection char 23 to 22 prevHandler mouseUp tempScript scripton mouseUp
push card
go card "InfoEditor"
end mouseUp
btnDone mp\-- this is the name of the file to save constant kFileName="uRIPides.xml" on mouseUp local tFileName if IsDirty() then ask file "Where should the xml file be saved?" with kFileName if it is not empty then put it into tFileName put field "fldInfo" into url ("file:"&tFileName) end if end if pop card end mouseUp 7m R Done cREVGeneral scriptChecksum Y_/i r revUniqueID 1129217586886 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 335 to 334script m-- this is the name of the file to save
constant kFileName="uRIPides.xml"
on mouseUp
local tFileName
if IsDirty() then
ask file "Where should the xml file be saved?" with kFileName
if it is not empty then
put it into tFileName
put field "fldInfo" into url ("file:"&tFileName)
end if
end if
pop card
end mouseUp
fldInfo i` +,j cREVGeneral revUniqueID 1129217620224 bookmarks handlerList tempScript prevHandler script-----------------------------------------------------------
-- Generic check to save the downloadInfoURL xml file.
-- Part of the uRIPides collection.
--
-----------------------------------------------------------
-- this is the name of the file to save
constant kFileName="uRIPides.xml"
-----------------------------------------------------------
-----------------------------------------------------------
on mouseUp
local tFileName
ask file "Where should the xml file be saved?" with kFileName
if it is not empty then
put it into tFileName
put field "fldInfo" into url ("file:"&tFileName)
CleanDirty
end if
end mouseUp
btnLoad ep----------------------------------------------------------- -- Generic check to save the downloadInfoURL xml file. -- Part of the uRIPides collection. -- ----------------------------------------------------------- ----------------------------------------------------------- ----------------------------------------------------------- on mouseUp local tFileName answer file "Where is the xml file?" with the uRIP["updateInfoURL"] of stack the topStack if it is not empty then put it into tFileName if char 1 to 4 of tFileName is "http" then get url it else get url ("file:" & it) end if put it into field "fldInfo" end if end mouseUp 2 R Load cREVGeneral scriptChecksum Ah[ |[çt4 handlerList mouseUp breakPoints scriptSelection char 215 to 214 bookmarks revUniqueID 1129218405888 prevHandler mouseUp tempScript script (-----------------------------------------------------------
-- Generic check to save the downloadInfoURL xml file.
-- Part of the uRIPides collection.
--
-----------------------------------------------------------
-----------------------------------------------------------
-----------------------------------------------------------
on mouseUp
local tFileName
answer file "Where is the xml file?" with the uRIP["updateInfoURL"] of stack the topStack
if it is not empty then
put it into tFileName
if char 1 to 4 of tFileName is "http" then
get url it
else
get url ("file:" & it)
end if
put it into field "fldInfo"
end if
end mouseUp
ReleaseNotes )` cREVGeneral revUniqueID 1129305951995 \Add the UpdateCheck button to the top stack, then edit its properties with the uRIP Editor. You can create an xml file to match the updateInfoURL property using the updateInfoURL Editor, then ftp it to the proper web site. Label Field ` cREVTable currentview Release Notes cREVGeneral revUniqueID 1129307691827 Release Notes Label Field d cREVTable currentview uRIP Editor cREVGeneral revUniqueID 1129308162114 uRIP Editor Label Field t x cREVTable currentview updateInfo Editor cREVGeneral revUniqueID 1129308205620 updateInfo Editor btnInfoEditor ep?on mouseUp local tTemp local tDate local tURL put the date into tDate convert tDate to dateItems if the short name of the topStack is not "uRIPides" then copy button "btnCheckUpdate" to stack the topStack set the visible of it to true put RIPGetCurrent("date", item 1 to 3 of tDate) into tTemp set the uRIP["date"] of button "btnCheckUpdate" to tTemp put RIPGetCurrent("name", the short name of stack the topStack) into tTemp set the uRIP["name"] of button "btnCheckUpdate" of stack the topStack to tTemp put the uRIP["updateInfoURL"] of button "btnCheckUpdate" of stack the topStack into tURL set the itemDelimiter to "/" put tTemp & ".xml" into item -1 of tURL set the uRIP["updateInfoURL"] of button "btnCheckUpdate" of stack the topStack to tURL put RIPGetCurrent("creator", "ECMI") into tTemp set the uRIP["creator"] of button "btnCheckUpdate" to tTemp put RIPGetCurrent("copyright", "public domain") into tTemp set the uRIP["copyright"] of button "btnCheckUpdate" to tTemp put RIPGetCurrent("version", "1.00.00") into tTemp set the uRIP["version"] of button "btnCheckUpdate" of stack the topStack to tTemp answer "Done! Now open the uRIP Editor to edit the uRIP properties." end if end mouseUp function RIPGetCurrent pWhich, pDefault local tTemp if the uRIP[pWhich] of stack the topStack is not empty then put the uRIP[pWhich] of stack the topStack into tTemp else put GetUserPreferences(pWhich, pDefault) into tTemp end if return tTemp end RIPGetCurrent 2 $Add Update Check Button to topStack cREVGeneral scriptChecksum Ǥa.Q * breakPoints handlerList mouseUp RIPGetCurrentscriptSelection char 1544 to 1543 revUniqueID 1129308383164 bookmarks tempScript prevHandler mouseUpscripton mouseUp
local tTemp
local tDate
local tURL
put the date into tDate
convert tDate to dateItems
if the short name of the topStack is not "uRIPides" then
copy button "btnCheckUpdate" to stack the topStack
set the visible of it to true
put RIPGetCurrent("date", item 1 to 3 of tDate) into tTemp
set the uRIP["date"] of button "btnCheckUpdate" to tTemp
put RIPGetCurrent("name", the short name of stack the topStack) into tTemp
set the uRIP["name"] of button "btnCheckUpdate" of stack the topStack to tTemp
put the uRIP["updateInfoURL"] of button "btnCheckUpdate" of stack the topStack into tURL
set the itemDelimiter to "/"
put tTemp & ".xml" into item -1 of tURL
set the uRIP["updateInfoURL"] of button "btnCheckUpdate" of stack the topStack to tURL
put RIPGetCurrent("creator", "ECMI") into tTemp
set the uRIP["creator"] of button "btnCheckUpdate" to tTemp
put RIPGetCurrent("copyright", "public domain") into tTemp
set the uRIP["copyright"] of button "btnCheckUpdate" to tTemp
put RIPGetCurrent("version", "1.00.00") into tTemp
set the uRIP["version"] of button "btnCheckUpdate" of stack the topStack to tTemp
answer "Done! Now open the uRIP Editor to edit the uRIP properties."
end if
end mouseUp
function RIPGetCurrent pWhich, pDefault
local tTemp
if the uRIP[pWhich] of stack the topStack is not empty then
put the uRIP[pWhich] of stack the topStack into tTemp
else
put GetUserPreferences(pWhich, pDefault) into tTemp
end if
return tTemp
end RIPGetCurrent
btnECMI ex Oon mouseUp revGoUrl "http://groups.yahoo.com/group/revInterop/" end mouseUp & . ECMI cREVGeneral scriptChecksum i`UjW}K 2'e revUniqueID 1129315056808 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 65 to 64scripton mouseUp
revGoUrl "http://groups.yahoo.com/group/revInterop/"
end mouseUp
help.bmp t con mouseUp put the uHelpText of me into field "ReleaseNotes" show field "fldHelp" end mouseUp uHelpText Add the UpdateCheck button to the top stack, then edit its properties with the uRIP Editor. You can create an xml file to match the updateInfoURL property using the updateInfoURL Editor, then ftp it to the proper web site. ɉPNG IHDR (-S gAMA a PLTE V bIDATeA! %!N [d J]ebul&4v[AΓ Q] 1LQ0{UTdS{7iXE3Z IENDB` cREVGeneral scriptChecksum \6[oݑ{SFo( revUniqueID 1129315511249 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 86 to 85script *on mouseUp
put the uHelpText of me into field "ReleaseNotes"
show field "fldHelp"
end mouseUp
help.bmp ton mouseUp local tPreviousContents if the uState of me is "Help" then set the uState of me to empty --put the uContents of me into field "fldContents" set the htmlText of field "fldContents" to the uContents of me else set the uContents of me to field "fldContents" --put the uRIP["HelpText"] of this stack into field "fldContents" set the htmlText of field "fldContents" to the uRIP["HelpText"] of this stack set the uState of me to "Help" end if end mouseUp | uContents uState ɉPNG IHDR (-S gAMA a PLTE V bIDATeA! %!N [d J]ebul&4v[AΓ Q] 1LQ0{UTdS{7iXE3Z IENDB` cREVGeneral scriptChecksum LiGg\Q{Pw5 revUniqueID 1129315554950 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 214 to 213scripton mouseUp
local tPreviousContents
if the uState of me is "Help" then
set the uState of me to empty
--put the uContents of me into field "fldContents"
set the htmlText of field "fldContents" to the uContents of me
else
set the uContents of me to field "fldContents"
--put the uRIP["HelpText"] of this stack into field "fldContents"
set the htmlText of field "fldContents" to the uRIP["HelpText"] of this stack
set the uState of me to "Help"
end if
end mouseUp
help.bmp d ɉPNG IHDR (-S gAMA a PLTE V bIDATeA! %!N [d J]ebul&4v[AΓ Q] 1LQ0{UTdS{7iXE3Z IENDB` cREVGeneral revUniqueID 1129315573636 i , D cREVGeneral bookmarks revUniqueID 1129331412344 handlerList prevHandler tempScript script btnAdd = _on menuPick pWhich if pWhich is not empty then SetRIPProp pWhich end if end menuPick 2 8 )Add a property from the recommended list Add --Recommended: name creator date description help homeURL downloadURL interface EULA requirements version --Suggested: type updateInfoURL props cREVGeneral scriptChecksum u `{3|~ bookmarks revUniqueID 1129330452208 handlerList menuPickscriptSelection char 71 to 70 prevHandler menuPick tempScript script =on menuPick pWhich
if pWhich is not empty then
SetRIPProp pWhich
end if
end menuPick
i0Olocal tControlList, tDisplayList on mouseDown local tTarget local x put empty into field "uProps" put empty into field "fldContents" put empty into tDisplayList put empty into tControlList put empty into button "btnControls" put line 1 of the recentCards of stack the topstack into tTarget repeat with x=1 to the number of controls of tTarget put the long id of control x of tTarget & cr after tControlList put the short name of control x of tTarget & cr after tDisplayList end repeat put tDisplayList into button "btnControls" end mouseDown on menuPick pWhich local tPos if pWhich is not empty then --set this control as tTarget put lineOffset(pWhich, tDisplayList) into tPos put line tPos of tControlList into pWhich put GatherRIPProps(pWhich) into field "uProps" end if end menuPick / N ` cREVGeneral scriptChecksum JSZZ8ȋ bookmarks revUniqueID 1129336223498 handlerList mouseDown menuPickscriptSelection char 562 to 561 prevHandler menuPick tempScript script slocal tControlList, tDisplayList
on mouseDown
local tTarget
local x
put empty into field "uProps"
put empty into field "fldContents"
put empty into tDisplayList
put empty into tControlList
put empty into button "btnControls"
put line 1 of the recentCards of stack the topstack into tTarget
repeat with x=1 to the number of controls of tTarget
put the long id of control x of tTarget & cr after tControlList
put the short name of control x of tTarget & cr after tDisplayList
end repeat
put tDisplayList into button "btnControls"
end mouseDown
on menuPick pWhich
local tPos
if pWhich is not empty then
--set this control as tTarget
put lineOffset(pWhich, tDisplayList) into tPos
put line tPos of tControlList into pWhich
put GatherRIPProps(pWhich) into field "uProps"
end if
end menuPick
btnControls @5 T T -Controls on the current card of the topStack Controls Rectangle Rectangle uProps btnStackProps btnDone fldContents btnCardProps Label Field help.bmp group id 1051 btnAdd group id 1054 btnControls tContents cREVGeneral scriptChecksum ُ B~ breakPoints handlerList scriptSelection char 1 to 0 revUniqueID 1129335255879 bookmarks tempScript prevHandler menuPickscript ) Label Field * F p ` cREVTable currentview TEdit the file here Then save it as an xml file and upload it to the proper web site. cREVGeneral revUniqueID 1129360629592 Edit the file here Then save it as an xml file &and upload it to the proper web site. * btnInfoEditor epXconstant kStackName="myStack" on mouseUp local tDate put the date into tDate convert tDate to dateItems create stack set the name of it to kStackName set the uRIP["name"] of stack kStackName to kStackName set the uRIP["copyright"] of stack kStackName to GetUserPreference("copyright", "public domain") set the uRIP["creator"] of stack kStackName to GetUserPreference("creator", "ECMI") set the uRIP["date"] of stack kStackName to item 1 to 3 of tDate set the uRIP["version"] of stack kStackName to "1.00.00" set the destroyStack of stack kStackName to true end mouseUp X | cConsLastHandlerName mouseUpcConsLastHandlerScroll 28 Create New mainStack cREVGeneral scriptChecksum iG[-kKDxQZ} handlerList mouseUp breakPoints scriptSelection char 391 to 390 bookmarks revUniqueID 1129567770366 prevHandler mouseUp tempScript scriptconstant kStackName="myStack"
on mouseUp
local tDate
put the date into tDate
convert tDate to dateItems
create stack
set the name of it to kStackName
set the uRIP["name"] of stack kStackName to kStackName
set the uRIP["copyright"] of stack kStackName to GetUserPreference("copyright", "public domain")
set the uRIP["creator"] of stack kStackName to GetUserPreference("creator", "ECMI")
set the uRIP["date"] of stack kStackName to item 1 to 3 of tDate
set the uRIP["version"] of stack kStackName to "1.00.00"
set the destroyStack of stack kStackName to true
end mouseUp
, tContents !` R [ d cREVGeneral revUniqueID 1129572951810 "All uRIP properties are optional. 6The recommended set of elements per the ECMI spec is: name copyright creator date description help homeURL downloadUrl interface EULA requirements version !And the suggested elements are: type updateInfoURL props . Button ep Zon mouseUp revGoURL "http://classics.mit.edu/Browse/browse-Euripides.html" end mouseUp l R cConsLastHandlerName mouseUpcConsLastHandlerScroll 0 Euripides cREVGeneral scriptChecksum ʥkN revUniqueID 1129582531046 bookmarks handlerList mouseUp tempScript prevHandler scriptSelection char 24 to 23scripton mouseUp
revGoURL "http://classics.mit.edu/Browse/browse-Euripides.html"
end mouseUp
4 i - cREVGeneral revUniqueID 1129588900070 1 fldCreator )` k 1 6 cREVTable currentview kaos cREVGeneral revUniqueID 1129588801639 / 3 Label Field 1 d cREVTable currentview creator cREVGeneral revUniqueID 1129588808449 creator 5 i FV cREVGeneral revUniqueID 1129588916260 6 fldCopyright )` k J cREVGeneral revUniqueID 1129588916261 / 7 Label Field J d cREVTable currentview copyright cREVGeneral revUniqueID 1129588912022 copyright 8 i _^ cREVGeneral revUniqueID 1129588939929 9 fldHomeURL )` l c cREVGeneral revUniqueID 1129588939930 / : Label Field c d cREVTable currentview homeURL cREVGeneral revUniqueID 1129588934615 homeURL ; i wT e cREVGeneral revUniqueID 1129589005748 < fldEULA )` m | \ cREVGeneral revUniqueID 1129589005749 / > ` @ O } Z = Label Field { d cREVTable currentview EULA cREVGeneral revUniqueID 1129589000937 EULA @ Label Field . d cREVTable currentview Preferences cREVGeneral revUniqueID 1129589199123 Preferences A btnPreferrences eppush card
go card "Preferences"
end mouseUp
C btnDone mp8on mouseUp SavePreferences pop card end mouseUp on SavePreferences local x local tField repeat with x=1 to the number of fields of this card if not the lockText of field x then put the short name of field x into tField set the uRIP[char 4 to -1 of tField] of this stack to field x end if end repeat SaveXMLPreferences end SavePreferences on SaveXMLPreferences local tPrefsFolder if the platform is "Win32" then put specialFolderPath(26) into tPrefsFolder else put specialFolderPath("Preferences") into tPrefsFolder end if SaveXMLPrefs tPrefsFolder end SaveXMLPreferences on SaveXMLPrefs pWhere local x, tField local tFileName put pWhere & "/uRIPides.xml" into tFileName open file tFileName for write write "on mouseUp
SavePreferences
pop card
end mouseUp
on SavePreferences
local x
local tField
repeat with x=1 to the number of fields of this card
if not the lockText of field x then
put the short name of field x into tField
set the uRIP[char 4 to -1 of tField] of this stack to field x
end if
end repeat
SaveXMLPreferences
end SavePreferences
on SaveXMLPreferences
local tPrefsFolder
if the platform is "Win32" then
put specialFolderPath(26) into tPrefsFolder
else
put specialFolderPath("Preferences") into tPrefsFolder
end if
SaveXMLPrefs tPrefsFolder
end SaveXMLPreferences
on SaveXMLPrefs pWhere
local x, tField
local tFileName
put pWhere & "/uRIPides.xml" into tFileName
open file tFileName for write
write "<prefs>" & cr to file tFileName
repeat with x=1 to the number of fields of this card
if field x is not empty and not the lockText of field x then
put the short name of field x into tField
set the uRIP[char 4 to -1 of tField] of this stack to field x
write "<" & char 4 to -1 of tField & ">" to file tFileName
write field x to file tFileName
write "</" & char 4 to -1 of tField & ">" & cr to file tFileName
end if
end repeat
write "</prefs>" & cr to file tFileName
close file tFileName
end SaveXMLPrefs
D btnAbout ep 6on mouseUp push card go card "About" end mouseUp V y About cREVGeneral scriptChecksum wkq u(kk bookmarks revUniqueID 1129608696581 handlerList mouseUpscriptSelection char 40 to 39 prevHandler mouseUp tempScript scripton mouseUp
push card
go card "About"
end mouseUp
F btnDone mp8on mouseUp SavePreferences pop card end mouseUp on SavePreferences local x local tField repeat with x=1 to the number of fields of this card if not the lockText of field x then put the short name of field x into tField set the uRIP[char 4 to -1 of tField] of this stack to field x end if end repeat SaveXMLPreferences end SavePreferences on SaveXMLPreferences local tPrefsFolder if the platform is "Win32" then put specialFolderPath(26) into tPrefsFolder else put specialFolderPath("Preferences") into tPrefsFolder end if SaveXMLPrefs tPrefsFolder end SaveXMLPreferences on SaveXMLPrefs pWhere local x, tField local tFileName put pWhere & "/uRIPides.xml" into tFileName open file tFileName for write write "on mouseUp
SavePreferences
pop card
end mouseUp
on SavePreferences
local x
local tField
repeat with x=1 to the number of fields of this card
if not the lockText of field x then
put the short name of field x into tField
set the uRIP[char 4 to -1 of tField] of this stack to field x
end if
end repeat
SaveXMLPreferences
end SavePreferences
on SaveXMLPreferences
local tPrefsFolder
if the platform is "Win32" then
put specialFolderPath(26) into tPrefsFolder
else
put specialFolderPath("Preferences") into tPrefsFolder
end if
SaveXMLPrefs tPrefsFolder
end SaveXMLPreferences
on SaveXMLPrefs pWhere
local x, tField
local tFileName
put pWhere & "/uRIPides.xml" into tFileName
open file tFileName for write
write "<prefs>" & cr to file tFileName
repeat with x=1 to the number of fields of this card
if field x is not empty and not the lockText of field x then
put the short name of field x into tField
set the uRIP[char 4 to -1 of tField] of this stack to field x
write "<" & char 4 to -1 of tField & ">" to file tFileName
write field x to file tFileName
write "</" & char 4 to -1 of tField & ">" & cr to file tFileName
end if
end repeat
write "</prefs>" & cr to file tFileName
close file tFileName
end SaveXMLPrefs
H Label Field 2 cREVTable currentview uRIPides cREVGeneral revUniqueID 1129608844638 uRIPides I fldVersion V cREVTable currentview uRIPides cREVGeneral revUniqueID 1129608877335 1.02.00 & fldHelp x "on mouseUp hide me end mouseUp LH cREVGeneral scriptChecksum ]Rs˕,{)UTY bookmarks revUniqueID 1129360437572 handlerList mouseUpscriptSelection char 21 to 20 prevHandler mouseUp tempScript script won mouseUp
hide me
end mouseUp
)Metadata and Interoperability Guidelines @ ( @ Draft 5, 21 June, 2005 @ Originally Authored By: @ Ken Ray, kray@sonsothunder.com @ @ @ +Richard Gaskin, ambassador@fourthworld.com @ @ @ * Contributions by: @ % Dick Kriesel, dick.kriesel@mail.com @ @ @ $ & Eric Chatonet, eric.chatonet@mac.com @ @ @ @ % Maintained at: @ F RevInterop Group at Yahoo, http://groups.yahoo.com/group/revInterop @ @ ( @ D @ INTRODUCTION @ @ As the Transcript development community grows we can expect many new innovative solutions coming from its members. These include: @ @ Libraries @ tStack files that hold scripts which can be called from throughout the message path, initialized with "start using". @ s @ Components @ Objects, groups of objects, or stacks that have a specific purpose or function, such as a table widget or FTP settings dialog, useful across multiple projects. @ @ Templates @ Prefabricated collections of objects that work together to provide the basis for a complete software application, such as a shell for a slide show viewer or a system utility. @ @ HCollectively, these solutions are referred to as resources. As the variety of these things grows issues of interoperability are introduced, such as name space conflicts among handlers or objects. In addition to minimizing errors, there is an opportunity to provide easier integration of resources from different third parties. @ 1 @ 1 @ : @ This initiative proposes a set of conventions that aim to serve both goals, minimizing the risk of introducing errors when integrating resources, and exploring ways to make it simpler to use such resources. @ @ Much of what is needed for that goal could be described generically as "metadata": additional information bound to the resources in question but which do not directly affect performance of those resources. @ @ The Dublin Core Metadata Initiative (DCMI) is a consortium effort to facilitate exchange of documents. Given that the goals of the DCMI and this initiative are in many ways very similar, and that the DCMI working group has already expended tremendous investment in defining metadata needs for such purposes, this initiative aims to use DCMI nomenclature and conventions whenever practical. @ @ To reinforce this deference to the DCMI project and as a tip-of-the-hat to the company that produces Transcript and Revolution (Runtime Revolution Ltd. of Edinburgh, Scotland), this project is given the lighthearted name of "Edinburgh Core Metadata Initiative" ("ECMI"). @ @ @ .GOALS OVERVIEW - Must-Haves and Nice-to-Haves @ - @ Above all else programming with Transcript is simple, and nothing in this proposal should introduce requirements beyond anything required by the Revolution engine to execute. @ @ It should be possible to completely ignore the recommendations of this proposal and still have acceptable performance of a library, component, or template, at least by itself. @ @ Where the ECMI becomes useful is in anticipating areas of potential conflict between such resources, and anticipating that as the variety of third-party resources grows it will be desirable to have ever-simpler ways of working with them. @ @ The recommendations of this proposal are therefore entirely optional, falling firmly into the Nice-to-Have category with ideally no Must-Haves. @ @ That said, adopting the recommendations of this proposal may be seen as allowing a resource to be a "good citizen" within the larger host software it may be used in. @ @ It's hoped that the ECMI proposal will reflect the needs of most, if not all, third-party Transcript programmers, as and such be widely used by them in works delivered to the community. @ @ @ GOALS SPECIFICS @ @ When sharing software resources it can be useful to have immediate access to a variety of information about the resource, including: @ @ +- Who made it, and how can I contact them? @ * - What does it do? @ - How do I use it? @ - What version is it? @ &- Where can I get the latest version? @ % #- What are the legal terms of use? @ " 8- What are its technical requirements and dependencies? @ 7 @ Many of these are already defined in the DCMI, at-----------------------------------------------------------
-- Generic check to check for latest version.
-- Part of the uRIPides collection.
--
-- This now conforms to the ECMI standard:
-- There is an xml file on a web server with the update info containing:
-- latest version
-- update url
-- release notes
--
-- This requires the following custom properties of this button to be set up:
-- uRIP["name"]
-- uRIP["updateInfoURL"]
-- uRIP["version"]
--
-- Fixing up the two constants and then running the _RIPSetup
-- handler sets up the custom properties
--
-- The xml file contains, at a minimum, the following per the ECMI spec:
-- <rip>
-- <file>
-- <version>currentVersionNumber</version>
-- <downloadURL>downloadURL</downloadURL>
-- </file>
-- </rip>
-----------------------------------------------------------
-----------------------------------------------------------
-- mouseUp
--
-- Get our current version info,
-- compare it with the latest on the web.
-- If we're up to date, just tell the user so.
-- Otherwise launch a browser to start a download.
-- If there are release notes and there's a field in the
-- current environment called "ReleaseNotes" then show them.
-----------------------------------------------------------
on mouseUp
local tLatestVersion
local tWebLocation
local tTree, tNodes, tNum, tStackName, tSpec
local tResult
-- set up the custom properties based on the constant values
set the cursor to busy
-- get the info for the most current version
put url(the uRIP["updateInfoURL"] of me) into tWebLocation
put the result into tResult
if tResult is not empty then
switch tResult
case "error 404 not found"
answer the uRIP["updateInfoURL"] of me && "not found"
break
default
answer tResult
end switch
else
replace lf with cr in tTree
put revCreateXMLTree(tWebLocation, false, true, false) into tTree
if "xmlerr" is not in tTree then
put revXMLNumberOfChildren(tTree, "/rip", "file", -1) into tNum
put revXMLFirstChild(tTree, "/rip") into tSpec
put revXMLNodeContents(tTree, tSpec & "/name") into tStackName
repeat while tStackName is not the uRIP["name"] of me
put revXMLNextSibling(tTree, tSpec) into tSpec
if tSpec is empty then
exit repeat
end if
put revXMLNodeContents(tTree, tSpec & "/name") into tStackName
if "xmlerr" is in tStackName then
exit repeat
end if
end repeat
if tSpec is not empty then
-- get the latest version number
put revXMLNodeContents(tTree, tSpec & "/version") into tLatestVersion
if tLatestVersion > the uRIP["version"] of me then
-- get the release notes
if there is a field "ReleaseNotes" then
get revXMLNodeContents(tTree, tSpec & "/releaseNotes")
if it is not empty then
put it into field "ReleaseNotes"
end if
end if
-- get the download url
put revXMLNodeContents(tTree, tSpec & "/downloadURL") into tNodes
revGoUrl (tNodes)
else
answer "Your version is current."
end if
end if
end if
end if
set the cursor to arrow
end mouseUp
K ECMI.gif @ Rh t GIF89aht l U Y ^ acf"o%p *t+6{5?