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 5224 941b9aba81cc
parent 5203 9b8272cc6d49
child 5225 8bcca5a042c5
child 5228 4644e610c1b9 
--- a/DoWhatIMeanSupport.st	Thu Aug 18 16:01:57 2016 +0200
+++ b/DoWhatIMeanSupport.st	Mon Aug 22 15:43:49 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2002 by eXept Software AG
 	      All Rights Reserved
@@ -2349,7 +2347,7 @@
 "/
 "/    info := best storeString.
 "/    implClass notNil ifTrue:[
-"/        info := implClass name , ' » ' , info.
+"/        info := implClass name , ' » ' , info.
 "/    ].
 "/    self information:info.
 "/].
@@ -3389,12 +3387,14 @@
                         |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).
+                        pool notNil ifTrue:[
+                            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).
+                        ].
                     ].
                 ]
             ]
@@ -4979,7 +4979,7 @@
 "/
 "/    info := best storeString.
 "/    implClass notNil ifTrue:[
-"/        info := implClass name , ' » ' , info.
+"/        info := implClass name , ' » ' , info.
 "/    ].
 "/    self information:info.
hg/stx-libwidg2