File: style_test

package info (click to toggle)
perl-tk 1%3A800.011-1
  • links: PTS
  • area: main
  • in suites: slink
  • size: 16,820 kB
  • ctags: 17,448
  • sloc: ansic: 189,575; perl: 31,426; makefile: 4,360; sh: 1,921; yacc: 762
file content (27 lines) | stat: -rw-r--r-- 611 bytes parent folder | download | duplicates (4) 
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;