home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / diskfont.lib < prev    next >
Encoding:
Text File  |  1994-07-25  |  869 b   |  23 lines
  1. {$if not def DISKFONT_LIB_H} CONST DISKFONT_LIB_H=0;
  2.  
  3. { **************************************************************
  4.   ** KickPascal-Include-Datei "diskfont.lib" zu Kickstart 3.0 **
  5.   ************************************************************** }
  6.  
  7. {$if not def DOS_DOS_H;incl "dos/dos.h";endif}
  8. {$if not def DISKFONT_DISKFONT_H;incl "diskfont/diskfont.h";endif}
  9.  
  10. VAR DiskFontBase : Ptr;
  11.  
  12. LIBRARY DiskFontBase :
  13.  -30 : FUNCTION OpenDiskFont ( A0:p_TextAttr): p_TextFont;
  14.  -36 : FUNCTION AvailFonts ( A0:Str, D0:LongInt, D1:LongInt) : LongInt;
  15. { **** Routinen ab V34 / Release 1.3  **** }
  16.  -42 : FUNCTION NewFontContents(A0:BPTR, A1:Str): p_FontContentsHeader;
  17.  -48 : PROCEDURE DisposeFontContents(A1:p_FontContentsHeader);
  18. { **** Routinen ab V36 / Release 2.0  **** }
  19.  -54 : FUNCTION NewScaledDiskFont(A0:p_TextFont, A1:p_TextAttr): p_DiskFontHeader;
  20. END;
  21.  
  22. {$endif}
  23.