equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1995 by Claus Gittinger |
4 COPYRIGHT (c) 1995 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
8 be provided or otherwise made available to, or used by, any |
10 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
11 other person. No title to or ownership of the software is |
10 hereby transferred. |
12 hereby transferred. |
11 " |
13 " |
12 "{ Package: 'stx:libview2' }" |
14 "{ Package: 'stx:libview2' }" |
|
15 |
|
16 "{ NameSpace: Smalltalk }" |
13 |
17 |
14 ValueModel subclass:#BlockValue |
18 ValueModel subclass:#BlockValue |
15 instanceVariableNames:'cachedValue arguments block' |
19 instanceVariableNames:'cachedValue arguments block' |
16 classVariableNames:'NeverComputed' |
20 classVariableNames:'NeverComputed' |
17 poolDictionaries:'' |
21 poolDictionaries:'' |
235 setBlock:[:a :b :c | a value or:[b value or:[c value]]] |
239 setBlock:[:a :b :c | a value or:[b value or:[c value]]] |
236 arguments:(Array with:arg1 with:arg2 with:arg3) |
240 arguments:(Array with:arg1 with:arg2 with:arg3) |
237 ! |
241 ! |
238 |
242 |
239 forLogicalAndAll:argArray |
243 forLogicalAndAll:argArray |
240 "return a new BlockValue computing the logical OR of all elements |
244 "return a new BlockValue computing the logical AND of all elements |
241 in the passed argArray (which are usually other valueHolders)" |
245 in the passed argArray (which are usually other valueHolders)" |
242 |
246 |
243 ^ (self new) |
247 ^ (self new) |
244 setBlock:[:a | (argArray findFirst:[:a | a value not]) == 0] |
248 setBlock:[:a | (argArray findFirst:[:a | a value not]) == 0] |
245 argumentArray:argArray asArray |
249 argumentArray:argArray asArray |
546 ! ! |
550 ! ! |
547 |
551 |
548 !BlockValue class methodsFor:'documentation'! |
552 !BlockValue class methodsFor:'documentation'! |
549 |
553 |
550 version |
554 version |
551 ^ '$Header: /cvs/stx/stx/libview2/BlockValue.st,v 1.27 2014-06-18 16:51:25 cg Exp $' |
555 ^ '$Header: /cvs/stx/stx/libview2/BlockValue.st,v 1.28 2015-05-11 21:11:34 stefan Exp $' |
552 ! |
556 ! |
553 |
557 |
554 version_CVS |
558 version_CVS |
555 ^ '$Header: /cvs/stx/stx/libview2/BlockValue.st,v 1.27 2014-06-18 16:51:25 cg Exp $' |
559 ^ '$Header: /cvs/stx/stx/libview2/BlockValue.st,v 1.28 2015-05-11 21:11:34 stefan Exp $' |
556 ! ! |
560 ! ! |
557 |
561 |
558 |
562 |
559 BlockValue initialize! |
563 BlockValue initialize! |