Help for this page

Select Code to Download


  1. or download this
      use Tk::TextANSIColor;

...
  $bold = color('bold');
  $wid->insert('end', "$red red text $bold with bold\n");
  2. or download this
      $text = $MW->TextANSIColor->pack;
  tie *TEXT, "Tk::TextANSIColor", $text;
...
  # Print information to all filehandles
  print TEXT $info
  print STDOUT $info
  3. or download this
      $widget->getansi(index1, ?index2?)
  4. or download this
      ANSIbd - bold
  ANSIul - underline
  ANSIfgCOL - foreground color
  ANSIbgCOL - background color
  5. or download this
      $widget->tagConfigure('ANSIfgred', -foreground => 'blue');