diff -r 778fdd997e45 -r 9c3461bb0232 FontDescription.st
--- 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!