class: DoWhatIMeanSupport
authorClaus Gittinger <cg@exept.de>
Mon, 23 Sep 2013 14:41:55 +0200
changeset 4412 c75ff2894fb9
parent 4411 ff6e37d9ab5f
child 4413 9a6c7c84ec0e
class: DoWhatIMeanSupport changed: #classOfNode:
DoWhatIMeanSupport.st
--- a/DoWhatIMeanSupport.st	Mon Sep 23 11:47:52 2013 +0200
+++ b/DoWhatIMeanSupport.st	Mon Sep 23 14:41:55 2013 +0200
@@ -1791,9 +1791,9 @@
             ^ Number
         ].
 
-        ( #( class theMetaclass theNonMetaClass ) includes:nodeSelector) ifTrue:[
+        ( #( class theMetaclass theNonMetaclass ) includes:nodeSelector) ifTrue:[
             "/ assume behavior
-            ^ Class
+            ^ Behavior
         ].
     ].
     ^ nil
@@ -4342,10 +4342,10 @@
 !DoWhatIMeanSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.166 2013-09-23 09:47:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.167 2013-09-23 12:41:55 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.166 2013-09-23 09:47:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.167 2013-09-23 12:41:55 cg Exp $'
 ! !