--- a/Boolean.st	Fri Sep 03 14:49:28 2004 +0200
+++ b/Boolean.st	Fri Sep 03 19:11:36 2004 +0200
@@ -63,6 +63,32 @@
      - there must be exactly one instance of each - no more"
 
     self error:'new instances of True/False are not allowed'
+!
+
+readFrom:aStringOrStream onError:exceptionBlock
+    "return a new Boolean, reading a printed representation from aStringOrStream."
+
+    |str word|
+
+    str := aStringOrStream readStream.
+    str skipSeparators.
+    word := str nextAlphaNumericWord.
+    word = 'true' ifTrue:[^ true].
+    word = 'false' ifTrue:[^ false].
+    ^ exceptionBlock value.
+
+    "
+     Boolean readFrom:'true'      
+     Boolean readFrom:'false'     
+     Boolean readFrom:'xxx'  
+     Boolean readFrom:'  true'     
+     Boolean readFrom:'  false'    
+     Boolean readFrom:'true xxx'      
+     Boolean readFrom:'false xxx'     
+
+     Boolean readFromString:'true xxx'   
+     Boolean readFromString:'false xxx'  
+    "
 ! !
 
 !Boolean class methodsFor:'queries'!
@@ -219,5 +245,5 @@
 !Boolean class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Boolean.st,v 1.31 2004-06-11 18:12:22 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Boolean.st,v 1.32 2004-09-03 17:11:36 cg Exp $'
 ! !