--- a/WorkspaceApplication.st	Thu Jul 19 12:59:52 2012 +0200
+++ b/WorkspaceApplication.st	Thu Jul 19 14:59:49 2012 +0200
@@ -1473,7 +1473,7 @@
             itemValue: menuSave
             translateLabel: true
             isButton: true
-            labelImage: (ResourceRetriever ToolbarIconLibrary saveToFileAsIcon)
+            labelImage: (ResourceRetriever ToolbarIconLibrary saveToFileIcon)
           )
          (MenuItem
             label: '-'
@@ -1539,7 +1539,7 @@
         nil
       )
 
-    "Modified: / 05-07-2011 / 15:49:14 / cg"
+    "Modified: / 19-07-2012 / 12:04:47 / cg"
 !
 
 workspaceMenu
@@ -2068,10 +2068,16 @@
 
 languageInfoLabelHolder
     ^ BlockValue
-        with:[:syntax | "'Syntax: ',"syntax name ]
+        with:[:syntax | 
+                syntax notNil ifTrue:[
+                    "'Syntax: ',"syntax name 
+                ] ifFalse:[
+                    'Plain Text'
+                ]
+             ]
         argument:self syntaxHolder
 
-    "Modified: / 26-04-2012 / 12:53:20 / cg"
+    "Modified: / 19-07-2012 / 12:05:54 / cg"
 !
 
 modeLabelHolder
@@ -2909,12 +2915,16 @@
     language isSymbol ifTrue:[
         language := ProgrammingLanguage named:language  
     ].
-    aWorkspace compilerClass:(language evaluatorClass "self compilerClassForSyntaxName:syntax").
-    self smalltalkMenuEnabledHolder value:(language isSmalltalk).
+    language isNil ifTrue:[
+        aWorkspace compilerClass:nil
+    ] ifFalse:[
+        aWorkspace compilerClass:(language evaluatorClass "self compilerClassForSyntaxName:syntax").
+    ].
+    self smalltalkMenuEnabledHolder value:(language notNil and:[language isSmalltalk]).
 
     "Created: / 08-02-2011 / 21:32:39 / cg"
     "Modified: / 17-08-2011 / 08:47:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 26-04-2012 / 12:04:42 / cg"
+    "Modified: / 19-07-2012 / 10:54:18 / cg"
 !
 
 spyOnIt
@@ -3592,6 +3602,11 @@
 
     m := Menu new.
     m addItem:((MenuItem 
+                label:'Text'
+                choice: #syntaxHolder
+                choiceValue:nil) 
+                itemValue:#syntaxChangedByUser).
+    m addItem:((MenuItem 
                 label:'Smalltalk'
                 choice: #syntaxHolder
                 choiceValue:SmalltalkLanguage instance) 
@@ -3610,7 +3625,7 @@
 "/    ].
     ^ m
 
-    "Modified: / 26-04-2012 / 12:53:47 / cg"
+    "Modified: / 19-07-2012 / 10:53:05 / cg"
 !
 
 makeRecentDoItsMenuFor:aSelector
@@ -3944,11 +3959,11 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.220 2012-05-04 14:04:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.221 2012-07-19 12:59:49 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.220 2012-05-04 14:04:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.221 2012-07-19 12:59:49 cg Exp $'
 !
 
 version_SVN