home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D3.DMS / in.adf / Interfaces / DTClass.mod < prev    next >
Encoding:
Text File  |  1993-05-22  |  701 b   |  37 lines
  1. (*
  2. (*  $VER: DTClass.mod 39.108 (22.5.93)
  3. **      derived from
  4. **        dtclass_protos.h 39.0 (01.06.92)
  5. **      (Includes Release 39.108)
  6. **
  7. **      (C) Copyright 1991-1992 Commodore-Amiga, Inc.
  8. **          All Rights Reserved
  9. **
  10. **      (C) Copyright Oberon Interface 1993 by hartmut Goebel
  11. *)          All Rights Reserved
  12. *)
  13.  
  14. MODULE DTClass;
  15.  
  16. IMPORT
  17.   I * := Intuition,
  18.   e := Exec;
  19.  
  20. CONST
  21.   dtclassName * = "dtclass.class";
  22.  
  23. VAR
  24.   base * : e.LibraryPtr;
  25.  
  26. (*--- functions in V39 or higher (distributed as Release 3.0) ---*)
  27.  
  28. PROCEDURE ObtainEngine   *{base,-01EH}(): I.IClassPtr;
  29.  
  30. BEGIN
  31.   base := e.OpenLibrary(dtclassName,39);
  32. CLOSE
  33.   IF base # NIL THEN e.CloseLibrary(base); END;
  34.  
  35. END DTClass.
  36.  
  37.