Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
changed: #changeMenuCompareClass: stx_6_2_2
authorClaus Gittinger <cg@exept.de>
Mon, 23 Jul 2012 13:10:24 +0200
changeset 11650 c955fe2bbcb5
parent 11649 2fe26afb9af1
child 11651 7d72201a313c
changed: #changeMenuCompareClass:
Tools__ChangeSetBrowser2.st file | annotate | diff | comparison | revisions 
--- a/Tools__ChangeSetBrowser2.st	Mon Jul 23 13:08:40 2012 +0200
+++ b/Tools__ChangeSetBrowser2.st	Mon Jul 23 13:10:24 2012 +0200
@@ -2080,7 +2080,7 @@
 
     addClassName := 
         [:nmArg |
-            |nm ns existingClass goodAnswer|
+            |nm ns existingClass goodAnswer cls|
 
             nm := nmArg.
             existingClass := Smalltalk classNamed:nm.
@@ -2097,15 +2097,15 @@
                     goodAnswer := nm.
                     (lastNameSpace notNil 
                         and:[ lastNameSpace isNameSpace 
-                        and:[(lastNameSpace classNamed:nm) notNil ]]
+                        and:[(cls := lastNameSpace classNamed:nm) notNil ]]
                     ) ifTrue:[
-                        goodAnswer := (lastNameSpace classNamed:nm) name.
+                        goodAnswer := cls name.
                     ] ifFalse:[
                         (lastNameSpace notNil 
                             and:[ lastNameSpace isBehavior 
-                            and:[(lastNameSpace privateClassesAt:nm asSymbol) notNil ]]
+                            and:[(cls := lastNameSpace privateClassesAt:nm asSymbol) notNil ]]
                         ) ifTrue:[
-                            goodAnswer := (lastNameSpace privateClassesAt:nm asSymbol) name.
+                            goodAnswer := cls name.
                         ]
                     ].
                 ].
@@ -2753,11 +2753,11 @@
 !ChangeSetBrowser2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.33 2012-07-23 11:08:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.34 2012-07-23 11:10:24 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.33 2012-07-23 11:08:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.34 2012-07-23 11:10:24 cg Exp $'
 !
 
 version_SVN
hg/stx-libtool