sub DESTROY
{
 my $w = shift;
 $w->destroy if ($w->IsWidget);
}