home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / wps / editor / epmtools / epmsmp / editpath.e < prev    next >
Encoding:
Text File  |  1992-08-26  |  2.2 KB  |  41 lines
  1. /***************************************************************************/
  2. /*                           E D I T P A T H . E                           */
  3. /*                                                                         */
  4. /* This file contains definitions to save the edit path from session to    */
  5. /* session, so once you change the EPM directory it stays that way!  To    */
  6. /* use these definitions, add the following lines to MYSTUFF.E:            */
  7. /*                                                                         */
  8. /*   Compile If EPM                                                        */
  9. /*     include 'EDITPATH.E'                                                */
  10. /*   Compile Endif                                                         */
  11. /*                                                                         */
  12. /* Then re-compile EPM using ETPM.                                         */
  13. /*                                                                         */
  14. /* Written by B. Thompson 91/09/17                                         */
  15. /*                                                                         */
  16. /***************************************************************************/
  17.  
  18. /***************************************************************************/
  19. /* Set up a variable for the INI entry which holds our data                */
  20. /***************************************************************************/
  21.  
  22. Const
  23.   INI_EDITPATH      = 'EDITPATH'
  24.  
  25. /***************************************************************************/
  26. /* At EPM startup time, change to the last saved directory, or leave the   */
  27. /* directory the same if we haven't yet saved any data                     */
  28. /***************************************************************************/
  29.  
  30. Definit
  31.   newpath = checkini(0, INI_EDITPATH, directory())
  32.   'CD' newpath
  33.  
  34. /***************************************************************************/
  35. /* We're loading a new file - save the current EPM directory in EPM.INI.   */
  36. /***************************************************************************/
  37.  
  38. Defload
  39.   Call setini(INI_EDITPATH, directory())
  40.  
  41.