home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Editor / Edge1721.DMS / Edge1721.adf / Edge_Rexx.lha / Menu_WinsToHorz.edge < prev    next >
Encoding:
Text File  |  1993-11-09  |  1.3 KB  |  65 lines
  1. /*
  2. ** $VER: Menu_WinsToHorz.edge 1.0 (Friday 22-Oct-93 12:55:22)
  3. **
  4. ** Display all windows, horizontally panel-ed
  5. **
  6. ** Written by Thomas liljetoft & Inovatronics
  7. */
  8.  
  9. options results
  10.  
  11. /* get some general info*/
  12. firstname = address()
  13. getenvvar _ge_errlevel
  14. errlevel = result
  15. getenvvar _ge_realscreenheight
  16. sh = result
  17. getenvvar _ge_realscreenwidth
  18. sw = result
  19. getenvvar _ge_barheight
  20. bar = result
  21. getenvvar _ge_windows
  22. win_cnt = result
  23.  
  24. /* now actually loop thru the windows and do our thing */
  25. work_cnt = 0
  26. do forever
  27.  
  28.     work_cnt = work_cnt + 1
  29.     
  30.     'window'
  31.     parse var result 'X ' wx ', Y ' wy ', W ' ww ', H ' wh ', ' wrexx ', ' wStatus
  32.  
  33.     /* if unzoomed then zoom it baby */
  34.     if wStatus = "UnZoomed" then 'Window' Zoom
  35.  
  36.     /* do actual work */
  37.     Call DoTheWindow
  38.     
  39.     /* on to the next one, if there is one */
  40.     'addressof nextwindow'
  41.     newname = result
  42.     address value newname
  43.     if newname == firstname then do
  44.         'window front'
  45.         leave
  46.     end
  47. end
  48.  
  49. exit(0)
  50.  
  51. DoTheWindow:
  52.     /* what is the new size of the window */
  53.     h=((sh-bar)/win_cnt)%1
  54.     t=(bar+((work_cnt-1)*h))%1
  55.     
  56.     /* adjust the window then */
  57.     'changewindow leftedge 0 topedge' t 'width' sw 'height' h
  58.     
  59.     /* if an error occurred then report it if we need to */
  60.     if rc >= errlevel then do
  61.         'fault'
  62.         'requestnotify "'result'"'
  63.     end
  64. return
  65.