Contents
Articles
Behaviors
Books
Director News
Director Web Sites
FAQ
Games
Mailing Lists
News Groups
Project Examples
Reviews
Software
Tools
Useful Web Sites
Utilities
Xtras

Don't miss these
Simple file open/save dialog behavior
MultimediaHelp
myDialog
StopWatch Timer
Moving MIAWs with lingo
Drifter
CTRL+B, CTRL+I, CTRL+U
cXtraComboBox
Shell Xtra
ISOinteractive (Isometric Collision Path Editor) in BETA!
 

 

 

Behavior Generic behavior to set Screensaver

Added on 1/19/2002

 

Compatibilities:
behavior D6_5 D7 D8 D8_5 PC UK US

Required Xtras:
Desktop Xtra

This item has not yet been rated

Author: Shockdev

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

 


Contact

MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA

Send e-mail