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