home *** CD-ROM | disk | FTP | other *** search
/ Power GUI Programming with VisualAge C++ / powergui.iso / trialva / ibmcppw / macros / xedit.lx < prev    next >
Encoding:
Text File  |  1996-02-22  |  786 b   |  29 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_BRIEFKEYS OFF'
  14.    'SET MENUCHECK.LP_EPMKEYS   OFF'
  15.    'SET MENUCHECK.LP_SEUKEYS   OFF'
  16.    'SET MENUCHECK.LP_XEDITKEYS ON'
  17.    'SET MENUCHECK.LP_ISPFKEYS  OFF'
  18.    'SET MENUCHECK.LP_CUSTOMIZE OFF'
  19.    'EXTRACT PREFIXDISPLAYFORMAT'
  20.    if PREFIXDISPLAYFORMAT = '' then
  21.       'SET PREFIXDISPLAYFORMAT 99999'
  22.    'SET PREFIXSHOW ON'
  23.    viewlist = delword(viewlist,1,1)
  24. end
  25. 'GOVIEW NOACT VIEWNUM 'VIEWNUM
  26.  
  27. 'EXTRACT DOCNUM INTO DOCNUM'
  28. "SET GLOBAL.DOC" || DOCNUM || " 'MACRO XEDIT'"
  29.