home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / develop / gadtoolsbox / oberon / getfile / getfile.mod < prev    next >
Encoding:
Text File  |  1995-02-27  |  796 b   |  31 lines
  1. (* This module interfaces to the boopsi class "GetFile"  *)
  2. (* which is © by Jaba Development                        *)
  3.  
  4. (* you must join or link with "boopsi.o" and "bases.o"   *)
  5. MODULE GetFile;
  6.  
  7. IMPORT
  8.   Intuition, Graphics, Utility, GadTools, Exec;
  9.  
  10. PROCEDURE InitGet {"initGet"} (): Intuition.IClassPtr;
  11.  
  12. VAR
  13.   IntuitionBase ["_IntuitionBase"], GfxBase ["_GfxBase"],
  14.   UtilityBase ["_UtilityBase"], GadToolsBase ["_GadToolsBase"]: Exec.LibraryPtr;
  15.  
  16.   GetFileClass*: Intuition.IClassPtr;
  17.  
  18. BEGIN
  19.   IntuitionBase := Intuition.int;
  20.   GfxBase       := Graphics.gfx;
  21.   UtilityBase   := Utility.base;
  22.   GadToolsBase  := GadTools.base;
  23.  
  24.   GetFileClass := InitGet ();
  25. CLOSE
  26.   IF GetFileClass # NIL THEN
  27.     IF Intuition.FreeClass (GetFileClass) THEN END;
  28.     GetFileClass := NIL;
  29.   END;
  30. END GetFile.
  31.