use strict ;
use Tk ;

sub setColors 
{
	print "set Colors @_!\n" ;
}

sub setConfiguration 
{
	print "setConfiguration @_\n" ;
}

my($mw) = new MainWindow ;
my($l) = $mw->Button(-text => 'Hello World')->pack ;

$l->bind('<Property>' => \&setColors) ;
$l->bind('<Configure>' => \&setConfiguration) ;

$l->configure(-command => sub { $l->configure(-background => 'blue') ;}) ;


MainLoop ;