/* 
   $VER: SaveOpenDrawers.rexx 1.0 (18.02.2012) © 2012 Rob Cranley
   ARexx script to save open drawer windows for reopening later
*/
 
/* Configuration */
 
snapshot_windows=0
 
/*
   Set snapshot_windows to 1 if you want the script to snapshot window size
   and position for every open window.
   Set it to 0 to ignore positions or use the built-in remember function. See
   the documentation for a fuill description.
*/
 
/*SIGNAL ON syntax*/
 
OPTIONS RESULTS
ADDRESS WORKBENCH
 
GETATTR windows STEM wlist
 
IF OPEN("File","S:SavedDrawers.list","WRITE") THEN DO
  IF wlist.count>0 THEN DO
    DO i=1 TO wlist.count-1
      dummy=WRITELN("File",wlist.i)
      'GETATTR window.left NAME "'||wlist.i||'"'
      dummy=WRITELN("File",result)
      'GETATTR window.top NAME "'||wlist.i||'"'
      dummy=WRITELN("File",result)
      'GETATTR window.width NAME "'||wlist.i||'"'
      dummy=WRITELN("File",result)
      'GETATTR window.height NAME "'||wlist.i||'"'
      dummy=WRITELN("File",result)
      IF snapshot_windows=1 THEN DO
        'WINDOW "'||wlist.i||'" SNAPSHOT'
      END
    END
  END
  /*dummy=WRITELN("MyFile","Testing!!")*/
  dummy=CLOSE("File")
END
ELSE DO
  SAY "Error opening file S:SavedDrawers.list for writing"
END
EXIT
 
syntax:
Say "Error occurred - Error string: "ERRORTEXT(rc)
EXIT