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

[Guillem C. W. <vac...@es...>]

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:=20

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

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

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


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

  $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