home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / MOUSEDIR.ZIP / MOUSEDIR.KEX < prev    next >
Text File  |  1992-03-27  |  794b  |  22 lines
  1. *--------------------------------------------*
  2. * Put the following line in your PROFILE.KEX *
  3. *    'MACRO MOUSEDIR'                        *
  4. *--------------------------------------------*
  5. 'define mousedir.kml'                                                                                     *
  6. status = statusline.1() statusline.2()
  7. if fext.1() = 'DIR' then do
  8.   'set statusline off'
  9.   'set prefix off'
  10.   'set mousetext user [Help] [MDir] [Copy] [Erase] [Tag]                    [Sort] [Refresh] [..] [QQ]'
  11.   l = line.1()
  12.   ':1'
  13.   'set reserved 1 Directory: ' dirfileid.2() || dirfileid.3()
  14.   ':'l
  15. end
  16. else do
  17.   'set mousetext user [Help] [Move] [Copy] [Delete] [Undo] [RxFmt]     [Dir]             [Save] [Quit]'
  18.   'set statusline on bottom'
  19.   'set prefix on left'
  20. end
  21.  
  22.