asBoolean for WO
authorwerner
Wed, 07 Apr 2004 14:59:37 +0200
changeset 8305 7f80b5a18ffc
parent 8304 c82abebade70
child 8306 5b610781e787
asBoolean for WO
Boolean.st
UndefinedObject.st
--- a/Boolean.st	Wed Apr 07 12:27:55 2004 +0200
+++ b/Boolean.st	Wed Apr 07 14:59:37 2004 +0200
@@ -190,15 +190,6 @@
     ^ self printString
 ! !
 
-!Boolean methodsFor:'queries'!
-
-isLiteral
-    "return true, if the receiver can be used as a literal constant in ST syntax
-     (i.e. can be used in constant arrays)"
-
-    ^ true
-! !
-
 !Boolean methodsFor:'testing'!
 
 isBoolean
@@ -208,6 +199,13 @@
     "
 
     ^ true.
+!
+
+isLiteral
+    "return true, if the receiver can be used as a literal constant in ST syntax
+     (i.e. can be used in constant arrays)"
+
+    ^ true
 ! !
 
 !Boolean methodsFor:'tracing'!
@@ -223,5 +221,5 @@
 !Boolean class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Boolean.st,v 1.29 2001-08-31 22:43:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Boolean.st,v 1.30 2004-04-07 12:59:37 werner Exp $'
 ! !
--- a/UndefinedObject.st	Wed Apr 07 12:27:55 2004 +0200
+++ b/UndefinedObject.st	Wed Apr 07 14:59:37 2004 +0200
@@ -163,6 +163,10 @@
 
 !UndefinedObject methodsFor:'converting'!
 
+asBoolean
+    ^ false
+!
+
 decodeAsLiteralArray
     "given a literalEncoding in the receiver,
      create & return the corresponding object.
@@ -681,7 +685,7 @@
 !UndefinedObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UndefinedObject.st,v 1.56 2003-05-07 14:39:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UndefinedObject.st,v 1.57 2004-04-07 12:59:35 werner Exp $'
 ! !
 
 UndefinedObject initialize!