#!./perl -w
use AddINC qw(./blib .);


use Tk qw(destroy);

require Pretty ; 

$top = MainWindow->new();

$label = $top->Label("-text" => "Something" );

$label->bind('<Destroy>' , sub { printf "RIP %s\n", shift->PathName });
$top->bind('<Destroy>' , sub { printf "top RIP %s\n", shift->PathName });

$label->pack;

$quit = $top->Button("-text" => "Quit", "-command" => ["destroy",$top]);

$quit->pack;

Tk::update();

Tk::MainLoop();

