home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Utilities / QuickFile / ARexx / ProgressWin.quickfile < prev    next >
Text File  |  2000-05-26  |  675b  |  26 lines
  1. /*
  2. $VER: ProgressWin.quickfile 1.3 (26 May 2000  15:40:24) By M Andre Z Eckenrode
  3.  
  4. External function for QuickFile macros.
  5.  
  6. Returns a full CON: window specification for progress messages during lengthy
  7. macro operations, such as "Record 1 of 30756", etc.
  8.  
  9. Requires the external function macro 'GetViewWin.quickfile' and the following
  10. arguments:
  11.  
  12.   (<max length of progress line to be displayed>,<progress window title>)
  13. */
  14.  
  15. view = 'arexx/getviewwin'()
  16. parse var view . . . . win.cx win.cy fs .
  17.  
  18. win.w = (arg(1)*fs)+6
  19. win.h = (fs*4)+6
  20. win.x = win.cx-(win.w%2)
  21. win.y = win.cy-(win.h%2)
  22.  
  23. exit 'con:'win.x'/'win.y'/'win.w'/'win.h'/'arg(2)'/inactive/noprop/noalt/noclose/nosize'
  24.  
  25.  
  26.