home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional Developers Kit 1992 November / Disc01 / Disc01.mdf / prodtool / epm / e_macros / load.e < prev    next >
Encoding:
Text File  |  1992-08-07  |  2.4 KB  |  76 lines
  1. ;  LOAD.E                                                Bryan Lewis 1/2/89
  2. ;
  3. ;  This event is triggered immediately after a file is loaded.  It will be
  4. ;  invoked after loading an existing file from disk, or opening a new file,
  5. ;  but not after an error such as "Not enough memory".
  6. ;  In other words, a new file must be entered into the ring.
  7. ;
  8. ;  This is the place to select a keyset (like c_keys for .C files) since
  9. ;  keysets now stay bound to a file once assigned.
  10. ;  This is also a good place to do other one-time processing like returning to
  11. ;  a saved bookmark.
  12. ;
  13. ;  No argument is passed.  Check .filename if you want the name of the file.
  14. ;  Use the function ext() for the filetype.
  15. ;
  16. defload
  17. compile if WANT_EBOOKIE = 'DYNALINK'
  18.    universal bkm_avail
  19. compile endif
  20. compile if EPM
  21.    universal vDEFAULT_TABS, vDEFAULT_MARGINS, vDEFAULT_AUTOSAVE, load_var
  22.  compile if EVERSION >= '5.50'
  23.    universal default_font
  24.  compile endif
  25.  compile if WANT_LONGNAMES='SWITCH'
  26.    universal SHOW_LONGNAMES
  27.  compile endif
  28.  
  29.    load_var = 0
  30.  
  31.    .tabs     = vDEFAULT_TABS
  32.    .margins  = vDEFAULT_MARGINS
  33.    .autosave = vDEFAULT_AUTOSAVE
  34.  compile if EVERSION < 5.21
  35.    .statusline=STATUS_TEMPLATE
  36.  compile endif
  37.  compile if WANT_LONGNAMES
  38.   compile if WANT_LONGNAMES='SWITCH'
  39.    if SHOW_LONGNAMES then
  40.   compile endif
  41.    longname = get_EAT_ASCII_value('.LONGNAME')
  42.    if longname<>'' then
  43.       filepath = leftstr(.filename, lastpos('\',.filename))
  44.       .titletext = filepath || longname
  45.    endif
  46.   compile if WANT_LONGNAMES='SWITCH'
  47.    endif
  48.   compile endif
  49.  compile endif
  50. compile else
  51.    .tabs     = DEFAULT_TABS
  52.    .margins  = DEFAULT_MARGINS
  53.    .autosave = DEFAULT_AUTOSAVE
  54. compile endif
  55.    keys edit_keys    -- defaults for non-special filetypes
  56. compile if EVERSION >= '5.50'
  57.    if .font < 2 then    -- If being called from a NAME, and font was set, don't change it.
  58.       .font = default_font
  59.    endif
  60. compile endif
  61. compile if WANT_BOOKMARKS
  62.    if .levelofattributesupport < 2 then  -- If not already set (e.g., NAME does a DEFLOAD)
  63.       'loadattributes'
  64.    endif
  65. compile endif
  66. compile if WANT_EBOOKIE
  67.  compile if WANT_EBOOKIE = 'DYNALINK'
  68.    if bkm_avail <> '' then
  69.  compile endif
  70.       if bkm_defload()<>0 then keys bkm_keys; endif
  71.  compile if WANT_EBOOKIE = 'DYNALINK'
  72.    endif
  73.  compile endif
  74. compile endif  -- WANT_EBOOKIE
  75. -- sayerror 'DEFLOAD occurred for file '.filename'.'  -- for testing
  76.