equal
deleted
inserted
replaced
12 |
12 |
13 "{ Package: 'stx:libview' }" |
13 "{ Package: 'stx:libview' }" |
14 |
14 |
15 SimpleView subclass:#View |
15 SimpleView subclass:#View |
16 instanceVariableNames:'model aspectMsg changeMsg menuMsg menuHolder menuPerformer |
16 instanceVariableNames:'model aspectMsg changeMsg menuMsg menuHolder menuPerformer |
17 visibilityChannel enableChannel foregroundChannel |
17 enableChannel foregroundChannel backgroundChannel' |
18 backgroundChannel' |
|
19 classVariableNames:'' |
18 classVariableNames:'' |
20 poolDictionaries:'' |
19 poolDictionaries:'' |
21 category:'Views-Basic' |
20 category:'Views-Basic' |
22 ! |
21 ! |
23 |
22 |
284 |
283 |
285 setVisibilityChannel:aValueHolder |
284 setVisibilityChannel:aValueHolder |
286 "set the valueHolder, which holds the visible boolean value" |
285 "set the valueHolder, which holds the visible boolean value" |
287 |
286 |
288 visibilityChannel := aValueHolder. |
287 visibilityChannel := aValueHolder. |
289 |
|
290 " |
|
291 |v h| |
|
292 |
|
293 v := View new. |
|
294 v visibilityChannel:(h := ValueHolder with:true). |
|
295 v open. |
|
296 Delay waitForSeconds:2. |
|
297 h value:false. |
|
298 Delay waitForSeconds:2. |
|
299 h value:true. |
|
300 Delay waitForSeconds:2. |
|
301 " |
|
302 |
|
303 "Created: / 14.1.1998 / 17:11:15 / stefan" |
|
304 "Modified: / 14.1.1998 / 17:33:40 / stefan" |
|
305 ! |
|
306 |
|
307 visibilityChannel |
|
308 "return a valueHolder for visible/invisible" |
|
309 |
|
310 ^ visibilityChannel |
|
311 |
|
312 "Modified: / 30.3.1999 / 13:49:56 / stefan" |
|
313 ! |
|
314 |
|
315 visibilityChannel:aValueHolder |
|
316 "set the valueHolder, which holds the visible boolean value" |
|
317 |
|
318 |prev| |
|
319 |
|
320 prev := visibilityChannel. |
|
321 visibilityChannel := aValueHolder. |
|
322 self setupChannel:aValueHolder for:#visibilityStateChanged withOld:prev |
|
323 |
288 |
324 " |
289 " |
325 |v h| |
290 |v h| |
326 |
291 |
327 v := View new. |
292 v := View new. |
786 ! ! |
751 ! ! |
787 |
752 |
788 !View class methodsFor:'documentation'! |
753 !View class methodsFor:'documentation'! |
789 |
754 |
790 version |
755 version |
791 ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.71 2000-10-31 12:39:19 cg Exp $' |
756 ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.72 2000-11-07 13:01:03 cg Exp $' |
792 ! ! |
757 ! ! |