--- 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.