use Tk;
use Tk::Dialog;
use lib Tk->findINC('demos/widget_lib');
#use subs qw(dpos inswt invoke lsearch see_code see_vars view_widget_code);

$w = MainWindow->new;

#dpos $w;

$ent = $w->Entry();

$ent->pack();

MainLoop;