home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / misc / jcgraph / rexx / savewindowposdefault.rex < prev    next >
OS/2 REXX Batch file  |  1995-02-27  |  723b  |  37 lines
  1. /* SaveWindowPosDefault.rex */
  2. /* ------------------------ */
  3. /* Description: Save JcGraph current window size and position that can  */
  4. /*              then be retreived with LoadWindowPosDefault.rex.        */
  5.  
  6. options results
  7.  
  8. address 'JCGRAPH'
  9.  
  10. if open('WinDflt','JcGraph:Rexx/WinDflt','W') then do
  11.  
  12.   'ActivateWindow Output'
  13.   'MoveWindow'
  14.   Size=result
  15.   writeln('WinDflt',Size)
  16.   'SizeWindow'
  17.   Size=result
  18.   writeln('WinDflt',Size)
  19.  
  20.   'ActivateWindow Preview'
  21.   'MoveWindow'
  22.   Size=result
  23.   writeln('WinDflt',Size)
  24.   'SizeWindow'
  25.   Size=result
  26.   writeln('WinDflt',Size)
  27.  
  28.   'ActivateWindow Interface'
  29.   'MoveWindow'
  30.   Size=result
  31.   writeln('WinDflt',Size)
  32.   'SizeWindow'
  33.   Size=result
  34.   writeln('WinDflt',Size)
  35.  
  36. end
  37.