cmdr
Check-in [8358279e61]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:cmdr::color - Added standard symbolic color "heading", for use by cmdr::table.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 8358279e615c4d87b796e3bdc6fee73032a7636b
User & Date: aku 2016-06-29 07:04:46
Context
2016-06-29
07:09
cmdr::color - Add forgotten docs about new symbolic name. check-in: d1c012590f user: aku tags: trunk
07:04
cmdr::color - Added standard symbolic color "heading", for use by cmdr::table. check-in: 8358279e61 user: aku tags: trunk
07:03
cmdr::table - Documented the package. Added testsuite. Added more validation and introspection. Added TEApot metadata. check-in: 7acf8ff192 user: aku tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to tests/color.test.

     8      8   kt require support Tclx
     9      9   kt require support debug
    10     10   kt require support debug::caller
    11     11   
    12     12   kt local   support cmdr::tty
    13     13   kt local   testing cmdr::color
    14     14   
    15         -set thecolors {advisory bad bg-black bg-blue bg-cyan bg-default bg-green bg-magenta bg-red bg-white bg-yellow black blink blue bold confirm cyan default dim error good green hidden italic magenta name neutral no no-blink no-bold no-dim no-hidden no-italic no-revers no-strike no-underline note number prompt red reset revers strike underline unknown warning white yellow yes}
           15  +set thecolors {advisory bad bg-black bg-blue bg-cyan bg-default bg-green bg-magenta bg-red bg-white bg-yellow black blink blue bold confirm cyan default dim error good green heading hidden italic magenta name neutral no no-blink no-bold no-dim no-hidden no-italic no-revers no-strike no-underline note number prompt red reset revers strike underline unknown warning white yellow yes}
    16     16   
    17     17   set thechars {
    18     18       advisory	{\033[33m}
    19     19       bad		{\033[31m}
    20     20       bg-black	{\033[40m}
    21     21       bg-blue	{\033[44m}
    22     22       bg-cyan	{\033[46m}
................................................................................
    33     33       confirm	{\033[31m}
    34     34       cyan	{\033[36m}
    35     35       default	{\033[39m}
    36     36       dim		{\033[2m}
    37     37       error	{\033[35m}
    38     38       good	{\033[32m}
    39     39       green	{\033[32m}
           40  +    heading	{\033[1m}
    40     41       hidden	{\033[8m}
    41     42       italic	{\033[3m}
    42     43       magenta	{\033[35m}
    43     44       name	{\033[34m}
    44     45       neutral	{\033[34m}
    45     46       no		{\033[31m}
    46     47       no-blink	{\033[25m}
................................................................................
    85     86       confirm	=red
    86     87       cyan	e36
    87     88       default	e39
    88     89       dim		e2
    89     90       error	=magenta
    90     91       good	=green
    91     92       green	e32
           93  +    heading	=bold
    92     94       hidden	e8
    93     95       italic	e3
    94     96       magenta	e35
    95     97       name	=blue
    96     98       neutral	=blue
    97     99       no		=red
    98    100       no-blink	e25

Changes to utilities/color.tcl.

   345    345       define  no       =red
   346    346       define  note     =blue
   347    347       define  number   =green
   348    348       define  prompt   =blue
   349    349       define  unknown  =cyan
   350    350       define  warning  =yellow
   351    351       define  yes      =green
          352  +
          353  +    # Standard for cmdr::table
          354  +    define  heading  =bold
   352    355   
   353    356       variable smap {}
   354    357   }
   355    358   
   356    359   apply {{} {
   357    360       variable smap
   358    361       for {set i 0} {$i < 32} {incr i} {