(*
(*  $VER: DTClass.mod 39.108 (22.5.93)
**      derived from
**        dtclass_protos.h 39.0 (01.06.92)
**      (Includes Release 39.108)
**
**      (C) Copyright 1991-1992 Commodore-Amiga, Inc.
**          All Rights Reserved
**
**      (C) Copyright Oberon Interface 1993 by hartmut Goebel
*)          All Rights Reserved
*)

MODULE DTClass;

IMPORT
  I * := Intuition,
  e := Exec;

CONST
  dtclassName * = "dtclass.class";

VAR
  base * : e.LibraryPtr;

(*--- functions in V39 or higher (distributed as Release 3.0) ---*)

PROCEDURE ObtainEngine   *{base,-01EH}(): I.IClassPtr;

BEGIN
  base := e.OpenLibrary(dtclassName,39);
CLOSE
  IF base # NIL THEN e.CloseLibrary(base); END;

END DTClass.