>> C:/Strawberry/perl/site/lib/Tk/Button.pm:86:  my $w = shift;
>> C:/Strawberry/perl/site/lib/Tk/Button.pm:87:  $w->configure('-state'=>'normal') if ($w->cget('-state') ne 'disabled');
>> C:/Strawberry/perl/site/lib/Tk/Button.pm:90:  if (exists $w->{__relief__})
>> C:/Strawberry/perl/site/lib/Tk/Button.pm:92:    if (exists $w->{__prelief__} &&
>> C:/Strawberry/perl/site/lib/Tk/Button.pm:97:    delete $w->{__relief__};
>> C:/Strawberry/perl/site/lib/Tk/Button.pm:98:    delete $w->{__prelief__};
>> C:/Strawberry/perl/site/lib/Tk/Button.pm:100:  undef $Tk::window;
>> C:/Strawberry/perl/site/lib/Tk.pm:424:      DoOneEvent(0);
>> C:/Strawberry/perl/site/lib/Tk.pm:424:      DoOneEvent(0);
Free to wrong pool 369f80 not 29dd8a50 at C:/Strawberry/perl/site/lib/Tk.pm line 424.