44 this class was implemented using protocol information |
44 this class was implemented using protocol information |
45 from alpha testers - it may not be complete or compatible to |
45 from alpha testers - it may not be complete or compatible to |
46 the corresponding ST-80 class. |
46 the corresponding ST-80 class. |
47 If you encounter any incompatibilities, please forward a note |
47 If you encounter any incompatibilities, please forward a note |
48 describing the incompatibility verbal (i.e. no code) to the ST/X team. |
48 describing the incompatibility verbal (i.e. no code) to the ST/X team. |
|
49 |
|
50 [see also:] |
|
51 CodingExamples_GUI::BufferedValueHolderDemo |
49 |
52 |
50 [author:] |
53 [author:] |
51 Claus Gittinger |
54 Claus Gittinger |
52 " |
55 " |
53 ! |
56 ! |
169 |
172 |
170 !BufferedValueHolder methodsFor:'change & update'! |
173 !BufferedValueHolder methodsFor:'change & update'! |
171 |
174 |
172 update:something with:aParameter from:changedObject |
175 update:something with:aParameter from:changedObject |
173 changedObject == triggerChannel ifTrue:[ |
176 changedObject == triggerChannel ifTrue:[ |
174 triggerChannel value == true ifTrue:[ |
177 triggerChannel value == true ifTrue:[ |
175 " |
178 " |
176 now, store the buffered value into the subject |
179 now, store the buffered value into the subject |
177 " |
180 " |
178 subject value:bufferedValue. |
181 subject value:bufferedValue. |
179 ^ self |
182 ^ self |
180 ]. |
183 ]. |
181 triggerChannel value == false ifTrue:[ |
184 triggerChannel value == false ifTrue:[ |
182 " |
185 " |
183 cancel: flush my buffered value |
186 cancel: flush my buffered value |
184 " |
187 " |
185 bufferedValue := NotYetAssigned. |
188 bufferedValue := NotYetAssigned. |
186 ]. |
189 ]. |
187 self notifyChange:#value. |
190 self changed:#value. |
188 ^ self |
191 "/ self notifyChange:#value. |
|
192 ^ self |
189 ]. |
193 ]. |
190 changedObject == subject ifTrue:[ |
194 changedObject == subject ifTrue:[ |
191 bufferedValue := NotYetAssigned. |
195 bufferedValue := NotYetAssigned. |
192 self notifyChange:#value. |
196 self changed:#value. |
193 ^ self |
197 "/ self notifyChange:#value. |
194 ]. |
198 ^ self |
|
199 ]. |
|
200 |
|
201 "Modified: / 30.10.1997 / 05:01:30 / cg" |
195 ! ! |
202 ! ! |
196 |
203 |
197 !BufferedValueHolder methodsFor:'initialization'! |
204 !BufferedValueHolder methodsFor:'initialization'! |
198 |
205 |
199 initialize |
206 initialize |