In article <1992Apr3.150440.5531@jhunix.hcf.jhu.edu>,
murthy_j@jhunix.hcf.jhu.edu (Jayant Murthy) writes:
> Does anyone have a list of the escape sequences for an SGI IRIS Indigo
> keyboard? I want to define the keys and the old vt200 assignments on
> my DECstation don't work.
>
> Thanks
> Jayant Murthy
> murthy@pha.jhu.edu
>
In the following piece of code I define some keycodes to work on a vms
vaxstation as well as on a SGI (PI 4D/35). You will find the keycodes
produced by the funtion keys of the iris keyboard in the list (SGIF1 ...
SGIF12). I do not know about other keycodes, such as Insert etc.
Hope this helps.
Remo Hofer
; Initialise keyboard (in VMS they are predefined)
IF STRLOWCASE(STRTRIM(!VERSION.OS, 2)) NE 'vms' THEN BEGIN
keys = [ $
['F1', '\033[11~'], $ ; vt200 codes
['F2', '\033[12~'], $
['F3', '\033[13~'], $
['F4', '\033[14~'], $
['F5', '\033[15~'], $
['F6', '\033[17~'], $
['F7', '\033[18~'], $
['F8', '\033[19~'], $
['F9', '\033[20~'], $
['F10', '\033[21~'], $
['F11', '\033[23~'], $
['F12', '\033[24~'], $
['F13', '\033[25~'], $
['F14', '\033[26~'], $
['HELP', '\033[28~'], $
['DO', '\033[29~'], $
['F17', '\033[31~'], $
['F18', '\033[32~'], $
['F19', '\033[33~'], $
['F20', '\033[34~'], $
['PF1', '\033OP'], $
['PF2', '\033OQ'], $
['PF3', '\033OR'], $
['PF4', '\033OS'], $
['SGIF1', '\033[001q'], $ ; SGI winterm codes
['SGIF2', '\033[002q'], $
['SGIF3', '\033[003q'], $
['SGIF4', '\033[004q'], $
['SGIF5', '\033[005q'], $
['SGIF6', '\033[006q'], $
['SGIF7', '\033[007q'], $
['SGIF8', '\033[008q'], $
['SGIF9', '\033[009q'], $
['SGIF10','\033[010q'], $
['SGIF11','\033[011q'], $
['SGIF12','\033[012q']]
s = SIZE(keys)
FOR i=0, s(2)-1 DO DEFINE_KEY, keys(0, i), ESCAPE=keys(1, i)
; self defined keys not possible in vms
DEFINE_KEY, 'SGIF1', 'sxm_main_menu', /TERMINATE
DEFINE_KEY, 'SGIF2', 'sxm_help', /TERMINATE
ENDIF
DEFINE_KEY, 'F1', 'sxm_main_menu', /TERMINATE
DEFINE_KEY, 'PF1', 'sxm_main_menu', /TERMINATE
DEFINE_KEY, 'DO', 'sxm_main_menu', /TERMINATE
DEFINE_KEY, 'F2', 'sxm_help', /TERMINATE
DEFINE_KEY, 'PF2', 'sxm_help', /TERMINATE
DEFINE_KEY, 'HELP', 'sxm_help', /TERMINATE
--
RFC822: <hofer@urz.unibas.ch> or <hofer%urz.unibas.ch@CERNVAX.BITNET>
X.400: S=hofer;OU=urz;O=unibas;P=SWITCH;A=ARCOM;C=CH
HEPNET/SPAN: CHGATE::YOGI::HOFER or 20579::48130::HOFER
|
comp.lang.idl-pvwave archive
Members
Search
Help
Login
Home
