--- a/False.st	Sun Aug 16 18:14:23 2009 +0100
+++ b/False.st	Wed Aug 19 17:14:36 2009 +0100
@@ -68,6 +68,24 @@
     ^ self
 !
 
+and:block1 and:block2
+    "return false"
+
+    ^ self
+!
+
+and:block1 and:block2 and:block3
+    "return false"
+
+    ^ self
+!
+
+and:block1 and:block2 and:block3 and:block4
+    "return false"
+
+    ^ self
+!
+
 ifFalse:aBlock
     "If the receiver is false, return the value of evaluating aBlock; nil otherwise.
      Since the receiver is definitely false here, unconditionally return the blocks value.
@@ -114,6 +132,24 @@
 	- redefining it may not work as expected."
 
     ^ aBlock value
+!
+
+or:block1 or:block2
+    block1 value ifTrue:[^ true].
+    ^ block2 value
+!
+
+or:block1 or:block2 or:block3
+    block1 value ifTrue:[^ true].
+    block2 value ifTrue:[^ true].
+    ^ block3 value
+!
+
+or:block1 or:block2 or:block3 or:block4
+    block1 value ifTrue:[^ true].
+    block2 value ifTrue:[^ true].
+    block3 value ifTrue:[^ true].
+    ^ block4 value
 ! !
 
 !False methodsFor:'converting'!
@@ -195,5 +231,5 @@
 !False class methodsFor:'documentation'!
 
 version
-    ^ '$Id: False.st 10448 2009-06-14 16:10:51Z vranyj1 $'
+    ^ '$Id: False.st 10467 2009-08-19 16:14:36Z vranyj1 $'
 ! !