class: TerminalView
authorClaus Gittinger <cg@exept.de>
Wed, 24 Jul 2013 11:54:42 +0200
changeset 4299 50d20c3d24cc
parent 4298 c9c174303f4e
child 4300 2bdb9d15ed44
class: TerminalView class definition added: #noColors #noColors: changed: #initialize
TerminalView.st
--- a/TerminalView.st	Wed Jul 24 11:54:31 2013 +0200
+++ b/TerminalView.st	Wed Jul 24 11:54:42 2013 +0200
@@ -17,7 +17,7 @@
 		numberOfColumns numberOfLines shellTerminateAction rangeStartLine
 		rangeEndLine state savedCursor shellCommand shellDirectory
 		filterStream localEcho translateNLToCRNL inputTranslateCRToNL
-		autoWrapFlag masterWindow alternateKeypadMode'
+		autoWrapFlag masterWindow alternateKeypadMode noColors'
 	classVariableNames:'Debug DebugKeyboard'
 	poolDictionaries:''
 	category:'Views-TerminalViews'
@@ -416,6 +416,14 @@
     masterWindow := something.
 !
 
+noColors
+    ^ noColors
+!
+
+noColors:something
+    noColors := something.
+!
+
 outStream
     "return the stream, which is used to present data in the view (i.e. shell output)"
 
@@ -1122,6 +1130,7 @@
     localEcho := false.
     inputTranslateCRToNL := false.
     autoWrapFlag := true.
+    noColors := false.
     "/ cursorType := #block.
 
     numberOfColumns := 80.
@@ -2073,11 +2082,11 @@
 !TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.150 2013-07-23 21:08:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.151 2013-07-24 09:54:42 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.150 2013-07-23 21:08:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.151 2013-07-24 09:54:42 cg Exp $'
 ! !