REVO2700 ' SCRNSAVE primer @ Pt'q =on preOpenCard get the short name of the target put it into fld "title" end preOpenCard function amIRunning pTokenFileName -- check to see if am I running! put specialFolderPath("Temporary")& "/" & pTokenFileName into tTokenFilePath if there is a file tTokenFilePath then return true else return false end if end amIRunning on cleanTokenFile pTokenFileName -- destroy a given token file. Call this on your shutdown handler. -- fill defaults if pTokenFileName is empty then put the short name of the mainStack into pTokenFileName end if put specialFolderPath("Temporary")& "/" & pTokenFileName into tTokenFilePath if there is a file tTokenFilePath then delete file tTokenFilePath end if end cleanTokenFile function createTokenFile pTokenFileName -- create a token file. put "file:/" & specialFolderPath("Temporary")& "/" & pTokenFileName into tTokenFileURL put the short date & cr & the short time into URL tTokenFileURL end createTokenFile on checkMultipleInstances pTokenFileName -- check for multiple instances of the program -- fill defaults if pTokenFileName is empty then put the short name of the mainStack into pTokenFileName end if if amIRunning() then quit else createTokenFile(pTokenFileName) end if end checkMultipleInstances DP ScreenSaver primer U Lucida Grande W Lucida Grande W tahoma W tahoma W verdana W Skia W Helvetica U courier @U Lucida Grande U Lucida Grande U courier U courier U courier cRevStandaloneSettings 7scriptLibraries Internet Geometry PrintingMacOSX true OSX,name SCRNSAVE primerMacOS,documentType UNIX,fileSelector trueWindows trueWindows,LegalCopyright 22004 Soap Dog Studio All rights reserved worldwideMacOS,longVersion SCRNSAVE primer 1.0.0.0UNIX,pageSetup trueOSX,documentType Linux trueOdt falseinclusions searchWindows,documenticonFile :/Applications/Revolution 2.2.1/Sample Icons/genericdoc.ico answerDialog trueSPARC false SolIntel falseOSX,documentExtension Windows,FileDescription #SCRNSAVE primer 1.0.0.0 for WindowsOSX,longVersion SCRNSAVE primer 1.0.0.0OSX,copyright 22004 Soap Dog Studio All rights reserved worldwideUNIX,printerChooser trueMacOS,MinimumSize 15000MacOS,versionnumber1 1MacOS,versionnumber2 0MacOS,Release Finalname SCRNSAVE primerMacOS,versionnumber3 0Hp9k700 truers6000 true MacOS,Region 1OSX,shortVersion 1.0.0.0Windows,fileversion1 1Windows,productversion1 1Windows,fileversion2 0Windows,productversion2 0Windows,fileversion3 0Bsd truecursors falseWindows,productversion3 0Windows,fileversion4 0Windows,productversion4 0 OSX,info SCRNSAVE primer Version 1.0.0.0MacOS,dynamicMemory trueIris true askDialog trueOSX,signature ????Windows,iconFile :/Applications/Revolution 2.2.1/Sample Icons/genericapp.icoMacOS,PreferredSize 15000Windows,ProductName SCRNSAVE primerUNIX,colorChooser true MacOSPPC trueWindows,companyname Soap Dog Studio SolSparc trueMacOS,creator ???? cREVGeneral scriptChecksum :$g'zT 9 bookmarks handlerList LpreOpenCard amIRunning cleanTokenFile createTokenFile checkMultipleInstancesscriptSelection char 354 to 353prevHandler preOpenCardtempScript script
on preOpenCard
get the short name of the target
put it into fld "title"
end preOpenCard
function amIRunning pTokenFileName
-- check to see if am I running!
put specialFolderPath("Temporary")& "/" & pTokenFileName into tTokenFilePath
if there is a file tTokenFilePath then
return true
else
return false
end if
end amIRunning
on cleanTokenFile pTokenFileName
-- destroy a given token file. Call this on your shutdown handler.
-- fill defaults
if pTokenFileName is empty then
put the short name of the mainStack into pTokenFileName
end if
put specialFolderPath("Temporary")& "/" & pTokenFileName into tTokenFilePath
if there is a file tTokenFilePath then
delete file tTokenFilePath
end if
end cleanTokenFile
function createTokenFile pTokenFileName
-- create a token file.
put "file:/" & specialFolderPath("Temporary")& "/" & pTokenFileName into tTokenFileURL
put the short date & cr & the short time into URL tTokenFileURL
end createTokenFile
on checkMultipleInstances pTokenFileName
-- check for multiple instances of the program
-- fill defaults
if pTokenFileName is empty then
put the short name of the mainStack into pTokenFileName
end if
if amIRunning() then
quit
else
createTokenFile(pTokenFileName)
end if
end checkMultipleInstances
ScreenSaver Primer Pon preOpenCard hide image "logo" hide image "biglogo" hide fld "little header" hide fld "title" end preOpenCard on openCard show image "biglogo" with visual effect dissolve slowly show fld "little header" with visual effect push left end openCard 'q \ cREVGeneral scriptChecksum `h_Xzǂ bookmarks handlerList preOpenCard openCardscriptSelection char 105 to 104prevHandler openCardtempScript scripton preOpenCard
hide image "logo"
hide image "biglogo"
hide fld "little header"
hide fld "title"
end preOpenCard
on openCard
show image "biglogo" with visual effect dissolve slowly
show fld "little header" with visual effect push left
end openCard
What are screensavers anyway P {on preOpenCard show fld "title" show image "logo" put the short name of this card into fld "title" end preOpenCard 'q ^ cREVGeneral scriptChecksum #ޒ-'GJ|! bookmarks handlerList preOpenCardtempScript prevHandler preOpenCardscriptSelection char 72 to 71script hon preOpenCard
show fld "title"
show image "logo"
put the short name of this card into fld "title"
end preOpenCard
Screensavers and Rev @ 'q\ Windows Screensavers @ 'qX Windows screensaver lifecycle @ 'q? Win32 Screensaver internals @ 'q; code example #1: simple startup Pon startup checkMultipleInstances switch $1 -- $1 == the parameter. case "/s" -- Launch saver. launchScreensaver break case "/c" -- Setup saver. configureScreensaver break default quit end switch end startup 'q 9 cREVGeneral scriptChecksum =&|:Z{ bookmarks handlerList startuptempScript prevHandler scriptSelection char 231 to 230script xon startup
checkMultipleInstances
switch $1 -- $1 == the parameter.
case "/s" -- Launch saver.
launchScreensaver
break
case "/c" -- Setup saver.
configureScreensaver
break
default
quit
end switch
end startup
!checking for multiple instances. @ 'q? -considerations on launching your screensaver @ 'q? Stop That Saver! @ 'q= Interesting things to do @ 'q; About @ 'q9 ! " # $ ide i Hd ^ cREVGeneral revUniqueID 1093839430243 Graphic 1 K@ ,L\ V \ cREVGeneral revUniqueID 1093802530721 next B (on mouseUp go next card end mouseUp @P ! A cREVGeneral scriptChecksum -k؉~o bookmarks revUniqueID 1093802763312handlerList mouseUpscriptSelection char 15 to 14prevHandler tempScript scripton mouseUp
go next card
end mouseUp
prev B (on mouseUp go prev card end mouseUp @P @ cREVGeneral scriptChecksum CmLFkq9WZ bookmarks revUniqueID 1093802973753handlerList mouseUpscriptSelection char 27 to 26prevHandler tempScript scripton mouseUp
go prev card
end mouseUp
cardlist bâU Pon menuPick theCard visual effect dissolve go to card thecard end menuPick }P ' [ F 2ScreenSaver Primer What are screensavers anyway Screensavers and Rev Windows Screensavers Windows screensaver lifecycle Win32 Screensaver internals code example #1: simple startup checking for multiple instances. considerations on launching your screensaver Stop That Saver! Interesting things to do About cREVGeneral scriptChecksum H-.=#߳4 bookmarks revUniqueID 1093803096589handlerList menuPickscriptSelection char 66 to 65prevHandler tempScript scripton menuPick theCard
visual effect dissolve
go to card thecard
end menuPick
logo =on mouseUp revGoURL "http://www.soapdog.org" end mouseUp N PNG IHDR <