--- 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