class: VT100TerminalView
authorClaus Gittinger <cg@exept.de>
Sat, 01 Aug 2015 18:52:43 +0200
changeset 4800 92d8d63251d8
parent 4799 99ae54e3d35d
child 4801 86163ae659dd
class: VT100TerminalView comment/format in: #ansiEscapes #colorAtIndex:bright:
VT100TerminalView.st
--- a/VT100TerminalView.st	Fri Jul 31 18:58:41 2015 +0200
+++ b/VT100TerminalView.st	Sat Aug 01 18:52:43 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1998 by eXept Software AG
               All Rights Reserved
@@ -11,6 +13,8 @@
 "
 "{ Package: 'stx:libwidg2' }"
 
+"{ NameSpace: Smalltalk }"
+
 TerminalView subclass:#VT100TerminalView
 	instanceVariableNames:'currentParam parameters lastCursorLine'
 	classVariableNames:'TraceCSI'
@@ -60,6 +64,7 @@
                                             35 magenta foreground 
                                             36 cyan foreground 
                                             37 white foreground
+                                            39 reset to default foreground
                                             40 black background
                                             41 red background
                                             42 green background
@@ -68,6 +73,7 @@
                                             45 magenta background
                                             46 cyan background
                                             47 white background
+                                            49 reset to default background
 
          ESC[=#;7h or                   Put screen in indicated mode where # is
          ESC[=h or                          0 for 40 x 25 black & white
@@ -148,22 +154,22 @@
     |rgb|
 
     rgb := #(
-                #( 0 0 0 )      "/ black
-                #(170 0 0)      "/ red
-                #(0 170 0)      "/ green
-                #(170 85 0)     "/ yellow
-                #(0 0 170)      "/ blue
-                #(170 0 170)    "/ magenta
-                #(0 170 170 )   "/ cyan
-                #(170 170 170)  "/ white ).
+                #( 0 0 0 )      "/ black                        fg: ESC[30m / bg: ESC[40m
+                #(170 0 0)      "/ dark red
+                #(0 170 0)      "/ dark green
+                #(170 85 0)     "/ dark yellow
+                #(0 0 170)      "/ dark blue
+                #(170 0 170)    "/ dark magenta
+                #(0 170 170 )   "/ dark cyan
+                #(170 170 170)  "/ dark white eg. light grey).
 
-                #( 85 85 85 )   "/ black - darkGray
-                #(255 85 85)    "/ red
-                #(85 255 85)    "/ green
-                #(255 255 85)   "/ yellow
-                #(85 85 255)    "/ blue
-                #(255 85 255)   "/ magenta
-                #(85 255 255 )  "/ cyan
+                #( 85 85 85 )   "/ bright black eg. darkGray    fg: ESC[90m / bg: ESC[100m  
+                #(255 85 85)    "/ bright red
+                #(85 255 85)    "/ bright green
+                #(255 255 85)   "/ bright yellow
+                #(85 85 255)    "/ bright blue
+                #(255 85 255)   "/ bright magenta
+                #(85 255 255 )  "/ bright cyan
                 #(255 255 255)  "/ white 
     ).
 
@@ -1272,10 +1278,10 @@
 !VT100TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.63 2014-04-03 14:35:07 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.63 2014-04-03 14:35:07 cg Exp $'
+    ^ '$Header$'
 ! !