home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
viscobv7.zip
/
vac22os2
/
ibmcobol
/
macros
/
moveview.lx
< prev
next >
Wrap
Text File
|
1998-02-24
|
694b
|
26 lines
/* This macro provides is invoked after pressing F1 */
/* changes focus based on arrow key direction */
'keyread' /* wait for key */
'extract lastkey'
select
when lastkey = "UP" then do
'LP_PREVRING'
end
when lastkey = "DOWN" then do
'LP_NEXTRING'
end
when lastkey = "RIGHT" then do
'LP_NEXTRING'
end
when lastkey = "LEFT" then do
'LP_PREVRING'
end
when lastkey = "ESC" then do
MSG 'Command canceled'
end
otherwise MSG 'You must choose an arrow key to change focus'
end