1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#!/usr/local/bin/perl -w
use Tk;
use Tk::HList;
use Tk::ItemStyle;
$top = new MainWindow;
$hl = $top->HList->pack;
$redstyle = $top->ItemStyle('text',
-foreground => 'red',
-font => '10x20',
-background => 'green');
print $redstyle,"\n";
$bluestyle = $top->ItemStyle('text',
-foreground => 'blue',
-background => 'white',
);
$hl->add(0, -itemtype => 'text', -text => 'red', -style => $redstyle);
$hl->add(1, -itemtype => 'text', -text => 'blue', -style => $bluestyle);
$top->after(5000, [ configure => $redstyle, -background => 'cyan' ]);
MainLoop;
|
