home *** CD-ROM | disk | FTP | other *** search
/ CLIX - Fazer Clix Custa Nix / CLIX-CD.cdr / mac / lib / Mac / Fonts.pm < prev    next >
Encoding:
Perl POD Document  |  1998-04-13  |  2.3 KB  |  130 lines  |  [TEXT/McPL]
  1. =head1 NAME
  2.  
  3. Mac::Fonts - Macintosh Toolbox Interface to Font Manager
  4.  
  5. =head1 SYNOPSIS
  6.  
  7.  
  8. =head1 DESCRIPTION
  9.  
  10. Access to Inside Macintosh is essential for proper use of these functions.
  11. Explanations of terms, processes and procedures are provided there.
  12. Any attempt to use these functions without guidance can cause severe errors in 
  13. your machine, including corruption of data. B<You have been warned.>
  14.  
  15. =cut
  16.     
  17. use strict;
  18.     
  19. package Mac::Fonts;
  20.  
  21. BEGIN {
  22.     use Exporter    ();
  23.     use DynaLoader ();
  24.     
  25.     use vars qw(@ISA @EXPORT @EXPORT_OK);
  26.     
  27.     @ISA = qw(Exporter DynaLoader);
  28.     @EXPORT = qw(
  29.         GetFontName
  30.         GetFNum
  31.         RealFont
  32.         SetFScaleDisable
  33.         SetFractEnable
  34.         GetDefFontSize
  35.         IsOutline
  36.         SetOutlinePreferred
  37.         GetOutlinePreferred
  38.         SetPreserveGlyph
  39.         GetPreserveGlyph
  40.         GetSysFont
  41.         GetAppFont
  42.         
  43.         systemFont
  44.         applFont
  45.         newYork
  46.         geneva
  47.         monaco
  48.         helvetica
  49.         courier
  50.         symbol
  51.         commandMark
  52.         checkMark
  53.         diamondMark
  54.         appleMark
  55.     );
  56.     @EXPORT_OK = qw(
  57.         times
  58.     );
  59. }
  60.  
  61. bootstrap Mac::Fonts;
  62.  
  63. =head2 Constants
  64.  
  65. =over 4
  66.  
  67. =item systemFont
  68.  
  69. =item applFont
  70.  
  71. =item newYork
  72.  
  73. =item geneva
  74.  
  75. =item monaco
  76.  
  77. =item times
  78.  
  79. =item helvetica
  80.  
  81. =item courier
  82.  
  83. =item symbol
  84.  
  85. Font IDs.
  86.  
  87. =cut
  88. sub systemFont ()                  {          0; }
  89. sub applFont ()                    {          1; }
  90. sub newYork ()                     {          2; }
  91. sub geneva ()                      {          3; }
  92. sub monaco ()                      {          4; }
  93. sub times ()                       {         20; }
  94. sub helvetica ()                   {         21; }
  95. sub courier ()                     {         22; }
  96. sub symbol ()                      {         23; }
  97.  
  98.  
  99. =item commandMark
  100.  
  101. =item checkMark
  102.  
  103. =item diamondMark
  104.  
  105. =item appleMark
  106.  
  107. Menu mark characters available in the system font.
  108.  
  109. =cut
  110. sub commandMark ()                 {         17; }
  111. sub checkMark ()                   {         18; }
  112. sub diamondMark ()                 {         19; }
  113. sub appleMark ()                   {         20; }
  114.  
  115. =back
  116.  
  117. =include Fonts.xs
  118.  
  119. =head1 BUGS/LIMITATIONS
  120.  
  121. =head1 FILES
  122.  
  123. =head1 AUTHOR(S)
  124.  
  125. Matthias Ulrich Neeracher <neeri@iis.ee.ethz.ch> 
  126.  
  127. =cut
  128.  
  129. __END__
  130.