--- a/Font.st	Thu Oct 01 11:12:19 2015 +0200
+++ b/Font.st	Thu Oct 01 14:00:15 2015 +0200
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libview' }"
 
+"{ NameSpace: Smalltalk }"
+
 FontDescription subclass:#Font
 	instanceVariableNames:'device fontId replacementFont ascent descent width isFixedWidth
 		minWidth maxWidth maxAscent maxDescent minCode maxCode direction'
@@ -859,6 +861,21 @@
 	^ replacementFont isFixedWidth
     ].
     ^ isFixedWidth
+!
+
+maxWidth
+    "return the width of the widest character;
+     if the receiver is a fixed width font its the width of every character.
+     The receiver must be associated to a device,
+     for this query to be legal."
+
+    device isNil ifTrue:[
+	self errorNoDevice
+    ].
+    replacementFont notNil ifTrue:[
+	^ replacementFont maxWidth
+    ].
+    ^ maxWidth
 ! !
 
 !Font methodsFor:'queries-dimensions'!
@@ -1051,21 +1068,6 @@
     ^ maxDescent + maxAscent.
 !
 
-maxWidth
-    "return the width of the widest character;
-     if the receiver is a fixed width font its the width of every character.
-     The receiver must be associated to a device,
-     for this query to be legal."
-
-    device isNil ifTrue:[
-	self errorNoDevice
-    ].
-    replacementFont notNil ifTrue:[
-	^ replacementFont maxWidth
-    ].
-    ^ maxWidth
-!
-
 minWidth
     "return the width of the smallest character;
      if the receiver is a fixed width font its the width of every character.
@@ -1339,11 +1341,11 @@
 !Font class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.138 2014-07-09 01:38:27 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.138 2014-07-09 01:38:27 cg Exp $'
+    ^ '$Header$'
 ! !