home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / misc / jcgraph / rexx / windowset1.rex < prev    next >
OS/2 REXX Batch file  |  1995-02-27  |  610b  |  36 lines
  1. /* WindowSet1.rex */
  2. /* -------------- */
  3. /* Description: Save value to be used by 'Pre.1'                */
  4.  
  5. options results
  6.  
  7. address 'JCGRAPH'
  8.  
  9. if open('WinDflt','T:WinDflt1','W') then do
  10.  
  11.   'ActivateWindow Output'
  12.   'MoveWindow'
  13.   Size=result
  14.   writeln('WinDflt',Size)
  15.   'SizeWindow'
  16.   Size=result
  17.   writeln('WinDflt',Size)
  18.  
  19.   'ActivateWindow Preview'
  20.   'MoveWindow'
  21.   Size=result
  22.   writeln('WinDflt',Size)
  23.   'SizeWindow'
  24.   Size=result
  25.   writeln('WinDflt',Size)
  26.  
  27.   'ActivateWindow Interface'
  28.   'MoveWindow'
  29.   Size=result
  30.   writeln('WinDflt',Size)
  31.   'SizeWindow'
  32.   Size=result
  33.   writeln('WinDflt',Size)
  34.  
  35. end
  36.