#!/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;