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

lei8c8

1. 
   
2. my $message_t = $mw->Scrolled
   
3.   (
   
4.    "Text",
   
5.    -scrollbars => "oe",
   
6.    -background => $BackgroundColor,
   
7.    -foreground => $TxtColor,
   
8.    -wrap       => 'word',
   
9. #   -height=>8,
   
10. #   -width=>40,
    
11.    -state => 'disabled'
    
12.   )->pack(-side => 'bottom',
    
13.           -fill => 'x');
    

复制代码