--- a/GraphicsMedium.st	Sat Dec 24 14:53:12 2016 +0100
+++ b/GraphicsMedium.st	Sat Dec 24 14:53:35 2016 +0100
@@ -2342,6 +2342,12 @@
     gc withForeground:fgColor function:aFunction do:aBlock
 !
 
+withPaint:aColor do:aBlock
+    "evaluate aBlock with changed paint color."
+
+    gc withPaint:aColor do:aBlock
+!
+
 xoring:aBlock
     "evaluate aBlock with function xoring"