Font.st
changeset 3213 78add46c0f4b
parent 3060 9b16d027bf7b
child 3415 5318d7f58d35
equal deleted inserted replaced
3212:bdefd01df684 3213:78add46c0f4b
     7  inclusion of the above copyright notice.   This software may not
     7  inclusion of the above copyright notice.   This software may not
     8  be provided or otherwise made available to, or used by, any
     8  be provided or otherwise made available to, or used by, any
     9  other person.  No title to or ownership of the software is
     9  other person.  No title to or ownership of the software is
    10  hereby transferred.
    10  hereby transferred.
    11 "
    11 "
       
    12 
       
    13 "{ Package: 'stx:libview' }"
    12 
    14 
    13 FontDescription subclass:#Font
    15 FontDescription subclass:#Font
    14 	instanceVariableNames:'device fontId replacementFont ascent descent width isFixedWidth
    16 	instanceVariableNames:'device fontId replacementFont ascent descent width isFixedWidth
    15 		minWidth maxWidth maxAscent maxDescent'
    17 		minWidth maxWidth maxAscent maxDescent'
    16 	classVariableNames:'Replacements'
    18 	classVariableNames:'Replacements'
   203     "initialize the font tracking array"
   205     "initialize the font tracking array"
   204 
   206 
   205     "
   207     "
   206      replacement handling is not yet finished
   208      replacement handling is not yet finished
   207     "
   209     "
   208     Replacements := Dictionary new.
   210     Replacements isNil ifTrue:[
   209 
   211         Replacements := Dictionary new.
   210     Replacements at:'clean'                  put:'courier'.
   212 
   211     Replacements at:'fixed'                  put:'courier'.
   213         Replacements at:'clean'                  put:'courier'.
   212     Replacements at:'new century schoolbook' put:'times'.
   214         Replacements at:'fixed'                  put:'courier'.
   213     Replacements at:'lucida'                 put:'helvetica'.
   215         Replacements at:'new century schoolbook' put:'times'.
   214     Replacements at:'lucidabright'           put:'helvetica'.
   216         Replacements at:'lucida'                 put:'helvetica'.
   215     Replacements at:'lucidatypewriter'       put:'courier'.
   217         Replacements at:'lucidabright'           put:'helvetica'.
   216     Replacements at:'charter'                put:'times'.
   218         Replacements at:'lucidatypewriter'       put:'courier'.
   217     Replacements at:'terminal'               put:'courier'.
   219         Replacements at:'charter'                put:'times'.
       
   220         Replacements at:'terminal'               put:'courier'.
       
   221     ]
   218 ! !
   222 ! !
   219 
   223 
   220 !Font class methodsFor:'instance creation'!
   224 !Font class methodsFor:'instance creation'!
   221 
   225 
   222 family:familyString face:faceString style:styleString size:sizeNum encoding:encodingSym
   226 family:familyString face:faceString style:styleString size:sizeNum encoding:encodingSym
  1108 ! !
  1112 ! !
  1109 
  1113 
  1110 !Font class methodsFor:'documentation'!
  1114 !Font class methodsFor:'documentation'!
  1111 
  1115 
  1112 version
  1116 version
  1113     ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.75 1999-12-02 16:08:33 cg Exp $'
  1117     ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.76 2000-07-02 12:53:08 cg Exp $'
  1114 ! !
  1118 ! !
  1115 Font initialize!
  1119 Font initialize!