home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / icon.lib < prev    next >
Encoding:
Text File  |  1994-07-25  |  1.2 KB  |  32 lines
  1. {$if not def ICON_LIB_H} CONST ICON_LIB_H=0;
  2.  
  3. { **********************************************************
  4.   ** KickPascal-Include-Datei "icon.lib" zu Kickstart 3.0 **
  5.   ********************************************************** }
  6.  
  7. {$if not def WORKBENCH_WORKBENCH_H;incl "workbench/workbench.h";endif}
  8.  
  9. VAR IconBase : Ptr;
  10.  
  11. LIBRARY IconBase :
  12.  
  13. { **** Routinen ab V36 / Release 2.0  **** }
  14.  -42 : FUNCTION  GetIcon(A0:Str; A1:p_DiskObject; A2:p_FreeList): LongInt;
  15.  -48 : FUNCTION  PutIcon(A0:Str; A1:p_DiskObject): Boolean;
  16.  -54 : PROCEDURE FreeFreeList(A0:p_FreeList);
  17. { *** 2 private Routinen *** }
  18.  -72 : FUNCTION  AddFreeList(A0:p_FreeList; A1:Ptr; A2:Long): Boolean;
  19.  -78 : FUNCTION  GetDiskObject(A0:Str): p_DiskObject;
  20.  -84 : FUNCTION  PutDiskObject(A0:Str; A1:p_DiskObject): Boolean;
  21.  -90 : PROCEDURE FreeDiskObject(A0:p_DiskObject);
  22.  -96 : FUNCTION  FindToolType(A0:Ptr; A1:Str): Str;
  23. -102 : FUNCTION  MatchToolValue(A0,A1:Str): Boolean;
  24. -108 : FUNCTION  BumpRevision(A0,A1:Str): Str;
  25. { *** private Routine *** }
  26. -120 : FUNCTION  GetDefDiskObject(D0:LongInt): p_DiskObject;
  27. -126 : FUNCTION  PutDefDiskObject(A0:p_DiskObject): Boolean;
  28. -132 : FUNCTION  GetDiskObjectNew(A0:Str): p_DiskObject;
  29. -138 : FUNCTION  DeleteDiskObject(A0:Str): Boolean;
  30. END;
  31. {$endif}
  32.