Re: [MacPerl] troubles with Controls.pm

[pudge@pobox.com (Chris Nandor)]

At 10.33 1998.03.30, Michael Ziege wrote:
>when I click in the white space of the window around the control buttons.
>Any suggestions? I don't remember seeing that happen with MacPerl 5.1.4.

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