home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
viscobv7.zip
/
vac22os2
/
ibmcobol
/
macros
/
newview.lx
< prev
next >
Wrap
Text File
|
1998-02-24
|
849b
|
30 lines
/* This macro provides is invoked after pressing F3 */
/* waits for an arrow key to determine which way to split view */
'keyread' /* wait for key */
'extract lastkey'
select
when lastkey = "UP" then do
'LP_HORIZONTAL'
'LP_VIEWSPLIT'
end
when lastkey = "DOWN" then do
'LP_HORIZONTAL'
'LP_VIEWSPLIT'
end
when lastkey = "RIGHT" then do
'LP_VERTICAL'
'LP_VIEWSPLIT'
end
when lastkey = "LEFT" then do
'LP_VERTICAL'
'LP_VIEWSPLIT'
end
when lastkey = "ESC" then do
MSG 'Command canceled'
end
otherwise MSG 'You must choose an arrow key to split the view'
end