perl-win32-gui-users

[perl-win32-gui-users] Event routines

[<tho...@ba...>]

Is Win32::GUI designed to support something like this:

$subtxt = "Simple_Click";
    eval qq (
      sub main::$subtxt {
        print "button clicked\n";
        $W->SimpleLabel->Text("Got a click");
    }
    );

(Actually this piece of code does not work...)

The problem is that I would like to create a number of controls dynamically
because I know the number of controls to
create only at runtime.

regards,
Thomas

Re: [perl-win32-gui-users] Event routines

[Aldo C. <da...@pe...>]

tho...@ba... wrote:
> Is Win32::GUI designed to support something like this:
>
> $subtxt = "Simple_Click";
>     eval qq (
>       sub main::$subtxt {
>         print "button clicked\n";
>         $W->SimpleLabel->Text("Got a click");
>     }
>     );
>
> (Actually this piece of code does not work...)

yes, Win32::GUI supports things like these (it's really Perl that
supports it :-), but your code is wrong. $W is interpreted as a
variable in your eval string, you need to escape it:

    eval qq (
        sub main::$subtxt {
            print "button clicked\n";
            \$W->SimpleLabel->Text("Got a click");
        }
    );

...and always check for $@ after an eval!


cheers,
Aldo

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;