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