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

[Guillem Cunillera Wefers]

Maybe the subject is a litlle ambigous but...

Well, in this case I'm an trying to create and use a set of Windows with the 
same behaviour, that's to say: 

$w_analisi{$est_alu->{Nom}} = Win32::GUI::Window->new (
  -top  => 0,
  -left  => 0,
  -width     => 600, 
  -height    => 400,
     -minsize => [600,400],
  -text  => "Comentaris respecte $est_alu->{Nom}", 
  -name  => "Mailtool::tutor::e_w_analisi",);

 $comentaris{$est_alu->{Nom}} =$w_analisi{$est_alu->{Nom}}->AddTextfield(
 -foreground => [0, 0, 0],  # Color del text: negre
 -text
 -font  => $Mailtool::mevesfonts::fo_normal,
 -left  => 10,
 -top  => 10,
 -height  => 350,
 -width  => 480,
 -name  => "Mailtool::tutor::t_comentari",
 -addstyle => WS_CHILD | WS_VISIBLE | WS_VSCROLL 
            | ES_LEFT | ES_MULTILINE | ES_AUTOVSCROLL,
);

 $comentaris{$est_alu->{Nom}}->Text("${toteltex}");


 $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}}",  # ????????????????????
 );

  $w_analisi{$est_alu->{Nom}}->Show();


How I can receive the event for every instance of button ?? Every window have 
its own button.
I guess you understand what I'm trying to do...you know.....Monday morming...

Regards from Catalonia,
Guillem Cunillera i Wefers