--- a/Tools__CodeView2.st	Mon Aug 31 22:29:40 2015 +0200
+++ b/Tools__CodeView2.st	Tue Sep 01 18:47:28 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague
               All Rights Reserved
@@ -780,13 +782,13 @@
      BAD name: confusion with the national language.
      why not call this 'programmingLanguage' ?"
 
-    | v |
+    | v m c |
 
     (v := self languageHolder value) notNil ifTrue:[^v].
-    (v := self method) notNil ifTrue:[^v programmingLanguage].
-    (v := self classHolder value) notNil ifTrue:[^v programmingLanguage].
-
-    "/No, no default language, please.
+    (m := self method) notNil ifTrue:[^m programmingLanguage].
+    (c := self classHolder value) notNil ifTrue:[^c programmingLanguage].
+
+    "/No, no default language, please (for workspaces, etc.).
     "/^SmalltalkLanguage instance
     ^nil
 
@@ -1030,6 +1032,8 @@
     ].
 
     sender == languageHolder ifTrue:[
+        "/ languageHolder value class == Workflow::ExecutionEditorShellScript::Shell_Language ifTrue:[self halt].
+        "/ languageHolder value  == Workflow::ExecutionEditorShellScript::Shell_Language ifTrue:[self halt].
         textView editedLanguage: languageHolder value.
     ].
 
@@ -2157,6 +2161,14 @@
 !
 
 flash: aString
+    "delegated to my textview"
+
+    textView flash:aString.
+!
+
+flash: aString withColor:flashColor
+    "delegated to my textview"
+
     textView flash:aString.
 ! !