home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / VSCPPv7.zip / VACPP / IBMCPP / macros / XEDIT.LX < prev    next >
Text File  |  1995-05-11  |  675b  |  26 lines
  1. /* XEDIT key behaviour   */
  2. 'MACRO LPEX'
  3.  
  4. 'SET ACTION.ENTER ;PREFIXPROCESS ;PRIMITIVE PREVIOUSTAB'
  5. 'MACRO XEDITPRF'
  6.  
  7. 'EXTRACT VIEWNUM'
  8. 'EXTRACT VIEWLIST'
  9. do while(viewlist \= '')
  10.    'GOVIEW NOACT VIEWNUM 'subword(viewlist,1,1)
  11.  
  12.    'SET MENUCHECK.LP_LPEXKEYS  OFF'
  13.    'SET MENUCHECK.LP_EPMKEYS   OFF'
  14.    'SET MENUCHECK.LP_SEUKEYS   OFF'
  15.    'SET MENUCHECK.LP_XEDITKEYS ON'
  16.    'SET MENUCHECK.LP_ISPFKEYS  OFF'
  17.    'SET MENUCHECK.LP_CUSTOMIZE OFF'
  18.    'SET PREFIXDISPLAYFORMAT 99999'
  19.    'SET PREFIXSHOW ON'
  20.    viewlist = delword(viewlist,1,1)
  21. end
  22. 'GOVIEW NOACT VIEWNUM 'VIEWNUM
  23.  
  24. 'EXTRACT DOCNUM INTO DOCNUM'
  25. "SET GLOBAL.DOC" || DOCNUM || " 'MACRO XEDIT'"
  26.