home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv7.zip / vac22os2 / ibmcobol / macros / brief.lx < prev    next >
Text File  |  1998-02-24  |  9KB  |  209 lines
  1. /**********************************************************
  2. * BRIEF.LX BRIEF/LPEX profile editor                      *
  3. *                                                         *
  4. * This LX profile is called whenever the key behavior     *
  5. * for BRIEF is called. It sets up any defaults (including *
  6. * key definitions and mouse actions required to make your *
  7. * LPEX session behave like an BRIEF session.              *
  8. *                                                         *
  9. * To have the BRIEF/LPEX profile saved, and invoked       *
  10. * automatically, use the Save key behavior option from    *
  11. * the key behavior option.                                *
  12. *                                                         *
  13. *         COPYRIGHT IBM CORPORATION 1989, 1995            *
  14. **********************************************************/
  15.  
  16. /* Function key assignments */
  17. 'SET ACTION.F1 MOVEVIEW' /* MOVEVIEW macro - wait for arrow keys */
  18. 'SET ACTION.F2'  /* f2 and arrow key resizes the window */
  19. 'SET ACTION.F3 NEWVIEW' /* call newview macro - wait for arrow keys */
  20. 'SET ACTION.F4 EXITVIEW' /* EXITVIEW macro - wait for arrow keys */
  21. 'SET ACTION.F5 DIALOG FINDCHANGE' /* find dialog */
  22. 'SET ACTION.F6 DIALOG FINDCHANGE' /* translate forward */
  23. 'SET ACTION.F7 RECORD ON' /* remember */
  24. 'SET ACTION.F8 RECORD PLAY' /* playback */
  25. 'SET ACTION.F9 LP_RECLOAD' /* load recorder macro file */
  26. /*'SET ACTION.F10 LP_ISSUECMD'  /* invoke command dialog */*/
  27. 'SET ACTION.F11' /* null */
  28. 'SET ACTION.F12'
  29.  
  30. /* Alt key + function key assignments, but system keys */
  31. /*'SET ACTION.A-F1 MULT; SET MESSAGELINE INVERSE; SET STATUSLINE INVERSE ; SET RULER INVERSE' /* border toggle */
  32. 'SET ACTION.A-F2' /* zoom window toggle */
  33. 'SET ACTION.A-F4'
  34. 'SET ACTION.A-F5 LP_FINDPREV' /* find previous */
  35. 'SET ACTION.A-F6 DIALOG FINDCHANGE' /* translate backward */
  36. 'SET ACTION.A-F7 LP_RECLOAD'  /* load keystroke macro */
  37. 'SET ACTION.A-F8 MULT; LP_RECLOAD; DIALOG SAVEAS' /*save keystroke macro*/
  38. 'SET ACTION.A-F9'
  39. 'SET ACTION.A-F10' /* compile buffer */
  40. */
  41.  
  42. /* Control + function key assignments */
  43. /* doesn't seem to be any control + function keys */
  44. 'SET ACTION.C-F1'
  45. 'SET ACTION.C-F2'
  46. 'SET ACTION.C-F3'
  47. 'SET ACTION.C-F4'
  48. 'SET ACTION.C-F5' /* case sensitivity toggle for find/replace */
  49. 'SET ACTION.C-F6' /* regular expression toggle for find/replace */
  50. 'SET ACTION.C-F7'
  51. 'SET ACTION.C-F8'
  52. 'SET ACTION.C-F9'
  53. 'SET ACTION.C-F10'
  54.  
  55.  
  56. /* Shift key + function key assignments  */
  57. 'SET ACTION.S-F1'
  58. 'SET ACTION.S-F2'
  59. 'SET ACTION.S-F3'
  60. 'SET ACTION.S-F4'
  61. 'SET ACTION.S-F5 LP_FINDNEXT' /* search again */
  62. 'SET ACTION.S-F6 DIALOG FINDCHANGE' /* translate again */
  63. 'SET ACTION.S-F7 RECORD OFF' /* pause recording toggle */
  64. 'SET ACTION.S-F8' /* set to null */
  65. 'SET ACTION.S-F9' /* function not available ; delete macro file */
  66.  
  67. /* Mouse button assignments  */
  68.  
  69.  
  70. /* Alt key assignments    */
  71. 'SET ACTION.A-A LP_MARKCHAR' /* mark stream */
  72. 'SET ACTION.A-B' /* function not available - buffer-list */
  73. 'SET ACTION.A-C LP_MARKRECT'/* column mark  */
  74. 'SET ACTION.A-D DELETE' /* delete line */
  75. 'SET ACTION.A-E DIALOG OPEN' /* edit file */
  76. 'SET ACTION.A-F GETNAME' /* display file name */
  77. 'SET ACTION.A-G LP_LINE' /* go to line */
  78. 'SET ACTION.A-H HELP' /* help */
  79. 'SET ACTION.A-I SET INSERTING INVERSE' /* insert mode toggle */
  80. 'SET ACTION.A-J LP_QUICKMARK' /* jump bookmark */
  81. 'SET ACTION.A-K PRIMITIVE TRUNCATE' /* delete to end of line */
  82. 'SET ACTION.A-L LP_MARKLINE' /* mark line */
  83. 'SET ACTION.A-M LP_MARKCHAR'/* mark stream */
  84. 'SET ACTION.A-N GODOC NEXT' /* go to the next buffer */
  85. 'SET ACTION.A-O RENAME' /* change output file name  */
  86. 'SET ACTION.A-P DIALOG PRINT' /* print block  */
  87. 'SET ACTION.A-Q' /* quote interpret next keystroke literally - ASCII */
  88. 'SET ACTION.A-R DIALOG GETFILE' /* read file into buffer - getfile */
  89. 'SET ACTION.A-S SPLITJOIN SPLIT' /* split line at the cursor */
  90. 'SET ACTION.A-T DIALOG FINDCHANGE' /* set to null  */
  91. 'SET ACTION.A-U UNDO' /* undo */
  92. 'SET ACTION.A-V QUERY VERSION' /* display version ID */
  93. 'SET ACTION.A-W SAVE' /* write */
  94. 'SET ACTION.A-X QUIT' /* exit */
  95. 'SET ACTION.A-Y BLOCK FIND' /* cursor to beginning of mark */
  96. 'SET ACCELERATOR.LP_SHELL A-Z' /* command shell */
  97. 'SET ACTION.A-0' /* drop bookmark 0 */
  98. 'SET ACTION.A-1' /* drop bookmark 1 */
  99. 'SET ACTION.A-2' /* drop bookmark 2 etc.... */
  100. /* 'SET ACTION.A-- LP_PREVRING'*/ /*no support for minus - previous buffer*/
  101.  
  102. /* Alt + keyboard assignments */
  103. 'SET ACTION.A-BACKSPACE MULT: PRIMITIVE WORDRIGHT; PRIMITIVE DELETEWORD'
  104. /* delete next word */
  105. 'SET ACTION.A-END' /* set to null */
  106. 'SET ACTION.A-HOME' /* set to null */
  107. 'SET ACTION.A-INS'  /* set to null */
  108. 'SET ACTION.A-LEFT' /* set to null */
  109. 'SET ACTION.A-RIGHT'  /* set to null */
  110.  
  111. /* control key assignments     */
  112. 'SET ACTION.C-A'  /* null */
  113. 'SET ACTION.C-B BOTLINE'  /* line to bottom of window */
  114. 'SET ACTION.C-C CENTREH'  /* centre line in window */
  115. 'SET ACTION.C-D ;PRIMITIVE SELECTPAGEDOWN; BLOCK CLEAR'  /* scroll buffer down in window */
  116. 'SET ACTION.C-E ;PRIMITIVE SELECTPAGEUP; BLOCK CLEAR' /* scroll buffer up in window */
  117. 'SET ACTION.C-F'  /* null */
  118. 'SET ACTION.C-G'  /* go to routine */
  119. 'SET ACTION.C-H'  /* null */
  120. 'SET ACTION.C-I'  /* null */
  121. 'SET ACTION.C-J'  /* null */
  122. 'SET ACTION.C-K MULT; PRIMITIVE SELECTHOME ; BLOCK DELETE'
  123. /* delete to beginning of line */
  124. 'SET ACTION.C-L'  /* null */
  125. 'SET ACTION.C-M'  /* null*/
  126. 'SET ACTION.C-N EMSG NEXT'  /* next error message */
  127. 'SET ACTION.C-O'  /* null  */
  128. 'SET ACTION.C-P'  /* no similiar concept - pop-up error window  */
  129. 'SET ACTION.C-Q'  /* null */
  130. 'SET ACTION.C-R REPEATS'  /* call the repeat.lx macro */
  131. 'SET ACTION.C-S'  /* null */
  132. 'SET ACTION.C-T FOCUS.ROW 1'  /* current line to top of window  */
  133. 'SET ACTION.C-U' /* need to redo - redo an undo */
  134. 'SET ACTION.C-V LP_CLIPPASTE'  /* paste from clipboard */
  135. 'SET ACTION.C-W'  /* no similar concept in LPEX - backup file togglewrite */
  136. 'SET ACTION.C-X'  /* SAVEALL & QUIT doesn't work write all and exit */
  137. 'SET ACTION.C-Y'  /* null */
  138. 'SET ACTION.C-Z'  /* null */
  139. 'SET ACTION.C-0'  /* null */
  140. 'SET ACTION.C-1'  /* null */
  141. 'SET ACTION.C-2'  /* null */
  142. /* 'SET ACTION.C--*/ /*no support for minus - delete buffer*/
  143.  
  144. /* Control + keyboard assigments */
  145. 'SET ACTION.C-BACKSPACE MULT: PRIMITIVE WORDLEFT; PRIMITIVE DELETEWORD'
  146. /* delete previous word*/
  147. 'SET ACTION.C-END'   /* not done yet - cursor to bottom of window*/
  148. 'SET ACTION.C-HOME'  /* not done yet - cursor to top of window */
  149. 'SET ACCELERATOR.LP_CLIPCOPY C-INS' /* clip marked block */
  150. 'SET ACTION.C-LEFT PRIMITIVE WORDLEFT' /* move to previous word */
  151. 'SET ACTION.C-PGDN BOTTOM' /* cursor to bottom of file */
  152. 'SET ACTION.C-PGUP TOP' /* cursor to top of file */
  153. 'SET ACTION.C-RIGHT PRIMITIVE WORDRIGHT' /* move to next word */
  154. /* Shift + keyboard assignments  */
  155. 'SET ACTION.S-DOWN        PRIMITIVE SELECTDOWN'
  156. 'SET ACTION.S-END  PRIMITIVE ENDELEMENT'   /* cursor to end of line */
  157. 'SET ACTION.S-HOME PRIMITIVE BEGINELEMENT' /* cursor to beginning of line */
  158. 'SET ACCELERATOR.LP_CLIPPASTE S-INS'
  159. 'SET ACTION.S-LEFT        PRIMITIVE SELECTLEFT'
  160. 'SET ACTION.S-PGDN'  /* set to null */
  161. 'SET ACTION.S-PGUP'  /* set to null */
  162. 'SET ACTION.S-RIGHT       PRIMITIVE SELECTRIGHT'
  163. 'SET ACTION.S-UP PRIMITIVE SELECTUP'
  164.  
  165. /* Control + Shift + keyboard assignments */
  166. 'SET ACTION.C-S-DOWN'           /* set to null */
  167. 'SET ACTION.C-S-END  END'       /* move to end of file */
  168. 'SET ACTION.C-S-HOME TOP'       /* move to top of file */
  169. 'SET ACTION.C-S-LEFT PRIMITIVE WORDLEFT' /* move left to previous word */
  170. 'SET ACTION.C-S-PGDN'           /* set to null */
  171. 'SET ACTION.C-S-PGUP'           /* set to null */
  172. 'SET ACTION.C-S-RIGHT PRIMITIVE WORDRIGHT' /* move right to next word */
  173. 'SET ACTION.C-S-UP'             /* set to null */
  174.  
  175. /* Set backspace, delete, escape and enter key assignments  */
  176. 'SET ACTION.ENTER SPLITLINE'
  177. 'SET ACTION.A-ENTER SPLITLINE'
  178. 'SET ACTION.C-ENTER OPENLINE'
  179. 'SET ACTION.S-ENTER SPLITLINE'
  180.  
  181. 'SET ACTION.PADENTER SPLITLINE'
  182.  
  183. 'SET ACTION.BACKSPACE BACK2'
  184. 'SET ACTION.C-BACKSPACE DELETE'   /* delete entire line */
  185. 'SET ACTION.C-S-BACKSPACE DELETE' /* delete entire line */
  186.  
  187. 'SET ACTION.DEL DELETE2'
  188. 'SET ACTION.C-DEL PRIMITIVE TRUNCATE'/* delete to end of line */
  189. 'SET ACCELERATOR.LP_CLIPCUT S-DEL'
  190.  
  191. 'SET ACCELERATOR.LP_ISSUECMD ESC'
  192.  
  193. /* rubout characters continuously across lines from cursor */
  194. 'SET FOCUS.TOP 0'
  195. 'SET FOCUS.BOTTOM 0'
  196.  
  197. /* set up options pull-down correctly  */
  198. 'EXTRACT VIEWNUM'
  199. 'EXTRACT VIEWLIST'
  200. do while(viewlist \= '')
  201.    'GOVIEW NOACT VIEWNUM 'subword(viewlist,1,1)
  202.    'EXTRACT DEFAULT.PREFIXSHOW INTO PREFIXSHOW'
  203.    'SET PREFIXSHOW 'PREFIXSHOW
  204.    viewlist = delword(viewlist,1,1)
  205. end
  206. 'GOVIEW NOACT VIEWNUM 'VIEWNUM
  207.  
  208. 'SET GLOBAL.KEYS brief'
  209.