--- a/DeviceGraphicsContext.st	Sun Dec 18 21:57:26 2016 +0000
+++ b/DeviceGraphicsContext.st	Thu Dec 29 00:20:56 2016 +0000
@@ -3229,6 +3229,17 @@
     self foreground:oldFg background:background function:oldFun
 !
 
+withPaint:aColor do:aBlock
+    "evaluate aBlock with changed paint color."
+
+    |oldPaint|
+
+    oldPaint := paint.
+    self paint:aColor.
+    aBlock value.
+    self paint:oldPaint
+!
+
 xoring:aBlock
     "evaluate aBlock with function xoring"