请问Perl/tk能实现语法着色功能吗?

请问Perl/tk能实现语法着色功能吗?

Perl/tk里面没有richtextbox,只有text控件,不过google翻了不少资料好象没见text能部分改变文字颜色或支持Html代码的例子。

请问下Perl/tk的text里如果我想要实现语法着色的功能(其实就是怎样改变text中部分文字的颜色),应该怎么做呢?或者有其他的实现方法么~


[Copy to clipboard] [ - ]
CODE:
my $message_t = $mw->Scrolled
  (
   "Text",
   -scrollbars => "oe",
   -background => $BackgroundColor,
   -foreground => $TxtColor,
   -wrap       => 'word',
#   -height=>8,
#   -width=>40,
   -state => 'disabled'
  )->pack(-side => 'bottom',
          -fill => 'x');