Mercurial Mercurial > hg > stx-libwidg2 / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
DoWhatIMeanSupport.st
changeset 4314 3c3df9c97f74
parent 4311 9ff3061bd3b4
child 4326 4dbf9b13bc59 
--- a/DoWhatIMeanSupport.st	Mon Jul 29 18:30:51 2013 +0200
+++ b/DoWhatIMeanSupport.st	Tue Jul 30 09:13:45 2013 +0200
@@ -2341,18 +2341,20 @@
             addWithFactorBlock value:responders value:(1.5 * globalFactor).
             addWithFactorBlock value:nonResponders value:(0.5 * 1.5 * globalFactor).
 
-            "/ pool variables
-            classOrNil theNonMetaclass sharedPoolNames do:[:poolName |
-                |pool names|
-
-                pool := Smalltalk at:poolName.
-                names := pool classVarNames.
-                names := names select:[:nm | nm isUppercaseFirst ].
-                responders := names select:[:glblVar | |c| c := Smalltalk at:glblVar. c isBehavior not or:[c isLoaded and:[c respondsTo:selectorOfMessageToNode]]].
-                nonResponders := names reject:[:glblVar | |c| c := Smalltalk at:glblVar. c isBehavior not or:[c isLoaded and:[c respondsTo:selectorOfMessageToNode]]].
-                addWithFactorBlock value:responders value:(2.5 * globalFactor).
-                addWithFactorBlock value:nonResponders value:(0.5 * 2.5 * globalFactor).
-            ].
+            classOrNil notNil ifTrue:[
+                "/ pool variables
+                classOrNil theNonMetaclass sharedPoolNames do:[:poolName |
+                    |pool names|
+
+                    pool := Smalltalk at:poolName.
+                    names := pool classVarNames.
+                    names := names select:[:nm | nm isUppercaseFirst ].
+                    responders := names select:[:glblVar | |c| c := Smalltalk at:glblVar. c isBehavior not or:[c isLoaded and:[c respondsTo:selectorOfMessageToNode]]].
+                    nonResponders := names reject:[:glblVar | |c| c := Smalltalk at:glblVar. c isBehavior not or:[c isLoaded and:[c respondsTo:selectorOfMessageToNode]]].
+                    addWithFactorBlock value:responders value:(2.5 * globalFactor).
+                    addWithFactorBlock value:nonResponders value:(0.5 * 2.5 * globalFactor).
+                ].
+            ]
         ] ifFalse:[
             classOrNil notNil ifTrue:[
                 "/ private classes
@@ -2451,7 +2453,7 @@
 
     "Created: / 10-11-2006 / 13:16:33 / cg"
     "Modified: / 16-02-2010 / 10:13:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 22-08-2012 / 22:07:24 / cg"
+    "Modified: / 30-07-2013 / 08:36:11 / cg"
 !
 
 findNodeForInterval:interval in:source
@@ -3523,10 +3525,10 @@
 !DoWhatIMeanSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.114 2013-07-28 10:10:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.115 2013-07-30 07:13:45 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.114 2013-07-28 10:10:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.115 2013-07-30 07:13:45 cg Exp $'
 ! !
hg/stx-libwidg2