home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDGE1_704.DMS / in.adf / Edge_Rexx.lha / Menu_WinsToFull.edge < prev    next >
Encoding:
Text File  |  1993-10-27  |  559 b   |  36 lines
  1. /*
  2. ** $VER: Menu_WinsToFull.edge 1.0 (Friday 22-Oct-93 12:55:22)
  3. **
  4. ** Display all windows at their full size
  5. **
  6. ** Written by Thomas liljetoft & Inovatronics
  7. */
  8.  
  9. options results
  10.  
  11. /* get some general info */
  12. firstname = address()
  13. getenvvar _ge_barheight
  14. bar = result
  15. getenvvar _ge_visualscreenheight
  16. h = result - bar
  17. getenvvar _ge_visualscreenwidth
  18. w = result
  19.  
  20. /* loop thru the windows */
  21. do forever
  22.  
  23.     'window max'
  24.  
  25.     'addressof nextwindow'
  26.     newname = result
  27.  
  28.     address value newname
  29.     if newname == firstname then do
  30.         'window front'
  31.         leave
  32.     end
  33. end
  34.     
  35. exit(0)
  36.