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

[Aldo Calpini]

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

the line above should read:

   -name  => "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__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;