--- a/TerminalApplication.st	Wed Jul 24 11:50:26 2013 +0200
+++ b/TerminalApplication.st	Wed Jul 24 12:01:00 2013 +0200
@@ -170,6 +170,17 @@
                   label: 'Green'
                   itemValue: setGreenDisplayMode
                 )
+               (MenuItem
+                  label: 'Red'
+                  itemValue: setRedDisplayMode
+                )
+               (MenuItem
+                  label: '-'
+                )
+               (MenuItem
+                  label: 'Ignore Text Color Commands'
+                  indication: noColors:
+                )
                )
               nil
               nil
@@ -406,6 +417,14 @@
     ]
 !
 
+noColors
+    ^ self selectedWorkspacesTextView noColors
+!
+
+noColors:aBoolean
+    self selectedWorkspacesTextView noColors:aBoolean.
+!
+
 openDocumentation
     "opens the documentation file"
 
@@ -434,6 +453,10 @@
     self selectedWorkspacesTextView setNormalDisplayMode.
 !
 
+setRedDisplayMode
+    self selectedWorkspacesTextView setRedDisplayMode.
+!
+
 setReverseDisplayMode
     self selectedWorkspacesTextView setReverseDisplayMode.
 ! !
@@ -490,7 +513,11 @@
 
 !TerminalApplication class methodsFor:'documentation'!
 
+version
+    ^ '$Header: /cvs/stx/stx/libtool/TerminalApplication.st,v 1.14 2013-07-24 10:01:00 cg Exp $'
+!
+
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/TerminalApplication.st,v 1.13 2013-07-23 21:08:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/TerminalApplication.st,v 1.14 2013-07-24 10:01:00 cg Exp $'
 ! !