home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Editor / Edge1721.DMS / Edge1721.adf / ExtraStuff / Edge_MoreRexx.lha / ToggleZoom.edge < prev    next >
Encoding:
Text File  |  1993-11-09  |  299 b   |  11 lines
  1. /* toggle zoom size */
  2.  
  3. options results
  4.  
  5. /* query window information and then parse the result */
  6. window
  7. parse var result ''X '' x '', Y '' y '', W '' w '', H '' h '', '' rexx '', '' status
  8.  
  9. /* if we are zoom then unzoom else zoom it */
  10. if status='UnZoomed' then window zoom
  11. else window unzoom front