home *** CD-ROM | disk | FTP | other *** search
/ Power GUI Programming with VisualAge C++ / powergui.iso / trialva / ibmcppw / macros / lpex.lx < prev    next >
Encoding:
Text File  |  1996-02-22  |  9.4 KB  |  226 lines
  1. /* LPEX.LX - LPEX default key behaviour */
  2. 'EXTRACT DOCTYPE'                             /* what are we editing? */
  3.  
  4. /* default funtion keys   */
  5. 'SET ACTION.F2 OPENCLOSE'
  6. 'SET ACCELERATOR.LP_CLOSEVIEW F3'
  7. 'SET ACTION.F4 BLOCK COPY CLEAR'              /* F4 = copy block by default */
  8. 'SET ACTION.F5 BLOCK MOVE CLEAR'
  9. 'SET ACTION.F6 ='                             /* repeat last command */
  10. 'SET ACTION.F7 SCROLL SCREEN UP'              /* same as PgUp */
  11. 'SET ACTION.F8 SCROLL SCREEN DOWN'            /* same as PgDn */
  12. /* F9=Command shell window defined below */
  13. 'SET ACTION.F11'                              /* set to null */
  14. 'SET ACTION.F12 FOCUS'
  15.  
  16. /* default control + function keys */
  17. 'SET ACTION.C-F1' /* set to null */
  18. 'SET ACTION.C-F2' /* set to null */
  19. 'SET ACTION.C-F3' /* set to null */
  20. 'SET ACTION.C-F4' /* set to null */
  21. 'SET ACTION.C-F5' /* set to null */
  22. 'SET ACTION.C-F6' /* set to null */
  23. 'SET ACTION.C-F7' /* set to null */
  24. 'SET ACTION.C-F8' /* set to null */
  25.  
  26. /* default shift + function keys */
  27. 'SET ACTION.S-F1' /* set to null */
  28. 'SET ACTION.S-F2' /* set to null */
  29. 'SET ACTION.S-F3' /* set to null */
  30. 'SET ACTION.S-F4' /* set to null */
  31. 'SET ACTION.S-F5' /* set to null */
  32. 'SET ACTION.S-F7  SCROLL SCREEN LEFT'
  33. 'SET ACTION.S-F8  SCROLL SCREEN RIGHT'
  34. 'SET ACCELERATOR.LP_ISSUECMD S-F9'
  35.  
  36. /* reset mouse behaviour */
  37. 'SET ACTION.BUTTON1DOUBLE PRIMITIVE SELECTWORD'
  38. 'SET ACTION.BUTTON1DOWN ;PRIMITIVE SETCURSOR; PRIMITIVE SETPOINTER'
  39. 'SET ACTION.BUTTON1DRAG PRIMITIVE SELECTDRAG'
  40. 'SET ACTION.BUTTON2DOUBLE ;PRIMITIVE SETCURSOR; BLOCK CLEAR; BLOCK SET RECTANGLE'
  41. 'SET ACTION.BUTTON2DOWN ;BLOCK CLEAR;PRIMITIVE SETCURSOR; PRIMITIVE SETPOINTER'
  42. 'SET ACTION.BUTTON2DRAG PRIMITIVE SELECTDRAG'
  43. 'SET ACTION.S-BUTTON1DOWN PRIMITIVE SELECTDRAG'
  44. 'SET ACTION.S-BUTTON1DRAG PRIMITIVE SELECTDRAG'
  45. 'SET ACTION.S-BUTTON2DOWN PRIMITIVE SELECTDRAG'
  46. 'SET ACTION.S-BUTTON2DRAG PRIMITIVE SELECTDRAG'
  47. 'SET ACTION.C-BUTTON1DOWN ;PRIMITIVE SETCURSOR;PRIMITIVE SETPOINTER'
  48. 'SET ACTION.C-BUTTON1DRAG PRIMITIVE SELECTDRAG'
  49. 'SET ACTION.C-BUTTON1DOUBLE ;PRIMITIVE SETCURSOR;BLOCK CLEAR;BLOCK SET ELEMENT'
  50.  
  51. /* alt + key sequence */
  52. 'SET ACTION.A-A' /* set to null */
  53. 'SET ACCELERATOR.LP_MARKCHAR A-B'
  54. 'SET ACCELERATOR.LP_COPY A-C'
  55. 'SET ACCELERATOR.LP_DELETE A-D'
  56. 'SET ACTION.A-E' /* set to null */
  57. 'SET ACTION.A-F' /* set to null */
  58. 'SET ACTION.A-G' /* set to null */
  59. 'SET ACTION.A-H' /* set to null */
  60. 'SET ACCELERATOR.LP_LOWER A-I'
  61. 'SET ACTION.A-J SPLITJOIN JOIN'
  62. 'SET ACCELERATOR.LP_UPPER A-K'
  63. 'SET ACCELERATOR.LP_MARKLINE A-L'
  64. 'SET ACCELERATOR.LP_MOVE A-M'
  65. 'SET ACTION.A-P' /* set to null */
  66. 'SET ACTION.A-O' /* set to null */
  67. 'SET ACCELERATOR.LP_QUICKMARK A-Q'
  68. 'SET ACCELERATOR.LP_MARKRECT A-R'
  69. 'SET ACTION.A-S SPLITJOIN SPLIT'
  70. 'SET ACTION.A-T PRIMITIVE TOPLINE'
  71. 'SET ACCELERATOR.LP_UNMARK A-U'
  72. 'SET ACTION.A-V' /* set to null */
  73. 'SET ACTION.A-W' /* set to null */
  74. 'SET ACTION.A-X' /* set to null */
  75. 'SET ACTION.A-Y BLOCK FIND'
  76. 'SET ACCELERATOR.LP_OVERLAY A-Z'
  77. 'SET ACTION.A-1' /* set to null */
  78. 'SET ACTION.A-BACKSPACE' /* set to null */
  79. 'SET ACCELERATOR.LP_END A-END'
  80. 'SET ACCELERATOR.LP_START A-HOME'
  81. 'SET ACTION.A-INS SET INSERTING AFTER'
  82. 'SET ACCELERATOR.LP_PREVINRING A-LEFT'
  83. 'SET ACCELERATOR.LP_NEXTINRING A-RIGHT'
  84.  
  85. /* control + key sequences */
  86. 'SET ACCELERATOR.LP_INCLUDEALL C-A'
  87. 'SET ACTION.C-B' /* set to null  */
  88. 'SET ACCELERATOR.LP_CLIPCOPY C-C'
  89. 'SET ACTION.C-D' /* set to null  */
  90. 'SET ACTION.C-E' /* set to null  */
  91. 'SET ACCELERATOR.LP_FINDCHANGE C-F'
  92. 'SET ACTION.C-G' /* set to null  */
  93. 'SET ACTION.C-H' /* set to null  */
  94. 'SET ACCELERATOR.LP_INCLUDE C-I'
  95. 'SET ACCELERATOR.LP_JUMP C-J'
  96. 'SET ACCELERATOR.LP_CHECK C-K'
  97. 'SET ACCELERATOR.LP_LINE C-L'
  98. 'SET ACTION.C-M MATCH'
  99. 'SET ACCELERATOR.LP_FINDNEXT C-N'
  100. 'SET ACCELERATOR.LP_OPENEDIT C-O'
  101. 'SET ACCELERATOR.LP_PRINT C-P'
  102. 'SET ACCELERATOR.LP_SETQUICK C-Q'
  103. 'SET ACTION.C-R' /* set to null  */
  104. 'SET ACCELERATOR.LP_SAVE C-S'
  105. 'SET ACTION.C-T PRIMITIVE SELECTWORD'
  106. 'SET ACCELERATOR.LP_FINDPREV C-U'
  107. 'SET ACCELERATOR.LP_CLIPPASTE C-V'
  108. 'SET ACTION.C-W' /* set to null  */
  109. 'SET ACCELERATOR.LP_CLIPCUT C-X'
  110. 'SET ACTION.C-Y DUP'
  111. 'SET ACCELERATOR.LP_UNDO C-Z'
  112. 'SET ACTION.C-6' /* set to null */
  113. 'SET ACTION.C-9' /* set to null */
  114. 'SET ACTION.C-0' /* set to null */
  115. 'SET ACTION.C-TAB' /* set to null */
  116.  
  117. 'SET ACTION.C-END BOTTOM'
  118. 'SET ACTION.C-HOME TOP'
  119. 'SET ACTION.C-INS  LP_CLIPCOPY'
  120. 'SET ACTION.C-LEFT  PRIMITIVE WORDLEFT'
  121. 'SET ACTION.C-PGDN SCROLL SCREEN RIGHT'
  122. 'SET ACTION.C-PGUP SCROLL SCREEN LEFT'
  123. 'SET ACTION.C-RIGHT PRIMITIVE WORDRIGHT'
  124.  
  125. /* enter key mappings */
  126. 'SET ACTION.ENTER SPLITLINE'  /* move to start of next line if exists, else this line */
  127. 'SET ACTION.A-ENTER ;PREFIXPROCESS ;PRIMITIVE PREVIOUSTAB'
  128. 'SET ACTION.C-ENTER OPENLINE' /* insert a new line and set cursor to it */
  129.  
  130. /* backspace & delete key mappings */
  131. 'SET ACTION.C-BACKSPACE DELETE'
  132. 'SET ACTION.C-DEL PRIMITIVE TRUNCATE'
  133. 'SET ACTION.DEL DELETE2'      /* delete characters from end of file to cursor */
  134. 'SET ACTION.BACKSPACE BACK2'  /* delete characters from cursor to beginning of file */
  135.  
  136. /* escape key mapping */
  137. 'SET ACTION.ESC     PRIMITIVE TOGGLECOMMAND'
  138.  
  139. /* shift + keyboard assignments  */
  140. 'SET ACTION.S-DEL   LP_CLIPCUT'
  141. 'SET ACTION.S-DOWN  PRIMITIVE SELECTDOWN'
  142. 'SET ACTION.S-END   PRIMITIVE SELECTEND'
  143. 'SET ACTION.S-HOME  PRIMITIVE SELECTHOME'
  144. 'SET ACTION.S-INS   LP_CLIPPASTE'
  145. 'SET ACTION.S-LEFT  PRIMITIVE SELECTLEFT'
  146. 'SET ACTION.S-PGDN  PRIMITIVE SELECTPAGEDOWN'
  147. 'SET ACTION.S-PGUP  PRIMITIVE SELECTPAGEUP'
  148. 'SET ACTION.S-RIGHT PRIMITIVE SELECTRIGHT'
  149. 'SET ACTION.S-UP    PRIMITIVE SELECTUP'
  150.  
  151. /* control + shift + keyboard assignments */
  152. 'SET ACTION.C-S-BACKSPACE PRIMITIVE DELETEWORD'
  153. 'SET ACTION.C-S-DOWN      PRIMITIVE SELECTWORDDOWN'
  154. 'SET ACTION.C-S-END       PRIMITIVE SELECTFILEEND'
  155. 'SET ACTION.C-S-HOME      PRIMITIVE SELECTFILEHOME'
  156. 'SET ACTION.C-S-LEFT      PRIMITIVE SELECTWORDLEFT'
  157. 'SET ACTION.C-S-PGDN      PRIMITIVE SELECTPAGERIGHT'
  158. 'SET ACTION.C-S-PGUP      PRIMITIVE SELECTPAGELEFT'
  159. 'SET ACTION.C-S-RIGHT     PRIMITIVE SELECTWORDRIGHT'
  160. 'SET ACTION.C-S-UP        PRIMITIVE SELECTWORDUP'
  161.  
  162. /* ctrl + alt + keyboard assignments */
  163. 'SET ACCELERATOR.LP_NEXTRING C-A-RIGHT'
  164. 'SET ACCELERATOR.LP_PREVRING C-A-LEFT'
  165.  
  166. 'SET BLOCKDEFAULTTYPE STREAM'
  167.  
  168. /* Set up acclerator for command shell */
  169. 'EXTRACT GLOBAL.INSTANCE INTO INSTANCE'
  170. if instance \= 'CODE' then
  171.    'SET ACCELERATOR.LP_SHELL F9'
  172.  
  173. /* ------------------------------------------------------------------------- */
  174. /* Set RPG and CL unique stuff, relating to prompting and rulers...          */
  175. /* ------------------------------------------------------------------------- */
  176. /* F4 = Prompt current line in SEU, when editing RPG or CL...                */
  177. 'EXTRACT SYNONYM.PROMPTID INTO PID'
  178. if (PID <> "") then do                        /* Only set for RPG, CL        */
  179.     parse var PID nbr promptid                /*  Parse out leading number   */
  180.     'SET ACCELERATOR.'promptid 'F4'           /*  Set F4 to be accelerator   */
  181.   end                                         /*  End if PID not null        */
  182. /* F11= Prompt previous line in SEU, when editing RPG or CL...               */
  183. 'EXTRACT SYNONYM.PROMPTPREV INTO PROMPTPREV'  /* Was set by RPG, CL profiles */
  184. if (PROMPTPREV <> "") then do                 /* Only set for RPG, CL        */
  185.     parse var PROMPTPREV nbr pmtprev          /*  Parse out leading number   */
  186.    'SET ACTION.F11 'pmtprev                   /*  Assign action key          */
  187.   end                                         /*  End if PROMPTID            */
  188. /* F16 = Insert Prompt for RPG...                                            */
  189. 'EXTRACT SYNONYM.IPROMPTID INTO IPID'
  190. if (IPID <> "") then do                       /* Only set for RPG            */
  191.     parse var IPID nbr ipromptid              /*  Parse out leading number   */
  192.     'SET ACCELERATOR.'ipromptid 'S-F4'        /*  Set S-F4 to be accelerator */
  193.   end                                         /*  End if IPID not null       */
  194. /* F22= Not used in SEU, set to Select Format Line for CODE for RPG...       */
  195. 'EXTRACT SYNONYM.SELFORMAT INTO SFORMAT'      /* Was set by RPG profiles     */
  196. if (SFORMAT <> "") then do                    /* Only set for RPG            */
  197.     parse var SFORMAT nbr selfmt              /*  Parse out leading number   */
  198.     'SET ACCELERATOR.'selfmt    'S-F10'       /*  Set S-F10 to be accelerator*/
  199.   end                                         /*  End if SFORMAT             */
  200. /* F23= Select Prompt in SEU, when editing RPG...                            */
  201. 'EXTRACT SYNONYM.SELPROMPT INTO SPROMPT'      /* Was set by RPG profiles     */
  202. if (SPROMPT <> "") then do                    /* Only set for RPG            */
  203.     parse var SPROMPT nbr selpmt              /*  Parse out leading number   */
  204.    'SET ACTION.S-F11 'selpmt                  /*  Assign action key          */
  205.   end                                         /*  End if SPROMPT             */
  206.  
  207. 'EXTRACT VIEWNUM'
  208. 'EXTRACT VIEWLIST'
  209. do while(viewlist \= '')
  210.    'GOVIEW NOACT VIEWNUM 'subword(viewlist,1,1)
  211.  
  212.    'SET MENUCHECK.LP_LPEXKEYS  ON'
  213.    'SET MENUCHECK.LP_BRIEFKEYS OFF'
  214.    'SET MENUCHECK.LP_EPMKEYS   OFF'
  215.    'SET MENUCHECK.LP_SEUKEYS   OFF'
  216.    'SET MENUCHECK.LP_XEDITKEYS OFF'
  217.    'SET MENUCHECK.LP_ISPFKEYS  OFF'
  218.    'SET MENUCHECK.LP_CUSTOMIZE OFF'
  219.    'SET PREFIXSHOW OFF'
  220.    viewlist = delword(viewlist,1,1)
  221. end
  222. 'GOVIEW NOACT VIEWNUM 'VIEWNUM
  223.  
  224. 'EXTRACT DOCNUM INTO DOCNUM'
  225. "SET GLOBAL.DOC" || DOCNUM || " 'MACRO LPEX'"
  226.