home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / text_dtp / editor / edge_d / rexx / menu_winstofull.edge < prev    next >
Text File  |  1995-07-10  |  626b  |  37 lines
  1. /*
  2. ** $VER: Menu_WinsToFull.edge 1.0 (Friday 22-Oct-93 12:55:22)
  3. **
  4. ** Zeigt alle Fenster in ihrer vollen Größe an
  5. **
  6. ** Geschrieben von Thomas liljetoft & Inovatronics,
  7. ** deutsche Kommentare von Thomas Heinze
  8. */
  9.  
  10. options results
  11.  
  12. /* einige allgemeine Informationen */
  13. firstname = address()
  14. getenvvar _ge_barheight
  15. bar = result
  16. getenvvar _ge_visualscreenheight
  17. h = result - bar
  18. getenvvar _ge_visualscreenwidth
  19. w = result
  20.  
  21. /* Durch die Fenster blättern */
  22. do forever
  23.  
  24.     'window max'
  25.  
  26.     'addressof nextwindow'
  27.     newname = result
  28.  
  29.     address value newname
  30.     if newname == firstname then do
  31.         'window front'
  32.         leave
  33.     end
  34. end
  35.     
  36. exit(0)
  37.