Set #editedLanguage for all workspaces
authorJan Vrany <jan.vrany@fit.cvut.cz>
Tue, 10 Mar 2015 11:06:41 +0100
changeset 15522 92e5dd55bfd6
parent 15521 fb618bbd9037
child 15523 429b7e780d5a
Set #editedLanguage for all workspaces ...as completion support uses this information to select proper completion engine.
Tools__Inspector2.st
--- a/Tools__Inspector2.st	Mon Mar 09 12:13:00 2015 +0100
+++ b/Tools__Inspector2.st	Tue Mar 10 11:06:41 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2006 by eXept Software AG
 	      All Rights Reserved
@@ -1078,6 +1080,7 @@
     #todo
 ! !
 
+
 !Inspector2 methodsFor:'hooks'!
 
 postBuildEvaluationLanguageCombo: aComboBoxView
@@ -1295,6 +1298,7 @@
 
     self currentState tabViews do:[:view | 
         (view respondsTo: #workspace) ifTrue:[
+            view workspace editedLanguage: language.
             view workspace doItAction: 
                 [:theCode |
                     |evaluator|
@@ -1316,6 +1320,7 @@
     ]
 
     "Created: / 26-10-2013 / 01:13:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 10-03-2015 / 09:46:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !Inspector2::NavigationState class methodsFor:'creating classes'!
@@ -1333,11 +1338,11 @@
 !Inspector2::NavigationState class methodsFor:'documentation'!
 
 version
-    ^'$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.63 2015-02-24 11:50:16 cg Exp $'
+    ^'$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.64 2015-03-10 10:06:41 vrany Exp $'
 !
 
 version_SVN
-    ^'$Id: Tools__Inspector2.st,v 1.63 2015-02-24 11:50:16 cg Exp $'
+    ^'$Id: Tools__Inspector2.st,v 1.64 2015-03-10 10:06:41 vrany Exp $'
 ! !
 
 !Inspector2::NavigationState methodsFor:'accessing'!
@@ -1524,19 +1529,19 @@
 !Inspector2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.63 2015-02-24 11:50:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.64 2015-03-10 10:06:41 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.63 2015-02-24 11:50:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.64 2015-03-10 10:06:41 vrany Exp $'
 !
 
 version_CVS_jvrany
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.63 2015-02-24 11:50:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.64 2015-03-10 10:06:41 vrany Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__Inspector2.st,v 1.63 2015-02-24 11:50:16 cg Exp $'
+    ^ '$Id: Tools__Inspector2.st,v 1.64 2015-03-10 10:06:41 vrany Exp $'
 ! !