home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv7.zip / vac22os2 / ibmcobol / macros / epm.lx < prev    next >
Text File  |  1998-02-24  |  11KB  |  235 lines
  1. /*********************************************************
  2. * EPM.LX - EPM/LPEX editor profile.                      *
  3. *                                                        *
  4. * This LX profile is called whenever the key behavior    *
  5. * for EPM is called.  It sets up any defaults (including *
  6. * key definitions and mouse actions required to make     *
  7. * your LPEX session behave like an EPM session.          *
  8. *                                                        *
  9. * Two different Mouse button 1 definitions are provided. *
  10. * See 'Mouse button assignments' below for details.      *
  11. * The default mouse button 1 action is for the mouse to  *
  12. * use stream marking.                                    *
  13. *                                                        *
  14. * To have the EPM/LPEX profile saved, and invoked        *
  15. * automatically, use the Save key behavior option from   *
  16. * the Key behavior option.                               *
  17. *                                                        *
  18. *        (C) Copyright IBM Corporation 1989, 1995        *
  19. *********************************************************/
  20.  
  21. /* Function key assignments */
  22. /* F1 = system help key */
  23. 'SET ACCELERATOR.LP_SAVE F2'      /* save & continue */
  24. 'SET ACCELERATOR.LP_CLOSEVIEW F3' /* quit, prompt if file has changed */
  25. 'SET ACTION.F4 FILE'              /* save & quit */
  26. 'SET ACTION.F5 DIALOG OPEN'       /* open a file */
  27. 'SET ACCELERATOR.LP_SHELL F6'     /* command shell */
  28. 'SET ACTION.F7 RENAME'            /* call the rename.lx macro */
  29. 'SET ACTION.F8 DIALOG OPEN'       /* open a file  */
  30. 'SET ACTION.F9 UNDO'              /* undo the last action */
  31. /* F10 = system's switch to the action bar */
  32. 'SET ACTION.F11 GODOC' /* go to the previous file  */
  33. 'SET ACTION.F12 GODOC NEXT' /* go to the next file */
  34.  
  35. /* Alt + function key assignments */
  36. /* A-F4  = system close window */
  37. /* A-F5  = system restore window */
  38. /* A-F7  = system move window */
  39. /* A-F8  = system size window */
  40. /* A-F9  = system minimize window */
  41. /* A-F10 = system maximize window */
  42.  
  43. /* Control + function key assignments */
  44. 'SET ACTION.C-F1 ;BLOCK MARK WORD ;BLOCK UPPER ;BLOCK CLEAR'
  45. /* word to uppercase */
  46. 'SET ACTION.C-F2 ;BLOCK MARK WORD ;BLOCK LOWER ;BLOCK CLEAR'
  47. /* word to lowercase */
  48. 'SET ACCELERATOR.LP_UPPER C-F3'       /* uppercase selection */
  49. 'SET ACCELERATOR.LP_LOWER C-F4'       /* lowercase selection */
  50. 'SET ACTION.C-F5 ;BLOCK MARK WORD ;BLOCK FIND ;BLOCK CLEAR' /* cursor to start of word */
  51. 'SET ACTION.C-F6 ;BLOCK MARK WORD ;BLOCK FIND END ;BLOCK CLEAR' /* & to end of word */
  52. 'SET ACTION.C-F7 BLOCK SHIFT LEFT 1'  /* shift selection 1 left */
  53. 'SET ACTION.C-F8 BLOCK SHIFT RIGHT 1' /* shift selection 1 right */
  54.  
  55. /* Shift + function key assignments */
  56. 'SET ACTION.S-F1 SCROLL SCREEN LEFT'
  57. 'SET ACTION.S-F2 SCROLL SCREEN RIGHT'
  58. 'SET ACTION.S-F3 SCROLL SCREEN UP'
  59. 'SET ACTION.S-F4 SCROLL SCREEN DOWN'
  60. 'SET ACTION.S-F5' /* set to null */
  61. 'SET ACTION.S-F7' /* set to null */
  62. 'SET ACTION.S-F8' /* set to null */
  63. 'SET ACTION.S-F9' /* set to null */
  64.  
  65. /* Mouse button assignments */
  66.  
  67. /* Use the mouse action definitions below if you prefer the                  */
  68. /* mouse button 1 (left button) to mark a block or rectangle.                */
  69. /* The marked area is not deleted when you type, nor is the block unmarked   */
  70. /* when you move the cursor.                                                 */
  71. /* Behaviour with these actions is similar to the mouse button 1 behaviour   */
  72. /* when you use Advanced Marking in EPM.                                     */
  73. /* 'SET ACTION.BUTTON1DOUBLE ;BLOCK CLEAR'                                   */
  74. /* 'SET ACTION.BUTTON1DOWN   ;PRIMITIVE SETCURSOR; PRIMITIVE SETPOINTER'     */
  75. /* 'SET ACTION.BUTTON1DRAG   ;PRIMITIVE SETCURSOR; BLOCK MARK RECTANGLE'     */
  76.  
  77. /* Use the mouse action definitions below if you prefer the                  */
  78. /* mouse button 1 (left button) to mark a stream.                            */
  79. /* The marked area is deleted when you type or when hit the backspace        */
  80. /* or delete key.                                                            */
  81. /* The marked area is unmarked when you move the cursor.                     */
  82. /* Behaviour with these actions is similar to the mouse button 1 behaviour   */
  83. /* when you use Stream Editing and CUA or basic marking in EPM.              */
  84. 'SET ACTION.BUTTON1DOUBLE PRIMITIVE SELECTWORD'
  85. 'SET ACTION.BUTTON1DOWN ;PRIMITIVE SETCURSOR ;PRIMITIVE SETPOINTER'
  86. 'SET ACTION.BUTTON1DRAG PRIMITIVE SELECTDRAG'
  87.  
  88. 'SET ACTION.BUTTON2DOUBLE ;BLOCK CLEAR ;PRIMITIVE SETCURSOR ;PRIMITIVE SELECTWORD'
  89. 'SET ACTION.BUTTON2DOWN   ;BLOCK CLEAR ;PRIMITIVE SETCURSOR ;PRIMITIVE SETPOINTER'
  90. 'SET ACTION.BUTTON2DRAG   ;PRIMITIVE SETCURSOR ;BLOCK MARK ELEMENT'
  91.  
  92. 'SET ACTION.C-BUTTON2DOUBLE ;BLOCK CLEAR ;PRIMITIVE SETCURSOR ;PRIMITIVE SELECTWORD'
  93. 'SET ACTION.C-BUTTON1DOUBLE ;PRIMITIVE SETCURSOR ;PRIMITIVE SETPOINTER'
  94. 'SET ACTION.C-BUTTON1DOWN PRIMITIVE SELECTDRAG'
  95. 'SET ACTION.C-BUTTON1DRAG PRIMITIVE SELECTDRAG'
  96.  
  97. 'SET ACTION.S-BUTTON1DOWN ;PRIMITIVE SETCURSOR ;BLOCK MARK'
  98. 'SET ACTION.S-BUTTON1DRAG' /* set to null */
  99. 'SET ACTION.S-BUTTON2DOWN' /* set to null */
  100. 'SET ACTION.S-BUTTON2DRAG' /* set to null */
  101.  
  102.  
  103. /* Alt key assignments */
  104. 'SET ACCELERATOR.LP_OVERLAY A-A'      /* adjust selected area */
  105. 'SET ACCELERATOR.LP_MARKRECT A-B'     /* mark a rectangle */
  106. 'SET ACCELERATOR.LP_COPY A-C'         /* copy block  */
  107. 'SET ACCELERATOR.LP_DELETE A-D'       /* delete block */
  108. 'SET ACTION.A-E BLOCK FIND END'       /* cursor to end of selected area */
  109. 'SET ACTION.A-F MACRO fillchar'       /* fill marked block with character */
  110. 'SET ACTION.A-G' /* set to null */
  111. 'SET ACTION.A-H' /* set to null */
  112. 'SET ACTION.A-I' /* set to null */
  113. 'SET ACTION.A-J SPLITJOIN JOIN'       /* join with line following */
  114. 'SET ACTION.A-K' /* set to null */
  115. 'SET ACCELERATOR.LP_MARKLINE A-L'     /* mark line */
  116. 'SET ACCELERATOR.LP_MOVE A-M'         /* move block */
  117. 'SET ACTION.A-N MACRO getname'        /* get file name at cursor */
  118. 'SET ACCELERATOR.LP_OVERLAY A-O'      /* overlay block  */
  119. 'SET ACTION.A-P' /* set to null */
  120. 'SET ACTION.A-Q' /* set to null */
  121. 'SET ACTION.A-R' /* set to null */
  122. 'SET ACTION.A-S SPLITJOIN SPLIT'      /* split line at the cursor */
  123. 'SET ACTION.A-T' /* set to null */
  124. 'SET ACCELERATOR.LP_UNMARK A-U'       /* clear block */
  125. 'SET ACTION.A-V' /* set to null */
  126. 'SET ACTION.A-W PRIMITIVE SELECTWORD' /* mark word */
  127. 'SET ACTION.A-X' /* set to null */
  128. 'SET ACTION.A-Y BLOCK FIND'           /* cursor to beginning of mark */
  129. 'SET ACCELERATOR.LP_MARKCHAR A-Z'     /* block marking, character mode */
  130. 'SET ACTION.A-0' /* set to null */
  131. 'SET ACTION.A-1 MACRO opencur'        /* open the file named on the current line */
  132.  
  133. /* Alt + keyboard assignments */
  134. 'SET ACCELERATOR.LP_UNDO A-BACKSPACE' /* undo last line  */
  135. 'SET ACTION.A-END'   /* set to null */
  136. 'SET ACTION.A-HOME'  /* set to null */
  137. 'SET ACTION.A-INS'   /* set to null */
  138. 'SET ACTION.A-LEFT'  /* set to null */
  139. 'SET ACTION.A-RIGHT' /* set to null */
  140.  
  141. /* Ctrl key assignments */
  142. 'SET ACTION.C-A' /* set to null */
  143. 'SET ACTION.C-B QUERY MARKLIST'       /* query marks set */
  144. 'SET ACTION.C-D PRIMITIVE DELETEWORD' /* delete word */
  145. 'SET ACTION.C-E PRIMITIVE TRUNCATE'   /* delete to end-of-line */
  146. 'SET ACCELERATOR.LP_FINDNEXT C-F'     /* find next  */
  147. 'SET ACTION.C-G' /* set to null */
  148. 'SET ACTION.C-H' /* set to null */
  149. 'SET ACCELERATOR.LP_ISSUECMD C-I'     /* invoke command dialog */
  150. 'SET ACTION.C-J' /* set to null */
  151. 'SET ACTION.C-K DUP'                  /* duplicate current line */
  152. 'SET ACTION.C-L MACRO curcmd'         /* execute current line */
  153. 'SET ACTION.C-M DIALOG MARKNAME'      /* set a mark or bookmark */
  154. 'SET ACTION.C-N GODOC'                /* go to previous document */
  155. 'SET ACCELERATOR.LP_OPENEDIT C-O'     /* invoke open dialog */
  156. 'SET ACTION.C-P GODOC NEXT'           /* go to next document */
  157. 'SET ACTION.C-Q' /* set to null */
  158. 'SET ACTION.C-R RECORD INVERSE'      /* start/stop recording keystrokes */
  159. /* 'SET ACTION.C-R PROTO PROTO.C.' USE THIS KEY BINDING TO HAVE C KEYWORDS EXPANDED */
  160. 'SET ACCELERATOR.LP_FINDCHANGE C-S'   /* invoke find dialog */
  161. 'SET ACTION.C-T RECORD PLAY'          /* playback recorded keystrokes */
  162. 'SET ACTION.C-U UNDO'                 /* undo */
  163. 'SET ACTION.C-V' /* set to null */
  164. 'SET ACTION.C-W' /* set to null */
  165. 'SET ACTION.C-Y DIALOG FONTS'         /* invoke fonts/colours dialog */
  166. 'SET ACTION.C-Z' /* set to null */
  167. 'SET ACTION.C-6 PRIMITIVE INSERTCHAR ¬'    /* insert a not character */
  168. 'SET ACTION.C-9 PRIMITIVE INSERTCHAR "{"'  /* insert a left brace */
  169. 'SET ACTION.C-0 PRIMITIVE INSERTCHAR "}"'  /* insert a right brace */
  170. 'SET ACTION.C-TAB PRIMITIVE INSERTCHAR     '  /* insert a tab character */
  171.  
  172. /* Ctrl + keyboard assigments */
  173. 'SET ACTION.C-END BOTTOM'             /* cursor to bottom of file */
  174. 'SET ACTION.C-HOME TOP'               /* cursor to top of file */
  175. 'SET ACCELERATOR.LP_CLIPCOPY C-INS'   /* clip marked block */
  176. 'SET ACTION.C-LEFT  PRIMITIVE WORDLEFT'  /* move to previous word */
  177. 'SET ACTION.C-PGDN' /* set to null */
  178. 'SET ACTION.C-PGUP' /* set to null */
  179. 'SET ACTION.C-RIGHT PRIMITIVE WORDRIGHT' /* move to next word */
  180.  
  181. /* Shift + keyboard assignments  */
  182. 'SET ACTION.S-DOWN PRIMITIVE SELECTDOWN'
  183. 'SET ACTION.S-END PRIMITIVE SELECTEND'
  184. 'SET ACTION.S-HOME PRIMITIVE SELECTHOME'
  185. 'SET ACCELERATOR.LP_CLIPPASTE S-INS'
  186. 'SET ACTION.S-LEFT PRIMITIVE SELECTLEFT'
  187. 'SET ACTION.S-PGDN' /* set to null */
  188. 'SET ACTION.S-PGUP' /* set to null */
  189. 'SET ACTION.S-RIGHT PRIMITIVE SELECTRIGHT'
  190. 'SET ACTION.S-UP PRIMITIVE SELECTUP'
  191.  
  192. /* Ctrl + Shift + keyboard assignments */
  193. 'SET ACTION.C-S-DOWN' /* set to null */
  194. 'SET ACTION.C-S-END END'                   /* move to end of file */
  195. 'SET ACTION.C-S-HOME TOP'                  /* move to top of file */
  196. 'SET ACTION.C-S-LEFT PRIMITIVE WORDLEFT'   /* move left to previous word */
  197. 'SET ACTION.C-S-PGDN' /* set to null */
  198. 'SET ACTION.C-S-PGUP' /* set to null */
  199. 'SET ACTION.C-S-RIGHT PRIMITIVE WORDRIGHT' /* move right to next word */
  200. 'SET ACTION.C-S-UP'   /* set to null */
  201.  
  202. /* Set backspace, delete, escape and enter key assignments  */
  203. 'SET ACTION.ENTER SPLITLINE'
  204. 'SET ACTION.A-ENTER SPLITLINE'
  205. 'SET ACTION.C-ENTER SPLITLINE'
  206. 'SET ACTION.S-ENTER SPLITLINE'
  207.  
  208. 'SET ACTION.PADENTER SPLITLINE'
  209.  
  210. 'SET ACTION.BACKSPACE BACK2'
  211. 'SET ACTION.C-BACKSPACE DELETE'       /* delete entire line */
  212. 'SET ACTION.C-S-BACKSPACE DELETE'     /* delete entire line */
  213.  
  214. 'SET ACTION.DEL DELETE2'
  215. 'SET ACTION.C-DEL PRIMITIVE TRUNCATE' /* delete to end of line */
  216. 'SET ACCELERATOR.LP_CLIPCUT S-DEL'
  217.  
  218. 'SET ACTION.ESC PRIMITIVE TOGGLECOMMAND' /* invoke the command dialog */
  219.  
  220. 'SET FOCUS.TOP 0'
  221. 'SET FOCUS.BOTTOM 0'
  222.  
  223. /* set up options pull-down correctly  */
  224. 'EXTRACT VIEWNUM'
  225. 'EXTRACT VIEWLIST'
  226. do while(viewlist \= '')
  227.    'GOVIEW NOACT VIEWNUM 'subword(viewlist,1,1)
  228.    'EXTRACT DEFAULT.PREFIXSHOW INTO PREFIXSHOW'
  229.    'SET PREFIXSHOW 'PREFIXSHOW
  230.    viewlist = delword(viewlist,1,1)
  231. end
  232. 'GOVIEW NOACT VIEWNUM 'VIEWNUM
  233.  
  234. 'SET GLOBAL.KEYS epm'
  235.