home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 5
/
ctrom5b.zip
/
ctrom5b
/
DOS
/
TEKST
/
AURORA2
/
KEYDEF.AML
< prev
next >
Wrap
Text File
|
1995-04-28
|
5KB
|
250 lines
/* ------------------------------------------------------------------ */
/* Macro: KEYDEF.AML */
/* Written by: nuText Systems */
/* */
/* Description: This macro displays a popup menu showing assigned */
/* and unassigned keys for the current window type */
/* (edit windows or file manager windows). If the */
/* current window is an edit window, selecting a key */
/* from the popup menu will enter it into the text at */
/* the cursor. */
/* */
/* Usage: Select this macro from the Macro List (on the Macro */
/* menu), or run it from the macro picklist <shift f12> */
/* ------------------------------------------------------------------ */
// compile time macros and function definitions
include bootpath "define.aml"
// create a data buffer with all the keynames
databuf "keynames"
"<alt '>"
"<alt ,>"
"<alt ->"
"<alt .>"
"<alt />"
"<alt 0>"
"<alt 1>"
"<alt 2>"
"<alt 3>"
"<alt 4>"
"<alt 5>"
"<alt 6>"
"<alt 7>"
"<alt 8>"
"<alt 9>"
"<alt ;>"
"<alt =>"
"<alt a>"
"<alt b>"
"<alt backspace>"
"<alt c>"
"<alt d>"
"<alt del>"
"<alt down>"
"<alt e>"
"<alt end>"
"<alt enter>"
"<alt esc>"
"<alt f10>"
"<alt f11>"
"<alt f12>"
"<alt f1>"
"<alt f2>"
"<alt f3>"
"<alt f4>"
"<alt f5>"
"<alt f6>"
"<alt f7>"
"<alt f8>"
"<alt f9>"
"<alt f>"
"<alt g>"
"<alt grey*>"
"<alt grey+>"
"<alt grey->"
"<alt grey/>"
"<alt greyenter>"
"<alt h>"
"<alt home>"
"<alt i>"
"<alt ins>"
"<alt j>"
"<alt k>"
"<alt l>"
"<alt left>"
"<alt m>"
"<alt n>"
"<alt o>"
"<alt p>"
"<alt pgdn>"
"<alt pgup>"
"<alt q>"
"<alt r>"
"<alt right>"
"<alt s>"
"<alt t>"
"<alt tab>"
"<alt u>"
"<alt up>"
"<alt v>"
"<alt w>"
"<alt x>"
"<alt y>"
"<alt z>"
"<alt [>"
"<alt \\>"
"<alt ]>"
"<alt `>"
"<backspace>"
"<center>"
"<char>"
"<ctrl ->"
"<ctrl 2>"
"<ctrl 6>"
"<ctrl a>"
"<ctrl b>"
"<ctrl backspace>"
"<ctrl c>"
"<ctrl center>"
"<ctrl d>"
"<ctrl del>"
"<ctrl down>"
"<ctrl e>"
"<ctrl end>"
"<ctrl enter>"
"<ctrl f10>"
"<ctrl f11>"
"<ctrl f12>"
"<ctrl f1>"
"<ctrl f2>"
"<ctrl f3>"
"<ctrl f4>"
"<ctrl f5>"
"<ctrl f6>"
"<ctrl f7>"
"<ctrl f8>"
"<ctrl f9>"
"<ctrl f>"
"<ctrl g>"
"<ctrl grey*>"
"<ctrl grey+>"
"<ctrl grey->"
"<ctrl grey/>"
"<ctrl greyenter>"
"<ctrl h>"
"<ctrl home>"
"<ctrl i>"
"<ctrl ins>"
"<ctrl j>"
"<ctrl k>"
"<ctrl l>"
"<ctrl left>"
"<ctrl m>"
"<ctrl n>"
"<ctrl o>"
"<ctrl p>"
"<ctrl pgdn>"
"<ctrl pgup>"
"<ctrl prtsc>"
"<ctrl q>"
"<ctrl r>"
"<ctrl right>"
"<ctrl s>"
"<ctrl t>"
"<ctrl tab>"
"<ctrl u>"
"<ctrl up>"
"<ctrl v>"
"<ctrl w>"
"<ctrl x>"
"<ctrl y>"
"<ctrl z>"
"<ctrl [>"
"<ctrl \\>"
"<ctrl ]>"
"<del>"
"<down>"
"<end>"
"<enter>"
"<esc>"
"<f10>"
"<f11>"
"<f12>"
"<f1>"
"<f2>"
"<f3>"
"<f4>"
"<f5>"
"<f6>"
"<f7>"
"<f8>"
"<f9>"
"<grey*>"
"<grey+>"
"<grey->"
"<greyenter>"
"<home>"
"<ins>"
"<left>"
"<otherkey>"
"<pgdn>"
"<pgup>"
"<right>"
"<shift center>"
"<shift del>"
"<shift down>"
"<shift end>"
"<shift f10>"
"<shift f11>"
"<shift f12>"
"<shift f1>"
"<shift f2>"
"<shift f3>"
"<shift f4>"
"<shift f5>"
"<shift f6>"
"<shift f7>"
"<shift f8>"
"<shift f9>"
"<shift home>"
"<shift ins>"
"<shift left>"
"<shift pgdn>"
"<shift pgup>"
"<shift right>"
"<shift tab>"
"<shift up>"
"<shiftkey>"
"<tab>"
"<up>"
end
// get the window event object
window_object = getwinobj
// do for all lines in the data buffer
repeat
// check for the key function in the current event object hierarchy
if function? (gettext) window_object then
ovltext "Assigned" 19
end
until not down
// display the buffer in a popup menu and get the key selected
keystr = popup (getcurrbuf) window_object + " window keys" 26
// destroy the key data buffer
destroybuf
// if a key string was selected, enter it at the cursor
if keystr then
// remove the 'Assigned' label, if present
if keystr [0] <> '>' then
keystr = keystr [1 : pos '>' keystr 'r']
end
send "write" keystr
end