XftFontDescription.st
changeset 7610 75af52d3f50f
parent 7589 91aab751f507
child 7615 316516094a19
--- a/XftFontDescription.st	Tue Oct 11 18:57:32 2016 +0200
+++ b/XftFontDescription.st	Tue Oct 11 18:58:24 2016 +0200
@@ -1,5 +1,3 @@
-'From Smalltalk/X, Version:7.1.0.0 on 22-09-2016 at 11:18:23'                   !
-
 "{ Package: 'stx:libview' }"
 
 "{ NameSpace: Smalltalk }"
@@ -993,19 +991,19 @@
 !
 
 isFixedWidth
-    "return true, if this is a fixed pitch font (i.e. all characters
-     are of the same width)"
+    "return true, if this is a fixed pitch font
+     (i.e. all characters are of the same width).
+     Also called monospaced fonts"
 
     fixedWidth isNil ifTrue:[
         fontId isNil ifTrue:[
             ^ false     "we don't know yet"
-        ] ifFalse:[
-            "/ take some obvously different chars
-            width := self widthOf:' '.
-            fixedWidth := (self widthOf:'i') == width
-                                and:[(self widthOf:'W') == width
-                                and:[(self widthOf:'.') == width]]
         ].
+        "/ take some obvously different chars
+        width := self widthOf:' '.
+        fixedWidth := (self widthOf:'i') == width
+                            and:[(self widthOf:'W') == width
+                            and:[(self widthOf:'.') == width]]
     ].
     ^ fixedWidth.