home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d1xx / d138 / modulatools.lha / ModulaTools / FontTest / FontTest.mod < prev    next >
Encoding:
Text File  |  1988-03-20  |  1.3 KB  |  59 lines
  1. MODULE FontTest;
  2.  
  3. FROM DiskFontLibrary IMPORT AvailFont, AvailFontsHeader, AvailFontsHeaderPtr;
  4. FROM FontTools       IMPORT GetAndSortAllFonts, ReturnFontResourcesToSystem,
  5.                             FontBuffer;
  6. FROM InOut           IMPORT WriteCard, WriteString, WriteLn;
  7. FROM Storage         IMPORT DestroyHeap;
  8. FROM Strings         IMPORT String;
  9. FROM Text            IMPORT TextAttr;
  10.  
  11. TYPE
  12.    StringPtr = POINTER TO String;
  13.  
  14. VAR
  15.    FontName : StringPtr;
  16.  
  17.  
  18. (* $T- disable range checking *)
  19.  
  20.    PROCEDURE TestFonts;
  21.  
  22.    VAR
  23.       i : CARDINAL;
  24.  
  25.    BEGIN
  26.  
  27.       IF GetAndSortAllFonts() THEN
  28.  
  29.          WriteLn;
  30.          FOR i := 0 TO FontBuffer^.afhNumEntries-1 DO
  31.             WITH FontBuffer^.afhAvailFonts[i].afAttr DO
  32.                FontName := taName;
  33.                WriteCard(taYSize,4);   WriteString("    "); 
  34.                WriteString(FontName^); WriteLn;
  35.             END; (* WITH afhAvailFonts[i] *)
  36.          END; (* FOR i *)
  37.          WriteLn; 
  38.  
  39.          ReturnFontResourcesToSystem();
  40.  
  41.       ELSE
  42.          WriteString("Couldn't get fonts..."); WriteLn;
  43.       END; (* IF GetAndSortAllFiles *)
  44.  
  45.    END TestFonts;
  46.  
  47. (* $T+ enable range checking *)
  48.  
  49.  
  50. BEGIN
  51.  
  52.    WriteLn; WriteString("Looking for fonts..."); WriteLn; WriteLn;
  53.     
  54.    TestFonts;
  55.  
  56.    DestroyHeap;
  57.  
  58. END FontTest.
  59.