--- a/DeviceWorkstation.st	Tue Apr 11 01:42:23 2017 +0200
+++ b/DeviceWorkstation.st	Tue Apr 11 01:42:55 2017 +0200
@@ -2369,6 +2369,19 @@
     ^ Array with:info
 !
 
+supportsAlphaChannel
+    "return true, if this workstation supports alpha information.
+     Currently none does"    
+
+    ^ false
+
+    "
+     Display supportsAlphaChannel
+    "
+
+    "Created: / 11-04-2017 / 01:42:38 / cg"
+!
+
 supportsAnyViewBackgroundPixmaps
     "return true, if the device allows any pixmap as
      viewBackground. False returned here - redefined in some