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