Re: [MacPerl] troubles with Controls.pm

[Michael Ziege <ziege@ito.umnw.ethz.ch>]

>The bug has been found and fixed for the next release.  If you want to fix
>it yourself, try adding one line at line 469:
>
>sub click {
>    my($my, $win, $pt) = @_;
>    my($part,$control) = FindControl($pt, $win->window);
>    return if !$control;  # new line at 469
>    my($ctrl) = $win->{controls}->{$$control};  # old line 469
>    if ($ctrl) {
>        $ctrl->track($win, $pt);
>        1;
>    }
>    0;
>}
>

clicking outside a control in the ControlWindow.t script now works fine
although I don't see why the event of clicking into the window first has to
do sightseeing in Controls.pm before the windows event handle can manage it.

BTW: Clicking into the windows close box still gives a crash.

-
Michael Ziege
Sallenbachstr. 11
8055 ZŸrich
Switzerland
tel. 	+41 1 463 8278 (priv.)
	+41 1 381 3757 (buis.)
e-mail. ziege@ito.umnw.ethz.ch



***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch