--- a/DeviceGraphicsContext.st	Fri Dec 23 13:19:00 2016 +0100
+++ b/DeviceGraphicsContext.st	Sat Dec 24 14:53:12 2016 +0100
@@ -3224,6 +3224,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"