home *** CD-ROM | disk | FTP | other *** search
/ Power GUI Programming with VisualAge C++ / powergui.iso / trialva / ibmcppw / macros / seu.lx < prev    next >
Encoding:
Text File  |  1996-02-22  |  6.3 KB  |  107 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     *
  7. * your 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. *        (C) Copyright IBM Corporation 1989, 1995        *
  14. *********************************************************/
  15.  
  16. 'MACRO LPEX'                                  /* default key behaviour       */
  17. 'EXTRACT DOCTYPE'                             /* what are we editing?        */
  18.  
  19.                                               /* F1 = Help already           */
  20.                                               /* F2 = Not used in SEU        */
  21. 'SET ACCELERATOR.LP_CLOSEVIEW F3'             /* F3 = Exit                   */
  22.                                               /* F4 = Set below              */
  23. 'SET ACTION.F5 ;ALL SET PREFIXENTRY ;MSG  '   /* F5 = Clear msgs,prefix area */
  24.                                               /* F6 = Not used in SEU        */
  25. 'SET ACTION.F7 SCROLL SCREEN UP'              /* F7 = Page Up                */
  26. 'SET ACTION.F8 SCROLL SCREEN DOWN'            /* F8 = Page Down              */
  27. /* F9 = Retrieve in SEU, but used for Command Log in CODE and LPEX */
  28. /* F10 = Cursor  in SEU, but CODE & system go to menubar */
  29.                                               /* F11= Set below              */
  30. 'SET ACTION.F12 QUITVIEW'                     /* F12= End Split/Browse       */
  31. 'SET ACTION.S-F1 DIALOG OPTIONS'              /* F13 = Editor Options dialog */
  32. 'SET ACTION.S-F2 DIALOG FINDCHANGE'           /* F14 = Editor Find/Change dlg*/
  33. 'SET ACTION.S-F3 DIALOG OPEN'                 /* F15 = Editor Open dialog    */
  34. /* When editing RPG, S-F4 used to be Prompted-Insert */
  35. 'SET ACCELERATOR.LP_FINDNEXT S-F4'            /* F16 = Find next             */
  36. 'SET ACTION.C-N LP_FINDNEXT'                  /* Also keep Ctrl+N valid      */
  37. 'SET ACTION.S-F5 DIALOG FINDCHANGE'           /* F17 = Editor Find/Change dlg*/
  38. /* F18= DBCS cnv in SEU*/
  39. 'SET ACTION.S-F7 SCROLL SCREEN LEFT'          /* F19 = Page left             */
  40. 'SET ACTION.S-F8 SCROLL SCREEN RIGHT'         /* F20 = Page right            */
  41. /* F21= CmdLine in SEU, but used for Issue Edit Command in CODE.             */
  42.                                               /* F22 = Set below             */
  43.                                               /* F23 = Set below             */
  44. 'SET ACTION.S-F12 DIALOG ACTION'              /* F24 = Show key assignments  */
  45. 'SET ACTION.ENTER ;PREFIXPROCESS ;PRIMITIVE PREVIOUSTAB'
  46. 'SET ACCELERATOR.LP_RECPLAY C-T'              /* Ctrl+T = Keystroke Playback */
  47.  
  48. /* ------------------------------------------------------------------------- */
  49. /* Set RPG and CL unique stuff, relating to prompting and rulers...          */
  50. /* ------------------------------------------------------------------------- */
  51. /* F4 = Prompt current line in SEU, when editing RPG or CL...                */
  52. 'EXTRACT SYNONYM.PROMPTID INTO PID'
  53. if (PID <> "") then do                        /* Only set for RPG, CL        */
  54.     parse var PID nbr promptid                /*  Parse out leading number   */
  55.     'SET ACCELERATOR.'promptid 'F4'           /*  Set F4 to be accelerator   */
  56.   end                                         /*  End if PID not null        */
  57. /* F11= Prompt previous line in SEU, when editing RPG or CL...               */
  58. 'EXTRACT SYNONYM.PROMPTPREV INTO PROMPTPREV'  /* Was set by RPG, CL profiles */
  59. if (PROMPTPREV <> "") then do                 /* Only set for RPG, CL        */
  60.     parse var PROMPTPREV nbr pmtprev          /*  Parse out leading number   */
  61.    'SET ACTION.F11 'pmtprev                   /*  Assign action key          */
  62.   end                                         /*  End if PROMPTID            */
  63. /* CTRL+F4 = Insert Prompt for RPG (reassign now since Shift+F4 is find next)*/
  64. 'EXTRACT SYNONYM.IPROMPTID INTO IPID'
  65. if (IPID <> "") then do                       /* Only set for RPG            */
  66.     parse var IPID nbr ipromptid              /*  Parse out leading number   */
  67.     'SET ACCELERATOR.'ipromptid 'C-F4'        /*  Set C-F4 to be accelerator */
  68.   end                                         /*  End if IPID not null       */
  69. /* F22= Not used in SEU, set to Select Format Line for CODE for RPG...       */
  70. 'EXTRACT SYNONYM.SELFORMAT INTO SFORMAT'      /* Was set by RPG profiles     */
  71. if (SFORMAT <> "") then do                    /* Only set for RPG            */
  72.     parse var SFORMAT nbr selfmt              /*  Parse out leading number   */
  73.     'SET ACCELERATOR.'selfmt    'S-F10'       /*  Set C-F10 to be accelerator*/
  74.   end                                         /*  End if SFORMAT             */
  75. /* F23= Select Prompt in SEU, when editing RPG...                            */
  76. 'EXTRACT SYNONYM.SELPROMPT INTO SPROMPT'      /* Was set by RPG profiles     */
  77. if (SPROMPT <> "") then do                    /* Only set for RPG            */
  78.     parse var SPROMPT nbr selpmt              /*  Parse out leading number   */
  79.    'SET ACTION.S-F11 'selpmt                  /*  Assign action key          */
  80.   end                                         /*  End if SPROMPT             */
  81.  
  82.  
  83. 'MACRO SEUPRF'
  84.  
  85. 'EXTRACT VIEWNUM'
  86. 'EXTRACT VIEWLIST'
  87. do while(viewlist \= '')
  88.    'GOVIEW NOACT VIEWNUM 'subword(viewlist,1,1)
  89.  
  90.    'SET MENUCHECK.LP_LPEXKEYS  OFF'
  91.    'SET MENUCHECK.LP_BRIEFKEYS OFF'
  92.    'SET MENUCHECK.LP_EPMKEYS   OFF'
  93.    'SET MENUCHECK.LP_SEUKEYS   ON'
  94.    'SET MENUCHECK.LP_XEDITKEYS OFF'
  95.    'SET MENUCHECK.LP_ISPFKEYS  OFF'
  96.    'SET MENUCHECK.LP_CUSTOMIZE OFF'
  97.    'EXTRACT PREFIXDISPLAYFORMAT'
  98.    if PREFIXDISPLAYFORMAT = '' then
  99.       'SET PREFIXDISPLAYFORMAT 99999'
  100.    'SET PREFIXSHOW ON'
  101.    viewlist = delword(viewlist,1,1)
  102. end
  103. 'GOVIEW NOACT VIEWNUM 'VIEWNUM
  104.  
  105. 'EXTRACT DOCNUM INTO DOCNUM'
  106. "SET GLOBAL.DOC" || DOCNUM || " 'MACRO SEU'"
  107.