hg/stx-libview2: comparison BlockValue.st

equal deleted inserted replaced

-:2f204c2a957d
+:5f6fb98a3479
 forLogical:arg1 and:arg2
 "return a new BlockValue computing the logical AND of its args
 (which are usually other valueHolders)"
-^ (super new)
+^ (self new)
 setBlock:[:a :b | a value and:[b value]]
 arguments:(Array with:arg1 with:arg2)
 "Created: / 16.12.1995 / 19:20:14 / cg"
 "Modified: / 30.1.2000 / 23:24:50 / cg"
 forLogical:arg1 or:arg2
 "return a new BlockValue computing the logical OR of its args
 (which are usually other valueHolders)"
-^ (super new)
+^ (self new)
 setBlock:[:a :b | a value or:[b value]]
 arguments:(Array with:arg1 with:arg2)
 "Created: / 16.12.1995 / 19:20:14 / cg"
 "Modified: / 30.1.2000 / 23:24:46 / cg"
 forLogicalAndAll:argArray
 "return a new BlockValue computing the logical OR of all elements
 in the passed argArray (which are usually other valueHolders)"
-^ (super new)
+^ (self new)
 setBlock:[:a | (argArray findFirst:[:a | a value not]) == 0]
 argumentArray:argArray asArray
 "Created: / 22.1.1997 / 19:12:44 / cg"
 "Modified: / 28.4.1998 / 20:16:38 / ca"
 forLogicalNot:arg
 "return a new BlockValue computing the logical NOT of its arg
 (which is usually another valueHolder)"
-^ (super new)
+^ (self new)
 setBlock:[:a | a value not]
 arguments:(Array with:arg)
 "Created: / 17.8.1998 / 10:06:41 / cg"
 "Modified: / 30.1.2000 / 23:24:18 / cg"
 forLogicalOrAll:argArray
 "return a new BlockValue computing the logical OR of all elements
 in the passed argArray (which are usually other valueHolders)"
-^ (super new)
+^ (self new)
 setBlock:[:arg | (arg findFirst:[:el | el value]) ~~ 0]
 argumentArray:argArray asArray
 "Created: / 22.1.1997 / 19:13:01 / cg"
 "Modified: / 28.4.1998 / 20:20:09 / ca"
 !
 with:aBlock
 "return a new BlockValue computing aBlock"
-^ (super new) setBlock:aBlock
+^ (self new) setBlock:aBlock
 "Created: 16.12.1995 / 19:16:33 / cg"
 !
 with:aBlock argument:anArgument
 "return a new BlockValue computing aBlock"
-^ (super new)
+^ (self new)
 setBlock:aBlock
 arguments:(Array with:anArgument)
 "Created: 16.12.1995 / 19:20:14 / cg"
 !
 with:aBlock argument:anArgument1 argument:anArgument2
 "return a new BlockValue computing aBlock"
-^ (super new)
+^ (self new)
 setBlock:aBlock
 arguments:(Array with:anArgument1 with:anArgument2)
 "Created: 16.12.1995 / 19:20:14 / cg"
 !
 with:aBlock argument:anArgument1 argument:anArgument2 argument:anArgument3
 "return a new BlockValue computing aBlock"
-^ (super new)
+^ (self new)
 setBlock:aBlock
 arguments:(Array with:anArgument1 with:anArgument2 with:anArgument3)
+!
+with:aBlock argument:anArgument1 argument:anArgument2 argument:anArgument3 argument:anArgument4
+"return a new BlockValue computing aBlock"
+^ (self new)
+setBlock:aBlock
+arguments:(Array with:anArgument1 with:anArgument2 with:anArgument3 with:anArgument4)
 !
 with:aBlock arguments:aCollectionOfArguments
 "return a new BlockValue computing aBlock"
-^ (super new)
+^ (self new)
 setBlock:aBlock
 arguments:aCollectionOfArguments
 "Created: 16.12.1995 / 19:20:14 / cg"
 ! !
 ! !
 !BlockValue class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libview2/BlockValue.st,v 1.20 2003-07-17 11:35:07 cg Exp $'
+^ '$Header: /cvs/stx/stx/libview2/BlockValue.st,v 1.21 2003-09-12 14:00:17 cg Exp $'
 ! !
 BlockValue initialize!

changeset 1815	5f6fb98a3479
parent 1788	7edafbabe844
child 2530	a40d597a31ed