--- a/FontDescription.st Sat Jan 25 00:21:21 1997 +0100
+++ b/FontDescription.st Sat Jan 25 03:02:40 1997 +0100
@@ -11,16 +11,15 @@
"
Object subclass:#FontDescription
- instanceVariableNames:'family face style size encoding
- manufacturer name
- flags masks pixelSize'
+ instanceVariableNames:'family face style size encoding manufacturer name flags masks
+ pixelSize'
classVariableNames:'BoldnessMask FixedFlag ItalicFlag OutlineFlag SerifFlag
- ShadowFlag StrikeoutFlag UnderlineFlag'
+ ShadowFlag StrikeoutFlag UnderlineFlag'
poolDictionaries:''
category:'Graphics-Support'
!
-!FontDescription class methodsFor:'documentation'!
+!FontDescription class methodsFor:'documentation'!
copyright
"
@@ -92,7 +91,7 @@
UnderlineFlag := 2r1000000000.
! !
-!FontDescription class methodsFor:'instance creation'!
+!FontDescription class methodsFor:'instance creation'!
family:familyString
"returns a font for given family and default (12pt) size
@@ -381,20 +380,35 @@
bold
"return true, if the receiver is a bold font -
- for st-80 compatibility"
+ Added for st-80 compatibility"
- ^ face = 'bold'
+ ^ face = 'bold'
+
+ "Modified: 25.1.1997 / 03:02:25 / cg"
!
boldness
"return the boldness of the characters in this font 0 .. 1 -
- for st-80 compatibility"
+ Added for st-80 compatibility"
style = 'roman' ifTrue:[^ 0.5].
style = 'normal' ifTrue:[^ 0.5].
style = 'bold' ifTrue:[^ 0.75].
style = 'light' ifTrue:[^ 0.25].
^ 0.5
+
+ "Modified: 25.1.1997 / 03:02:19 / cg"
+!
+
+color
+ "return the default color in which this font is to be rendered.
+ Added for st-80 compatibility.
+ For now always black."
+
+ ^ Color black
+
+ "Created: 25.1.1997 / 02:59:15 / cg"
+ "Modified: 25.1.1997 / 03:02:14 / cg"
!
fullName
@@ -405,25 +419,43 @@
italic
"return true if this is an italic font -
- for st-80 compatibility"
+ Added for st-80 compatibility
+ Mostly false here"
face = 'italic' ifTrue:[^ true].
face = 'obligue' ifTrue:[^ true].
^ false
+
+ "Modified: 25.1.1997 / 03:01:57 / cg"
!
serif
- "return true, if this font has serifs"
+ "return true, if this font has serifs.
+ Added for st-80 compatibility
+ Mostly false returned here."
- "this should be done in a better way ..."
+ "/ this should be done in a better way ...
family = 'Times' ifTrue:[^ true].
family = 'times' ifTrue:[^ true].
^ false.
+
+ "Modified: 25.1.1997 / 03:01:40 / cg"
!
species
^ Font
+!
+
+underline
+ "return true if this is an underlined font -
+ Added for st-80 compatibility
+ (always false here)"
+
+ ^ false
+
+ "Created: 25.1.1997 / 02:58:30 / cg"
+ "Modified: 25.1.1997 / 03:01:12 / cg"
! !
!FontDescription methodsFor:'queries-encoding'!
@@ -458,8 +490,9 @@
"Modified: 20.4.1996 / 23:20:30 / cg"
! !
-!FontDescription class methodsFor:'documentation'!
+!FontDescription class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/FontDescription.st,v 1.16 1997-01-23 15:34:26 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/FontDescription.st,v 1.17 1997-01-25 02:02:40 cg Exp $'
! !
+FontDescription initialize!