--- 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'!