Hi All!

In my message to All, dated , I wrote:

 >JZ: /* =--=--=--=--=--=--=--=-- */
 >JZ: /* Rotate Desktop Wallpaper */
 >JZ: /* =--=--=--=--=--=--=--=-- */
 >JZ: ImageRepository = '\\Tripod\Apps\Desktop\Images'
 >JZ: SystemImagePath = 'D:\OS2\BITMAP\Custom'
 >JZ: '{at}if not exist' SystemImagePath'\* mkdir' SystemImagePath
 >JZ: if RxFuncQuery('SysLoadFuncs') \= 0
 >JZ:  then do
 >JZ:        call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
 >JZ:        call SysLoadFuncs
 >JZ:       end
 >JZ: call SysFileTree SystemImagePath'\*', 'Images', 'FO'
 >JZ: NewImage = (Images.0 = 0)
 >JZ: call SysFileTree ImageRepository'\*', 'Images', 'FO'
 >JZ: do f = 1 to Images.0
 >JZ:   ImageFile = FileSpec('Name', Images.f)
 >JZ:   if NewImage
 >JZ:    then do
 >JZ:          '{at}copy' ImageRepository'\'ImageFile SystemImagePath '>NUL'
 >JZ:          LEAVE
 >JZ:         end
 >JZ:   if stream(SystemImagePath'\'ImageFile, 'C', 'Query Exists') \= ''
 >JZ:    then do
 >JZ:          '{at}del' SystemImagePath'\'ImageFile
 >JZ:          NewImage = 1
               if f = Images.0 then f = 0
 >JZ:         end
 >JZ: end
 >JZ: call Wallpaper SystemImagePath'\'ImageFile
 >JZ: drop Images
 >JZ: RETURN
 >JZ: Wallpaper: PROCEDURE
 >JZ:  parse upper arg BitMapFile
 >JZ:  Layout = 'T' /* Layout can be N(ormal), S(caled) or T(iled) */
 >JZ:  FileSize = stream(BitMapFile, 'C', 'Query Size')
 >JZ:  if FileSize > 30000 then Layout = 'S'
 >JZ:  rc = SysSetObjectData('', 'BACKGROUND='BitMapFile',
 >JZ:  'Layout)
 >JZ:  if rc \= 1 then say 'Failed to update Desktop Background to'
 >JZ:  BitMapFile'!'
 >JZ: RETURN

That one added line above will make sure there's no blank screen when all
images in the repository have been exhausted.

Kind regards,

 ._|~/_

e-mail: johanzw{at}mail.com_NOSPAM     (home)
web:    http://surf.to/tripod       (personal)
        http://www.diskidee.be      (our e-zine!)
--- Maximus-CBCS v3.01