Ich teste es mal
/EDIT
Ich hab mich mal am Debbuger verucht.
Ich habe den normalen -d und -d:ptkdb getestet aber ich muss ganz ehrlich zugeben das ich überfordert bin.
...
/EDIT
-d:trace habe ich auch versucht... schnief... hier mal ein kleiner auszug...
>> 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.
\n\n
<!--EDIT|zipster|1121155786-->