--- a/TranslucentColor.st	Tue Feb 18 18:35:37 2014 +0100
+++ b/TranslucentColor.st	Sat Feb 22 17:23:01 2014 +0100
@@ -54,6 +54,13 @@
 
 !
 
+alphaByte
+    "return the alpha value as byte 0..255,
+     where 0 is completely transparent and 255 is completely opaque"
+
+    ^ alpha 
+!
+
 privateAlpha
     "return the internal alpha value (0..255),
      where 0 is completely transparent and 255 is completely opaque"
@@ -130,5 +137,6 @@
 !TranslucentColor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/TranslucentColor.st,v 1.3 2007-06-06 16:58:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TranslucentColor.st,v 1.4 2014-02-22 16:23:01 cg Exp $'
 ! !
+