DEFINITION MODULE IconL{"icon.library",33};
(* 17-May-1992/cn *)

FROM SYSTEM IMPORT ADDRESS;

FROM WorkbenchD IMPORT
 FreeListPtr,DiskObjectPtr;

IMPORT
 R,ExecD;

VAR
 iconVersion:INTEGER;
 iconBase:ExecD.LibraryPtr;

CONST
 iconMinVersion=33;
 iconName="icon.library";

TYPE
 StrPtr=ADDRESS;

PROCEDURE AddFreeList(
           freelist{R.A0}:FreeListPtr;
           mem{R.A1}:ADDRESS;
           size{R.A2}:LONGINT):BOOLEAN; CODE -72;

PROCEDURE BumpRevision(
           newbuf{R.A0}:StrPtr;
           oldname{R.A1}:StrPtr):StrPtr; CODE -108;

PROCEDURE(*37*) DeleteDiskObject(name{R.A0}:StrPtr):BOOLEAN; CODE -138;

PROCEDURE FindToolType(
           toolTypeArray{R.A0}:ADDRESS;
           typeName{R.A1}:StrPtr):StrPtr; CODE -96;

PROCEDURE FreeDiskObject(diskobj{R.A0}:DiskObjectPtr); CODE -90;

PROCEDURE FreeFreeList(freelist{R.A0}:FreeListPtr); CODE -54;

PROCEDURE(*36*) GetDefDiskObject(
                 type{R.D0}:LONGINT):DiskObjectPtr; CODE -120;

PROCEDURE GetDiskObject(name{R.A0}:StrPtr):DiskObjectPtr; CODE -78;

PROCEDURE(*36*) GetDiskObjectNew(
                 name{R.A0}:StrPtr):DiskObjectPtr; CODE -132;

PROCEDURE GetIcon(
           name{R.A0}:StrPtr;
           icon{R.A1}:ADDRESS;
           freelist{R.A2}:FreeListPtr):ADDRESS; CODE -42;

PROCEDURE MatchToolValue(
           typeString{R.A0}:StrPtr;
           value{R.A1}:StrPtr):BOOLEAN; CODE -102;

PROCEDURE(*36*) PutDefDiskObject(
                 diskObject{R.A0}:DiskObjectPtr):BOOLEAN; CODE -126;

PROCEDURE PutDiskObject(
           name{R.A0}:StrPtr;
           diskobj{R.A1}:DiskObjectPtr):BOOLEAN; CODE -84;

PROCEDURE PutIcon(
           name{R.A0}:StrPtr;
           icon{R.A1}:ADDRESS):BOOLEAN; CODE -48;

END IconL.lib33
