--- a/FontDescription.st	Tue Jan 06 13:11:21 2015 +0100
+++ b/FontDescription.st	Thu Jan 08 00:09:42 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libview' }"
 
+"{ NameSpace: Smalltalk }"
+
 Object subclass:#FontDescription
 	instanceVariableNames:'family face style size encoding manufacturer name flags masks
 		sizeUnit pixelSize'
@@ -850,6 +852,16 @@
     masks := something.
 !
 
+name
+    "the name (typically filename) if known"
+
+    ^ name
+!
+
+name:aString
+    name := aString.
+!
+
 sizeUnit
     "currently returns one of #pt or #px (internal use only)"
 
@@ -1730,11 +1742,11 @@
 !FontDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/FontDescription.st,v 1.97 2014-11-27 00:10:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/FontDescription.st,v 1.98 2015-01-07 23:09:42 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/FontDescription.st,v 1.97 2014-11-27 00:10:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/FontDescription.st,v 1.98 2015-01-07 23:09:42 cg Exp $'
 ! !