equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
|
13 |
|
14 "{ Package: 'stx:libview2' }" |
12 "{ Package: 'stx:libview2' }" |
15 |
13 |
16 ValueModel subclass:#BlockValue |
14 ValueModel subclass:#BlockValue |
17 instanceVariableNames:'cachedValue arguments block' |
15 instanceVariableNames:'cachedValue arguments block' |
18 classVariableNames:'NeverComputed' |
16 classVariableNames:'NeverComputed' |
336 arguments notNil ifTrue:[ |
334 arguments notNil ifTrue:[ |
337 self release |
335 self release |
338 ]. |
336 ]. |
339 arguments := Array with:anArgumentCollection. |
337 arguments := Array with:anArgumentCollection. |
340 anArgumentCollection do:[:arg | |
338 anArgumentCollection do:[:arg | |
341 arg addDependent:self |
339 arg notNil ifTrue:[ |
|
340 arg addDependent:self |
|
341 ]. |
342 ]. |
342 ]. |
343 cachedValue := NeverComputed. |
343 cachedValue := NeverComputed. |
344 |
344 |
345 "Modified: 22.1.1997 / 19:08:51 / cg" |
345 "Modified: 22.1.1997 / 19:08:51 / cg" |
346 "Created: 22.1.1997 / 19:22:13 / cg" |
346 "Created: 22.1.1997 / 19:22:13 / cg" |
355 arguments notNil ifTrue:[ |
355 arguments notNil ifTrue:[ |
356 self release |
356 self release |
357 ]. |
357 ]. |
358 arguments := aCollectionOfArguments. |
358 arguments := aCollectionOfArguments. |
359 arguments do:[:arg | |
359 arguments do:[:arg | |
360 arg addDependent:self |
360 "arg maybe some constant..." |
|
361 arg notNil ifTrue:[ |
|
362 arg addDependent:self |
|
363 ]. |
361 ]. |
364 ]. |
362 cachedValue := NeverComputed. |
365 cachedValue := NeverComputed. |
363 |
366 |
364 "Created: 16.12.1995 / 19:21:41 / cg" |
367 "Created: 16.12.1995 / 19:21:41 / cg" |
365 "Modified: 22.1.1997 / 19:08:51 / cg" |
368 "Modified: 22.1.1997 / 19:08:51 / cg" |
478 ! ! |
481 ! ! |
479 |
482 |
480 !BlockValue class methodsFor:'documentation'! |
483 !BlockValue class methodsFor:'documentation'! |
481 |
484 |
482 version |
485 version |
483 ^ '$Header: /cvs/stx/stx/libview2/BlockValue.st,v 1.21 2003-09-12 14:00:17 cg Exp $' |
486 ^ '$Header: /cvs/stx/stx/libview2/BlockValue.st,v 1.22 2008-08-11 05:45:12 stefan Exp $' |
484 ! ! |
487 ! ! |
485 |
488 |
486 BlockValue initialize! |
489 BlockValue initialize! |