--- a/FontDescription.st	Mon Feb 04 11:34:58 2008 +0100
+++ b/FontDescription.st	Mon Feb 04 13:25:54 2008 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libview' }"
 
 Object subclass:#FontDescription
@@ -530,6 +529,15 @@
     ^ face
 !
 
+face:aString
+    "set the face, a string such as 'bold'"
+
+    self assert:(self fontId isNil). "/ cannot change an instanciated font
+    face := aString
+
+    "Created: 25.1.1997 / 03:12:12 / cg"
+!
+
 family
     "return the family, a string"
 
@@ -539,6 +547,7 @@
 family:aString
     "set the family, a string"
 
+    self assert:(self fontId isNil). "/ cannot change an instanciated font
     family := aString
 
     "Created: 25.1.1997 / 03:12:12 / cg"
@@ -547,6 +556,7 @@
 family:familyString face:faceString style:styleString size:sizeNum encoding:encodingString
     "set the instance values"
 
+    self assert:(self fontId isNil). "/ cannot change an instanciated font
     family := familyString asSymbol.
     (faceString notNil and:[faceString notEmpty]) ifTrue:[
         face := faceString asSymbol.
@@ -1156,7 +1166,7 @@
 !FontDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/FontDescription.st,v 1.62 2006-09-27 11:07:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/FontDescription.st,v 1.63 2008-02-04 12:25:54 cg Exp $'
 ! !
 
 FontDescription initialize!