--- a/VT100TerminalView.st Wed Jul 24 11:49:45 2013 +0200
+++ b/VT100TerminalView.st Wed Jul 24 11:54:31 2013 +0200
@@ -305,7 +305,7 @@
"/ wider, leading to ugly looking output
"/ Therefore, use red color instead of bold
device platformName = 'WIN32' ifTrue:[
- self color:Color red.
+ self color:(Color red:80).
] ifFalse:[
self bold.
].
@@ -338,7 +338,9 @@
"/ ESC-[-31-m -> red fg color
"/ ...
"/ ESC-[-37-m -> white fg color
- self color:(self colorAtIndex:(p1-30+1)).
+ noColors ifFalse:[
+ self color:(self colorAtIndex:(p1-30+1)).
+ ].
^ self.
].
p1 == 39 ifTrue:[
@@ -350,7 +352,9 @@
"/ ESC-[-40-m -> black bg color
"/ ...
"/ ESC-[-47-m -> white bg color
- self bgColor:(self colorAtIndex:(p1-40+1)).
+ noColors ifFalse:[
+ self bgColor:(self colorAtIndex:(p1-40+1)).
+ ].
^ self.
].
p1 == 49 ifTrue:[
@@ -360,11 +364,15 @@
].
(p1 between:90 and:97) ifTrue:[
- self color:(self colorAtIndex:(p1-90+1)) lightened.
+ noColors ifFalse:[
+ self color:(self colorAtIndex:(p1-90+1)) lightened.
+ ].
^ self.
].
(p1 between:100 and:107) ifTrue:[
- self bgColor:(self colorAtIndex:(p1-100+1)) lightened.
+ noColors ifFalse:[
+ self bgColor:(self colorAtIndex:(p1-100+1)) lightened.
+ ].
^ self.
].
@@ -1187,10 +1195,10 @@
!VT100TerminalView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.55 2013-07-24 09:49:45 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.56 2013-07-24 09:54:31 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.55 2013-07-24 09:49:45 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.56 2013-07-24 09:54:31 cg Exp $'
! !