--- a/WinWorkstation.st	Mon Nov 08 14:46:15 2010 +0100
+++ b/WinWorkstation.st	Mon Nov 08 14:50:25 2010 +0100
@@ -12663,27 +12663,36 @@
 !
 
 fontDescriptionFromLogicalFontInfoArray:anInfoArray
-    |fntDescr family face style logicalSize pointSize encoding|
+    |fntDescr family face style logicalSize pointSize encoding outQuality|
 
     family := anInfoArray at:16.
     face   := anInfoArray at:6.
     style  := anInfoArray at:15.
     logicalSize   := anInfoArray at:1.
     encoding := anInfoArray at:17.
+    outQuality := anInfoArray at:13.
 
     logicalSize := logicalSize abs.
     "/ convert from device to point size
     pointSize := (logicalSize / self getLogicalPixelSizeY * 72.0).
 
     fntDescr := FontDescription
-		    family:family
-		    face:face
-		    style:style
-		    size:pointSize
-		    sizeUnit:#pt
-		    encoding:encoding.
+                    family:family
+                    face:face
+                    style:style
+                    size:pointSize
+                    sizeUnit:#pt
+                    encoding:encoding.
     fntDescr setPixelSize:logicalSize.
+
+    UserPreferences current workAroundRenderingBugOnVista ifTrue:[
+        fntDescr isFixedWidth ifFalse:[
+            fntDescr hasOverlappingCharacters:true.
+        ]
+    ].
     ^ fntDescr.
+
+    "Modified: / 08-11-2010 / 14:49:26 / cg"
 !
 
 fontMetricsOf:fontId
@@ -18930,11 +18939,11 @@
 !WinWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.442 2010-10-26 15:30:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.443 2010-11-08 13:50:25 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.442 2010-10-26 15:30:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.443 2010-11-08 13:50:25 cg Exp $'
 ! !
 
 WinWorkstation initialize!