Generic behavior to set Wallpaper

 

Compatibilities: Required Xtras: Desktop Xtra

This item has not yet been rated

Sets desktop wallpaper

-- Generic behavior to set Wallpaper -- Desktop Xtra 1.0 or later required -- Compatibilities: Director 6.x, 7.x, 8.x, Windows property Wallpaper, PrevWallPaper on getPropertyDescriptionList   set description = [:]   addProp description, #Wallpaper, [#default: the moviePath & "mywallpaper.bmp", #format:#string, #comment:"Wallpaper Path:" & RETURN & "(empty string to remove wallpaper)"]   return description end on getBehaviorDescription   return "            " & ¬   "- -    Wallpaper Behavior    - -" & RETURN & ¬   "Sets Wallpaper." end on mouseDown   setWallpaper end on setWallpaper   set Ok = SetDeskWallPaper (Wallpaper)   if getAt(Ok, 1) = 0 then     -- Ok     set PrevWallPaper = getAt(Ok, 3) -- previous wallpaper   else     -- Error     alert("Error: " & getAt(Ok, 1) & " - base error code")   end if end