--- a/Slider.st Fri May 19 01:27:31 1995 +0200
+++ b/Slider.st Tue Jun 06 06:19:07 1995 +0200
@@ -23,7 +23,7 @@
COPYRIGHT (c) 1992 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libwidg2/Slider.st,v 1.9 1995-05-03 00:42:57 claus Exp $
+$Header: /cvs/stx/stx/libwidg2/Slider.st,v 1.10 1995-06-06 04:17:49 claus Exp $
'!
!Slider class methodsFor:'documentation'!
@@ -44,7 +44,7 @@
version
"
-$Header: /cvs/stx/stx/libwidg2/Slider.st,v 1.9 1995-05-03 00:42:57 claus Exp $
+$Header: /cvs/stx/stx/libwidg2/Slider.st,v 1.10 1995-06-06 04:17:49 claus Exp $
"
!
@@ -139,6 +139,86 @@
s2 thumbHeight:10. 'percent'.
s2 model:m; change:#value2:.
top open
+
+
+ another example:
+
+ |top redVal greenVal blueVal
+ colorVal upd s1 s2 s3 l|
+
+ redVal := 0 asValue.
+ greenVal := 0 asValue.
+ blueVal := 0 asValue.
+
+ upd := [colorVal value:(Color red:redVal value
+ green:greenVal value
+ blue:blueVal value)].
+
+ colorVal := (Color red:0 green:0 blue:0) asValue.
+ colorVal onChangeSend:#value to:[l backgroundColor:colorVal value].
+
+ redVal onChangeSend:#value to:upd.
+ greenVal onChangeSend:#value to:upd.
+ blueVal onChangeSend:#value to:upd.
+
+ top := StandardSystemView new extent:200@200.
+ top label:'Color mixer'.
+
+ s1 := Slider in:top.
+ s1 origin:(0.0@0.0) corner:(20@1.0).
+ s1 thumbHeight:10. 'percent'.
+ s1 model:redVal.
+
+ s2 := Slider in:top.
+ s2 origin:(30@0.0) corner:(50@1.0).
+ s2 thumbHeight:10. 'percent'.
+ s2 model:greenVal.
+
+ s3 := Slider in:top.
+ s3 origin:(60@0.0) corner:(80@1.0).
+ s3 thumbHeight:10. 'percent'.
+ s3 model:blueVal.
+
+ l := Label in:top.
+ l origin:90@0.0 corner:1.0@1.0.
+ l backgroundColor:Color black.
+
+ top open
+
+
+ the same setup, using action blocks:
+
+ |top red green blue
+ colorVal upd s1 s2 s3 labelModel l|
+
+ red := green := blue := 0.
+
+ top := StandardSystemView new extent:200@200.
+ top label:'Color mixer'.
+
+ s1 := Slider in:top.
+ s1 origin:(0.0@0.0) corner:(20@1.0).
+ s1 thumbHeight:10. 'percent'.
+ s1 action:[:percent | red := percent.
+ l backgroundColor:(Color red:red green:green blue:blue)].
+
+ s2 := Slider in:top.
+ s2 origin:(30@0.0) corner:(50@1.0).
+ s2 thumbHeight:10. 'percent'.
+ s2 action:[:percent | green := percent.
+ l backgroundColor:(Color red:red green:green blue:blue)].
+
+ s3 := Slider in:top.
+ s3 origin:(60@0.0) corner:(80@1.0).
+ s3 thumbHeight:10. 'percent'.
+ s3 action:[:percent | blue := percent.
+ l backgroundColor:(Color red:red green:green blue:blue)].
+
+ l := Label in:top.
+ l origin:90@0.0 corner:1.0@1.0.
+ l backgroundColor:Color black.
+
+ top open
"
! !