home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D3.DMS / in.adf / Interfaces / Icon.mod < prev    next >
Encoding:
Text File  |  1993-05-23  |  2.9 KB  |  60 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                                                                         *)
  3. (*  Amiga Oberon Interface Module:                    Date: 02-Nov-92      *)
  4. (*                                                                         *)
  5. (*   © 1992 by Fridtjof Siebert                                            *)
  6. (*                                                                         *)
  7. (*-------------------------------------------------------------------------*)
  8.  
  9. MODULE Icon;
  10.  
  11. IMPORT e  * := Exec,
  12.        wb * := Workbench;
  13.  
  14. CONST
  15.   iconName * = "icon.library";
  16.  
  17. VAR
  18.   base * : e.LibraryPtr;
  19.  
  20.  
  21. PROCEDURE GetIcon         *{base,- 42}(name{8}        : ARRAY OF CHAR;
  22.                                        icon{9}        : wb.DiskObjectPtr;
  23.                                        freelist{10}   : wb.FreeListPtr): LONGINT;
  24. PROCEDURE PutIcon         *{base,- 48}(name{8}        : ARRAY OF CHAR;
  25.                                        icon{9}        : wb.DiskObjectPtr): BOOLEAN;
  26. PROCEDURE FreeFreeList    *{base,- 54}(freelist{8}    : wb.FreeListPtr);
  27. PROCEDURE AddFreeList     *{base,- 72}(freelist{8}    : wb.FreeListPtr;
  28.                                        mem{9}         : e.APTR;
  29.                                        size{10}       : LONGINT): BOOLEAN;
  30. PROCEDURE GetDiskObject   *{base,- 78}(name{8}        : ARRAY OF CHAR): wb.DiskObjectPtr;
  31. PROCEDURE PutDiskObject   *{base,- 84}(name{8}        : ARRAY OF CHAR;
  32.                                        diskobj{9}     : wb.DiskObjectPtr): BOOLEAN;
  33. PROCEDURE FreeDiskObject  *{base,- 90}(diskobj{8}     : wb.DiskObjectPtr);
  34. PROCEDURE FindToolType    *{base,- 96}(toolTypes{8}   : e.APTR;
  35.                                        typeName{9}    : ARRAY OF CHAR): e.STRPTR;
  36. PROCEDURE MatchToolValue  *{base,-102}(typeString{8}  : ARRAY OF CHAR;
  37.                                        val{9}         : ARRAY OF CHAR): BOOLEAN;
  38. PROCEDURE BumpRevision    *{base,-108}(VAR newname{8} : ARRAY OF CHAR;
  39.                                        oldname{9}     : ARRAY OF CHAR);
  40. (* ---   functions in V36 or higher  (distributed as Release 2.0)   --- *)
  41. (* --- REMEMBER: You are to check the version BEFORE you use this ! --- *)
  42. (*      Use DiskObjects instead of obsolete WBObjects            *)
  43. PROCEDURE GetDefDiskObject*{base,-120}(type{0}        : LONGINT): wb.DiskObjectPtr;
  44. PROCEDURE PutDefDiskObject*{base,-126}(diskObject{8}  : wb.DiskObjectPtr): BOOLEAN;
  45. PROCEDURE GetDiskObjectNew*{base,-132}(name{8}        : ARRAY OF CHAR): wb.DiskObjectPtr;
  46. (* ---   functions in V37 or higher   --- *)
  47. PROCEDURE DeleteDiskObject*{base,-138}(name{8}        : ARRAY OF CHAR): BOOLEAN;
  48.  
  49. (* $OvflChk- $RangeChk- $StackChk- $NilChk- $ReturnChk- $CaseChk- *)
  50.  
  51. BEGIN
  52.   base :=   e.OpenLibrary(iconName,33);
  53.   IF base=NIL THEN HALT(20) END;
  54.  
  55. CLOSE
  56.   IF base#NIL THEN e.CloseLibrary(base) END;
  57.  
  58. END Icon.
  59.  
  60.