use Tk::TextANSIColor;


  $wid = $mw->TextANSIColor(?options,...?);


  $wid->insert($pos, $string, ?taglist, ?string, ?taglist);
  $string_with_escape_codes = $wid->getansi('0.0','end');


  use Term::ANSIColor; 
  $red = color('red');  # Retrieve color codes
  $bold = color('bold');
  $wid->insert('end', "$red red text $bold with bold\n");


##</code><code>##

  $text = $MW->TextANSIColor->pack;
  tie *TEXT, "Tk::TextANSIColor", $text;


  $info = colored("Some information\n", 'red');


  # Print information to all filehandles
  print TEXT $info
  print STDOUT $info

##</code><code>##

  $widget->getansi(index1, ?index2?)

##</code><code>##

  ANSIbd - bold
  ANSIul - underline
  ANSIfgCOL - foreground color
  ANSIbgCOL - background color

##</code><code>##

  $widget->tagConfigure('ANSIfgred', -foreground => 'blue');