Update evaluation language in #inspect: to reflect current setting.
authorJan Vrany <jan.vrany@fit.cvut.cz>
Tue, 12 Aug 2014 21:05:57 +0200
changeset 14711 e98d36d360de
parent 14710 f8bfcc330051
child 14712 4767384a01b9
Update evaluation language in #inspect: to reflect current setting.
Tools__Inspector2.st
--- a/Tools__Inspector2.st	Tue Aug 12 14:22:13 2014 +0200
+++ b/Tools__Inspector2.st	Tue Aug 12 21:05:57 2014 +0200
@@ -1240,11 +1240,14 @@
     ].
     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.
+    self updateEvaluationLanguage.
 
     "Modified: / 27-02-2008 / 12:06:52 / janfrog"
     "Modified: / 15-07-2011 / 16:26:03 / cg"
     "Modified (format): / 19-08-2011 / 09:01:20 / cg"
-    "Modified: / 18-02-2014 / 23:05:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (comment): / 12-08-2014 / 20:04:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 openOn: anObject
@@ -1257,10 +1260,10 @@
 
 postBuildWith:aBuilder
     super postBuildWith:aBuilder.
-
-    self updateWindowLabel
+    self updateWindowLabel.
 
     "Created: / 15-07-2011 / 16:25:36 / cg"
+    "Modified: / 12-08-2014 / 20:01:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 updateWindowLabel
@@ -1323,11 +1326,11 @@
 !Inspector2::NavigationState class methodsFor:'documentation'!
 
 version
-    ^'$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.54 2014-06-04 13:44:59 cg Exp $'
+    ^'$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.55 2014-08-12 19:05:57 vrany Exp $'
 !
 
 version_SVN
-    ^'$Id: Tools__Inspector2.st,v 1.54 2014-06-04 13:44:59 cg Exp $'
+    ^'$Id: Tools__Inspector2.st,v 1.55 2014-08-12 19:05:57 vrany Exp $'
 ! !
 
 !Inspector2::NavigationState methodsFor:'accessing'!
@@ -1587,19 +1590,19 @@
 !Inspector2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.54 2014-06-04 13:44:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.55 2014-08-12 19:05:57 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.54 2014-06-04 13:44:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.55 2014-08-12 19:05:57 vrany Exp $'
 !
 
 version_CVS_jvrany
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.54 2014-06-04 13:44:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.55 2014-08-12 19:05:57 vrany Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__Inspector2.st,v 1.54 2014-06-04 13:44:59 cg Exp $'
+    ^ '$Id: Tools__Inspector2.st,v 1.55 2014-08-12 19:05:57 vrany Exp $'
 ! !