home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / VSCPPv7.zip / VACPP / IBMCPP / macros / SEU.LX < prev    next >
Text File  |  1995-05-11  |  3KB  |  64 lines
  1. /********************************************************
  2. * SEU.LX: SEU/LPEX editor profile.                       *
  3. *                                                        *
  4. * This LX profile is called whenever the key behavior    *
  5. * for SEU is called. It sets up any defaults (including  *
  6. * key definitions and mouse actions required to make your*
  7. * LPEX session behave like an SEU session).              *
  8. *                                                        *
  9. * To have the SEU/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. 'MACRO LPEX'                                  /* Default key behaviour       */
  16. /* SEU key behaviour   */
  17. /* F1 = Help already   */
  18. /* F2 = Not used in SEU*/
  19. /* F3 = Exit already   */
  20. /* F4 = Prompt already */
  21. 'SET ACTION.F5 ;ALL SET PREFIXENTRY;MSG    '  /* F5 = Clear msgs,prefix area */
  22. /* F6 = Not used in SEU*/
  23. 'SET ACTION.F7 SCROLL SCREEN UP'              /* F7 = Page Up                */
  24. 'SET ACTION.F8 SCROLL SCREEN DOWN'            /* F8 = Page Down              */
  25. /* F9 = Retrieve in SEU, but used for Command Log in CODE and LPEX           */
  26. /* F10= Cursor   in SEU, but used for goto-Menubar in CODE and OS/2          */
  27. /* F11= Prompt previous already */
  28. /* F12= Not used in SEU*/
  29. 'SET ACTION.S-F1 DIALOG OPTIONS'              /* F13 = Editor Options dialog */
  30. 'SET ACTION.S-F2 DIALOG FINDCHANGE'           /* F14 = Editor Find/Change dlg*/
  31. 'SET ACTION.S-F3 DIALOG OPEN'                 /* F15 = Editor Open dialog    */
  32. 'SET ACTION.S-F4 FIND VISIBLE NEXT'           /* F16 = Find next             */
  33. 'SET ACTION.S-F5 DIALOG FINDCHANGE'           /* F17 = Editor Find/Change dlg*/
  34. /* F18= DBCS cnv in SEU*/
  35. 'SET ACTION.S-F7   SCROLL SCREEN LEFT'        /* F19 = Page left             */
  36. 'SET ACTION.S-F8   SCROLL SCREEN RIGHT'       /* F20 = Page right            */
  37. /* F21= CmdLine in SEU, but used for Issue Edit Command in CODE.             */
  38. /* F22= Not used in SEU*/
  39. /* F23= Select Prompt already*/
  40. 'SET ACTION.S-F12  DIALOG ACTION'             /* F24 = Show key assignments  */
  41. 'SET ACTION.ENTER ;PREFIXPROCESS ;PRIMITIVE PREVIOUSTAB'
  42.  
  43. 'MACRO SEUPRF'
  44.  
  45. 'EXTRACT VIEWNUM'
  46. 'EXTRACT VIEWLIST'
  47. do while(viewlist \= '')
  48.    'GOVIEW NOACT VIEWNUM 'subword(viewlist,1,1)
  49.  
  50.    'SET MENUCHECK.LP_LPEXKEYS  OFF'
  51.    'SET MENUCHECK.LP_EPMKEYS   OFF'
  52.    'SET MENUCHECK.LP_SEUKEYS   ON'
  53.    'SET MENUCHECK.LP_XEDITKEYS OFF'
  54.    'SET MENUCHECK.LP_ISPFKEYS  OFF'
  55.    'SET MENUCHECK.LP_CUSTOMIZE OFF'
  56.    'SET PREFIXDISPLAYFORMAT 99999'
  57.    'SET PREFIXSHOW ON'
  58.    viewlist = delword(viewlist,1,1)
  59. end
  60. 'GOVIEW NOACT VIEWNUM 'VIEWNUM
  61.  
  62. 'EXTRACT DOCNUM INTO DOCNUM'
  63. "SET GLOBAL.DOC" || DOCNUM || " 'MACRO SEU'"
  64.