Re: finding LPEX keystrokes

This is a macro I wrote a long time ago (no comments on style, please)
that I use to figure out what key does what.  It's especially useful
because it tells you what the keys really do in your current session
after all your profile macros have been run instead of what their
default action is.
Of course, you still have to know or be able to guess what the command
or macro does....

Here's part of the output (C=Control, A=Alt, S=Shift, last char=key)
C-A = LP_SHOWALL
A-B = LP_MARKCHAR
C-B = LP_OPENBROWSE
C-S-B = macro fdublue
A-C = LP_COPY
C-C = SAVEALL PROMPT COMPILE
A-S-C = mult ;LP_COPY ;LP_UNMARK
... (snip)
A-RIGHT = LP_NEXTINRING
C-RIGHT = Primitive WORDRIGHT
S-RIGHT = Primitive SELECTRIGHT
C-S-RIGHT = Primitive SELECTWORDRIGHT
A-S-RIGHT = BLOCK SHIFT RIGHT
C-A-RIGHT = LP_NEXTRING
... and so on


/* Start of macro LPEXKEYS.LX */
/* Load a file with the functions called by LPEX keystrokes */

workfile = 'lpexkeys.tmp'

junk = lineout(workfile,,1)

junk = onekey('a',workfile)
junk = onekey('b',workfile)
junk = onekey('c',workfile)
junk = onekey('d',workfile)
junk = onekey('e',workfile)
junk = onekey('f',workfile)
junk = onekey('g',workfile)
junk = onekey('h',workfile)
junk = onekey('i',workfile)
junk = onekey('j',workfile)
junk = onekey('k',workfile)
junk = onekey('l',workfile)
junk = onekey('m',workfile)
junk = onekey('n',workfile)
junk = onekey('o',workfile)
junk = onekey('p',workfile)
junk = onekey('q',workfile)
junk = onekey('r',workfile)
junk = onekey('s',workfile)
junk = onekey('t',workfile)
junk = onekey('u',workfile)
junk = onekey('v',workfile)
junk = onekey('q',workfile)
junk = onekey('w',workfile)
junk = onekey('y',workfile)
junk = onekey('z',workfile)

junk = onekey('0',workfile)
junk = onekey('1',workfile)
junk = onekey('2',workfile)
junk = onekey('3',workfile)
junk = onekey('4',workfile)
junk = onekey('5',workfile)
junk = onekey('6',workfile)
junk = onekey('7',workfile)
junk = onekey('8',workfile)
junk = onekey('9',workfile)

junk = onekey('`',workfile)
junk = onekey('-',workfile)
junk = onekey('=',workfile)
junk = onekey('[',workfile)
junk = onekey(']',workfile)
junk = onekey(';',workfile)
junk = onekey('''',workfile)
junk = onekey(',',workfile)
junk = onekey('.',workfile)
junk = onekey('/',workfile)
junk = onekey('\',workfile)
junk = onekey('+',workfile)
junk = onekey('*',workfile)

junk = onekey('F1',workfile)
junk = onekey('F2',workfile)
junk = onekey('F3',workfile)
junk = onekey('F4',workfile)
junk = onekey('F5',workfile)
junk = onekey('F6',workfile)
junk = onekey('F7',workfile)
junk = onekey('F8',workfile)
junk = onekey('F9',workfile)
junk = onekey('F10',workfile)
junk = onekey('F11',workfile)
junk = onekey('F12',workfile)


junk = onekey('PGDN',workfile)
junk = onekey('PGUP',workfile)
junk = onekey('HOME',workfile)
junk = onekey('END',workfile)
junk = onekey('INS',workfile)
junk = onekey('DEL',workfile)

junk = onekey('RIGHT',workfile)
junk = onekey('LEFT',workfile)
junk = onekey('UP',workfile)
junk = onekey('DOWN',workfile)

junk = onekey('ENTER',workfile)
junk = onekey('TAB',workfile)
junk = onekey('BACKTAB',workfile)
junk = onekey('SPACE',workfile)
junk = onekey('BACKSPACE',workfile)
junk = onekey('ESCAPE',workfile)

junk = onekey('BUTTON1DOWN',workfile)
junk = onekey('BUTTON1DOUBLE',workfile)
junk = onekey('BUTTON1DRAG',workfile)
junk = onekey('BUTTON2DOWN',workfile)
junk = onekey('BUTTON2DOUBLE',workfile)
junk = onekey('BUTTON2DRAG',workfile)
junk = onekey('BUTTON3DOWN',workfile)
junk = onekey('BUTTON3DOUBLE',workfile)
junk = onekey('BUTTON3DRAG',workfile)


/* Finish output file */
junk = lineout(workfile)

/* Clear messages */
'msg'

/* view/edit file */
lx workfile

/* End of rexx procedure */
exit

onekey: procedure
        arg keyname, workfile
        junk = onekey2(keyname, workfile)
        junk = onekey2('a-'keyname, workfile)
        junk = onekey2('c-'keyname, workfile)
        junk = onekey2('s-'keyname, workfile)
        junk = onekey2('c-s-'keyname, workfile)
        junk = onekey2('a-s-'keyname, workfile)
        junk = onekey2('c-a-'keyname, workfile)
        junk = onekey2('a-c-s-'keyname, workfile)

        return 1


onekey2: procedure
        arg keyname, workfile
        'extract action.'keyname 'into extaction'
/*        if (extaction <> ' ') then */
        if ((extaction <> 'EXTACTION') & (extaction <> ' ')) then
              do
              lineinfo = keyname' = 'extaction
              junk = lineout(workfile, lineinfo)
              end
        return 1
/* End of macro LPEXKEYS.LX */


John Taylor wrote:

>Off the top of your head, can anyone tell me the key combination for
>switching the cursor between views within the same editor window? I've
>checked the Editor Shortcut Keys help section, but couldn't find anything.
>
>Just in case my question isn't clear, I have one editor window running in
>horizontal split view (ala SEU F15), and I need to frequently move the
>cursor from one view pane to another in order to page the screen, cut/past
>text etc.
>
>
>Regards,
>
>John Taylor
>
>
>