home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / text_dtp / editor / edge_d / rexx / menu_winstohorz.edge < prev    next >
Text File  |  1995-07-10  |  1KB  |  66 lines
  1. /*
  2. ** $VER: Menu_WinsToHorz.edge 1.0 (Friday 22-Oct-93 12:55:22)
  3. **
  4. ** Zeigt alle Fenster in gleicher Größe horizontal angeordnet an.
  5. **
  6. ** Geschrieben von Thomas liljetoft & Inovatronics,
  7. ** deutsche Kommentare von Thomas Heinze
  8. */
  9.  
  10. options results
  11.  
  12. /* einige allgemeine Informationen auslesen */
  13. firstname = address()
  14. getenvvar _ge_errlevel
  15. errlevel = result
  16. getenvvar _ge_realscreenheight
  17. sh = result
  18. getenvvar _ge_realscreenwidth
  19. sw = result
  20. getenvvar _ge_barheight
  21. bar = result
  22. getenvvar _ge_windows
  23. win_cnt = result
  24.  
  25. /* durch die Fenster blättern und die entsprechenden Befehle schicken */
  26. work_cnt = 0
  27. do forever
  28.  
  29.     work_cnt = work_cnt + 1
  30.     
  31.     'window'
  32.     parse var result 'X ' wx ', Y ' wy ', W ' ww ', H ' wh ', ' wrexx ', ' wStatus
  33.  
  34.     /* Wenn vergrößert, dann verkleinern */
  35.     if wStatus = "UnZoomed" then 'Window' Zoom
  36.  
  37.     /* Die Arbeit ausführen */
  38.     Call DoTheWindow
  39.     
  40.     /* Nächstes Fenster anspringen, sofern existent */
  41.     'addressof nextwindow'
  42.     newname = result
  43.     address value newname
  44.     if newname == firstname then do
  45.         'window front'
  46.         leave
  47.     end
  48. end
  49.  
  50. exit(0)
  51.  
  52. DoTheWindow:
  53.     /* Neue Fenstergröße */
  54.     h=((sh-bar)/win_cnt)%1
  55.     t=(bar+((work_cnt-1)*h))%1
  56.     
  57.     /* Fenster anpassen */
  58.     'changewindow leftedge 0 topedge' t 'width' sw 'height' h
  59.     
  60.     /* Wenn ein Fehler aufgetreten ist, dann melden */
  61.     if rc >= errlevel then do
  62.         'fault'
  63.         'requestnotify "'result'"'
  64.     end
  65. return
  66.