Tools__Inspector2.st
changeset 15071 86436f59d484
parent 14794 b9b08eaf1f3a
child 15178 8cf5ae14559b
--- a/Tools__Inspector2.st	Tue Dec 23 15:51:55 2014 +0100
+++ b/Tools__Inspector2.st	Tue Dec 23 15:56:09 2014 +0100
@@ -1228,7 +1228,7 @@
     objectsLanguage := anObject class programmingLanguage.
     self evaluationLanguageHolder value:(EvaluationLanguageMap at: objectsLanguage ifAbsent: [ objectsLanguage ]).
     "/ Must force update - it can happen that language doesn't change (value is the same)
-    "/ buy inspectors are new and thus would use default language to evaluation.
+    "/ but inspectors are new and thus would use default language for evaluation.
     self updateEvaluationLanguage.
 
     "Modified: / 27-02-2008 / 12:06:52 / janfrog"
@@ -1314,11 +1314,11 @@
 !Inspector2::NavigationState class methodsFor:'documentation'!
 
 version
-    ^'$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.57 2014-10-23 11:15:29 cg Exp $'
+    ^'$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.58 2014-12-23 14:56:09 cg Exp $'
 !
 
 version_SVN
-    ^'$Id: Tools__Inspector2.st,v 1.57 2014-10-23 11:15:29 cg Exp $'
+    ^'$Id: Tools__Inspector2.st,v 1.58 2014-12-23 14:56:09 cg Exp $'
 ! !
 
 !Inspector2::NavigationState methodsFor:'accessing'!
@@ -1442,14 +1442,16 @@
 !Inspector2::NavigationState methodsFor:'initialization'!
 
 initializeClassBrowserTab
-    | browser spec cls canvas makeView view|
+    |spec makeView view|
 
-    cls := theObject class theNonMetaclass.
 
     "/ spec := #singleClassBrowserSpec.
     spec := #multipleClassBrowserSpec.
 
     makeView := [
+        |browser cls canvas|
+
+        cls := theObject class theNonMetaclass.
         view isNil ifTrue:[
             browser := Tools::NewSystemBrowser new.
             browser isEmbeddedBrowser:true.
@@ -1578,19 +1580,19 @@
 !Inspector2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.57 2014-10-23 11:15:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.58 2014-12-23 14:56:09 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.57 2014-10-23 11:15:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.58 2014-12-23 14:56:09 cg Exp $'
 !
 
 version_CVS_jvrany
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.57 2014-10-23 11:15:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.58 2014-12-23 14:56:09 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__Inspector2.st,v 1.57 2014-10-23 11:15:29 cg Exp $'
+    ^ '$Id: Tools__Inspector2.st,v 1.58 2014-12-23 14:56:09 cg Exp $'
 ! !