File: style_test

package info (click to toggle)
perl-tk 1:800.025-2
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 18,444 kB
  • ctags: 19,081
  • sloc: ansic: 206,740; perl: 40,187; makefile: 4,371; sh: 2,373; 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;