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


use Tk qw(destroy);

sub show_props
{my $w = shift;
 print "Props $w:\n";
 foreach ($w->property("list",@_))
  {
   print " $_:",join(',',$w->property("get",$_,@_)),"\n";
  }
}

$top = MainWindow->new();

$top->wm("minsize",0,0);

$top->property("set",MYPROP,AREA,32,[1,2,3,4,5]);

Tk::update("idletasks");

&show_props($top);


