--- a/DeviceWorkstation.st	Tue Apr 11 16:20:41 2017 +0200
+++ b/DeviceWorkstation.st	Tue Apr 11 16:37:40 2017 +0200
@@ -5895,6 +5895,15 @@
     ^ self subclassResponsibility
 !
 
+setForeground:fgColorIndex background:bgColorIndex function:blitOpSymbol in:aGCId
+    "set foreground and background color-indices and blit-function to be drawn with"
+
+    self setForeground:fgColorIndex background:bgColorIndex in:aGCId.
+    self setFunction:blitOpSymbol in:aGCId.
+
+    "Created: / 11-04-2017 / 16:37:19 / cg"
+!
+
 setForeground:fgColorIndex background:bgColorIndex in:aGCId
     "set foreground and background color-indices to be drawn with"