class: DoWhatIMeanSupport
authorClaus Gittinger <cg@exept.de>
Mon, 23 Sep 2013 11:47:52 +0200
changeset 4411 ff6e37d9ab5f
parent 4410 bee334ff01be
child 4412 c75ff2894fb9
class: DoWhatIMeanSupport changed: #classOfNode:
DoWhatIMeanSupport.st
--- a/DoWhatIMeanSupport.st	Mon Sep 23 00:15:28 2013 +0200
+++ b/DoWhatIMeanSupport.st	Mon Sep 23 11:47:52 2013 +0200
@@ -1775,9 +1775,11 @@
             ^ SmallInteger
         ].
 
-        (#( isNil notNil not emptyOrNil notEmptyOrNil notEmpty isEmpty 
-            = ~= == ~~ 
+        "/ some wellknown boolean returners (need better type inference here)
+        (#( isNil notNil not isEmptyOrNil notEmptyOrNil notEmpty isEmpty 
+            = ~= == ~~ > >= < <= 
             includes: contains:
+            isBehavior isMeta
             and: or:
             exists atEnd
         ) includes:nodeSelector ) ifTrue:[
@@ -4340,10 +4342,10 @@
 !DoWhatIMeanSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.165 2013-09-22 22:15:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.166 2013-09-23 09:47:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.165 2013-09-22 22:15:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.166 2013-09-23 09:47:52 cg Exp $'
 ! !