Re: [perl-win32-gui-users] Dinamic windows...

[Aldo C. <dad...@al...>]

Guillem Cunillera Wefers wrote:
> [...]
>  $b_guardar{$est_alu->{Nom}} =3D $w_analisi{$est_alu->{Nom}}->AddButton=
(
>  -text  =3D> "GUARDAR", # Text al bot=F3
>  -font  =3D> $Mailtool::mevesfonts::fo_normal,
>  -left  =3D> 520,
>  -top  =3D> 85,
>  -height  =3D> 25,
>  -name  =3D> "Mailtool::tutor::b_${est_alu->{Nom}}",  # ???????????????=
?????

the line above should read:

   -name  =3D> "Mailtool::tutor::b_$est_alu->{Nom}",

> How I can receive the event for every instance of button ??

do something like:

   eval qq{
     sub Mailtool::tutor::b_$est_alu->{Nom}_Click {
       Mailtool::tutor::b_Click( "$est_alu->{Nom}" );
     }
   };

this will call the "generic" Mailtool::tutor::b_Click subroutine, passing
$est_alu->{Nom} as its first parameter. you can then perform appropriate
actions for your instance.


cheers,
Aldo

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