additional methods for DataSetViews.
authortz
Mon, 08 Dec 1997 21:37:46 +0100
changeset 1971 10ccdbb00c85
parent 1970 5b602928ee03
child 1972 c7eac5189bf5
additional methods for DataSetViews.
Color.st
--- a/Color.st	Mon Dec 08 19:20:24 1997 +0100
+++ b/Color.st	Mon Dec 08 21:37:46 1997 +0100
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.2.1 on 21-oct-1997 at 2:56:12 pm'                  !
-
 Object subclass:#Color
 	instanceVariableNames:'red green blue device colorId ditherForm replacementColor
 		writable'
@@ -3433,6 +3431,24 @@
     "Modified: 17.10.1997 / 20:00:25 / cg"
 !
 
+rowBlueByte
+
+    blue isNil ifTrue: [^'mask'].
+    ^self blueByte
+!
+
+rowGreenByte
+
+    green isNil ifTrue: [^'mask'].
+    ^self greenByte
+!
+
+rowRedByte
+
+    red isNil ifTrue: [^'mask'].
+    ^self redByte
+!
+
 saturation 
     "return the saturation (in hue/light/saturation model) in percent [0..100].
      This corresponds to the saturation setting of a color TV"
@@ -4461,6 +4477,6 @@
 !Color class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.106 1997-11-15 13:38:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.107 1997-12-08 20:37:46 tz Exp $'
 ! !
 Color initialize!