--- a/TranslucentColor.st	Wed Jun 06 18:57:53 2007 +0200
+++ b/TranslucentColor.st	Wed Jun 06 18:58:02 2007 +0200
@@ -1,3 +1,5 @@
+"{ Package: 'stx:libview' }"
+
 Color subclass:#TranslucentColor
 	instanceVariableNames:'alpha'
 	classVariableNames:''
@@ -15,10 +17,8 @@
 
     [Instance variables:]
 
-      alpha           <Integer>       the alpha value (0..255)
+      alpha           <Integer>       the internal alpha value (0..255)
 "
-
-
 ! !
 
 !TranslucentColor class methodsFor:'instance creation'!
@@ -130,5 +130,5 @@
 !TranslucentColor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/TranslucentColor.st,v 1.2 1999-10-06 22:30:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TranslucentColor.st,v 1.3 2007-06-06 16:58:02 cg Exp $'
 ! !