additional methods for DataSetViews.
--- 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!