Re: [MacPerl] troubles with Controls.pm

[pudge@pobox.com (Chris Nandor)]

At 13.46 1998.03.30, Paul DuBois wrote:
>You get the same result by clicking outside a control in the GUI example
>script that Chris Nandor posted on 3/13.  I believe he said it's a bug
>in Controls.pm.
>
>Perhaps the fix could be posted?

I thought I posted it this morning -- I did -- but it never got back to me.
One more time:

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;
}

--
Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
%PGPKey=('B76E72AD',[1024,'0824 090B CE73 CA10  1FF7 7F13 8180 B6B6'])
#==               New Book:  MacPerl: Power and Ease               ==#
#==    Publishing Date: Early 1998. http://www.ptf.com/macperl/    ==#



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