--- a/BitmapFont.st	Tue Jul 23 22:33:41 2002 +0200
+++ b/BitmapFont.st	Wed Jul 24 15:43:38 2002 +0200
@@ -478,6 +478,16 @@
     "return true if all of the fonts characters are equal in
      width."
 
+    |w|
+
+    characterBitmaps do:[:glyph | |wHere|
+                                glyph notNil ifTrue:[
+                                    wHere := glyph width.  
+                                    w isNil 
+                                        ifTrue:[ w := wHere ]
+                                        ifFalse:[ w ~~ wHere ifTrue:[^ false]]
+                                ]
+                        ].
     ^ true
 !
 
@@ -549,5 +559,5 @@
 !BitmapFont class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/BitmapFont.st,v 1.5 2002-07-23 20:31:40 mb Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/BitmapFont.st,v 1.6 2002-07-24 13:43:28 mb Exp $'
 ! !