Update evaluation language in #inspect: to reflect current setting.
--- 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 $'
! !