Generic behavior to set Screensaver

 

Compatibilities: Required Xtras: Desktop Xtra

This item has not yet been rated

Sets screensaver and screensaver timeout

-- Generic behavior to set Screensaver -- Desktop Xtra 1.0 or later required -- Compatibilities: Director 6.x, 7.x, 8.x, Windows property Screensaver, Timeout on getPropertyDescriptionList   set description = [:]   addProp description, #Screensaver, [#default: the moviePath & "myssaver.scr", #format:#string, #comment:"Screensaver Path:"]   addProp description, #Timeout, [#default:"300", #format:#string, #comment:"Screensaver Timeout, in seconds:"]   return description end on getBehaviorDescription   return "            " & ¬   "- -    Screensaver Behavior    - -" & RETURN & ¬   "Sets Screensaver." end on mouseDown   setScreensaver end on setScreenSaver   set Ok = AddScreenSaver(Screensaver)   if getAt(Ok, 1)= 0 then     set SsName = getAt(Ok, 3)     SetActiveScreenSaver(SsName)   else     -- Error     alert("Error: " & getAt(Ok, 1) & " - base error code")   end if end