136 |
136 |
137 s2 := Slider in:top. |
137 s2 := Slider in:top. |
138 s2 origin:(30@0.0) corner:(50@1.0). |
138 s2 origin:(30@0.0) corner:(50@1.0). |
139 s2 thumbHeight:10. 'percent'. |
139 s2 thumbHeight:10. 'percent'. |
140 s2 model:m; change:#value2:. |
140 s2 model:m; change:#value2:. |
|
141 top open |
|
142 |
|
143 |
|
144 another example: |
|
145 |
|
146 |top redVal greenVal blueVal |
|
147 colorVal upd s1 s2 s3 l| |
|
148 |
|
149 redVal := 0 asValue. |
|
150 greenVal := 0 asValue. |
|
151 blueVal := 0 asValue. |
|
152 |
|
153 upd := [colorVal value:(Color red:redVal value |
|
154 green:greenVal value |
|
155 blue:blueVal value)]. |
|
156 |
|
157 colorVal := (Color red:0 green:0 blue:0) asValue. |
|
158 colorVal onChangeSend:#value to:[l backgroundColor:colorVal value]. |
|
159 |
|
160 redVal onChangeSend:#value to:upd. |
|
161 greenVal onChangeSend:#value to:upd. |
|
162 blueVal onChangeSend:#value to:upd. |
|
163 |
|
164 top := StandardSystemView new extent:200@200. |
|
165 top label:'Color mixer'. |
|
166 |
|
167 s1 := Slider in:top. |
|
168 s1 origin:(0.0@0.0) corner:(20@1.0). |
|
169 s1 thumbHeight:10. 'percent'. |
|
170 s1 model:redVal. |
|
171 |
|
172 s2 := Slider in:top. |
|
173 s2 origin:(30@0.0) corner:(50@1.0). |
|
174 s2 thumbHeight:10. 'percent'. |
|
175 s2 model:greenVal. |
|
176 |
|
177 s3 := Slider in:top. |
|
178 s3 origin:(60@0.0) corner:(80@1.0). |
|
179 s3 thumbHeight:10. 'percent'. |
|
180 s3 model:blueVal. |
|
181 |
|
182 l := Label in:top. |
|
183 l origin:90@0.0 corner:1.0@1.0. |
|
184 l backgroundColor:Color black. |
|
185 |
|
186 top open |
|
187 |
|
188 |
|
189 the same setup, using action blocks: |
|
190 |
|
191 |top red green blue |
|
192 colorVal upd s1 s2 s3 labelModel l| |
|
193 |
|
194 red := green := blue := 0. |
|
195 |
|
196 top := StandardSystemView new extent:200@200. |
|
197 top label:'Color mixer'. |
|
198 |
|
199 s1 := Slider in:top. |
|
200 s1 origin:(0.0@0.0) corner:(20@1.0). |
|
201 s1 thumbHeight:10. 'percent'. |
|
202 s1 action:[:percent | red := percent. |
|
203 l backgroundColor:(Color red:red green:green blue:blue)]. |
|
204 |
|
205 s2 := Slider in:top. |
|
206 s2 origin:(30@0.0) corner:(50@1.0). |
|
207 s2 thumbHeight:10. 'percent'. |
|
208 s2 action:[:percent | green := percent. |
|
209 l backgroundColor:(Color red:red green:green blue:blue)]. |
|
210 |
|
211 s3 := Slider in:top. |
|
212 s3 origin:(60@0.0) corner:(80@1.0). |
|
213 s3 thumbHeight:10. 'percent'. |
|
214 s3 action:[:percent | blue := percent. |
|
215 l backgroundColor:(Color red:red green:green blue:blue)]. |
|
216 |
|
217 l := Label in:top. |
|
218 l origin:90@0.0 corner:1.0@1.0. |
|
219 l backgroundColor:Color black. |
|
220 |
141 top open |
221 top open |
142 " |
222 " |
143 ! ! |
223 ! ! |
144 |
224 |
145 !Slider methodsFor:'private'! |
225 !Slider methodsFor:'private'! |