CairoGraphicsContext.st
changeset 54 209a2b0b721a
parent 51 5293f2b851ab
child 57 2c9a342e1f2a
--- a/CairoGraphicsContext.st	Sun Feb 28 16:36:53 2016 +0000
+++ b/CairoGraphicsContext.st	Sun Feb 28 16:57:24 2016 +0000
@@ -296,8 +296,8 @@
         cr stroke.
     ]
 
-    "Modified: / 18-02-2016 / 22:21:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 21-02-2016 / 15:34:34 / jv"
+    "Modified: / 28-02-2016 / 16:41:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 displayString:string from:index1 to:index2 x:x y:y opaque:opaqueArg maxWidth:maxWidth
@@ -411,8 +411,13 @@
         self initGC.
     ].
     (w > 0 and:[h > 0]) ifTrue:[
+        | savedWidth |
+
+        savedWidth := cr lineWidth.
+        cr lineWidth: 1.  
         cr rectangleX: x y: y width: w height: h. 
         cr strokeAndPreserve.
+        cr lineWidth: savedWidth.  
         cr fill.
     ].
 
@@ -424,7 +429,7 @@
 "/    cr restore.
 
     "Modified: / 21-02-2016 / 15:34:56 / jv"
-    "Modified: / 24-02-2016 / 07:09:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 28-02-2016 / 16:52:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !CairoGraphicsContext methodsFor:'bit blitting'!