CairoGraphicsContext.st
changeset 62 a1280a796155
parent 60 9bc47734215d
child 64 6e9458bb0697
--- a/CairoGraphicsContext.st	Fri Mar 04 15:35:21 2016 +0000
+++ b/CairoGraphicsContext.st	Sat Mar 05 20:22:21 2016 +0000
@@ -184,6 +184,18 @@
     "Created: / 10-07-2008 / 11:18:13 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 23-04-2009 / 17:31:33 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 18-02-2016 / 22:56:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+paint:fgColor on:bgColor
+    "Set the paint and background-paint color.
+     The bg-paint is used in opaque-draw operations"
+
+    super paint: fgColor on: bgColor.
+    cr notNil ifTrue:[ 
+        cr source: paint.        
+    ].
+
+    "Created: / 05-03-2016 / 16:35:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !CairoGraphicsContext methodsFor:'accessing-transformation'!