--- a/TranslucentColor.st	Thu Oct 07 00:26:32 1999 +0200
+++ b/TranslucentColor.st	Thu Oct 07 00:30:52 1999 +0200
@@ -54,6 +54,15 @@
 
 !
 
+privateAlpha
+    "return the internal alpha value (0..255),
+     where 0 is completely transparent and 255 is completely opaque"
+
+    ^ alpha 
+
+
+!
+
 setAlphaByte:aByteValuedInteger
     "set the alpha value (0..255),
      where 0 is completely transparent and 255 is completely opaque"
@@ -105,6 +114,13 @@
 
 !
 
+isTranslucentColor
+    "return true, if I represent a translucent color;
+     This means: self isTranslucent, but isTransparent not"
+
+    ^ alpha > 0
+!
+
 isTransparent
     "return true, if I represent a completely transparent color"
 
@@ -114,5 +130,5 @@
 !TranslucentColor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/TranslucentColor.st,v 1.1 1999-10-06 16:06:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TranslucentColor.st,v 1.2 1999-10-06 22:30:52 cg Exp $'
 ! !