>> C:/Perl/site/lib/Tk/Widget.pm:218:    $widget = $w->Subwidget($widget) if (d
fined $widget && !ref $widget);
>> C:/Perl/site/lib/Tk/Widget.pm:219:    last unless (defined $widget);
>> C:/Perl/site/lib/Tk/Widget.pm:220:    last if $widget == $w;
>> C:/Perl/site/lib/Tk/Widget.pm:221:    $w = $widget;
>> C:/Perl/site/lib/Tk/Widget.pm:223:  return $w;
>> C:/Perl/site/lib/Tk/Derived.pm:458:  if ($widget == $cw)
>> C:/Perl/site/lib/Tk/Derived.pm:462:  my @result;
>> C:/Perl/site/lib/Tk/Derived.pm:463:  if (wantarray)
>> C:/Perl/site/lib/Tk/Derived.pm:469:    $result[0] = $widget->$method(@args);
>> C:/Perl/site/lib/Tk.pm:247:    *{$package."::$meth"} = sub { shift->WidgetMe
hod($name,@_) };

This application has requested the Runtime to terminate it in an unusual way.
Please contact the application's support team for more information.