Re: [perl-win32-gui] Event processing

[Robert Sherman]

oops...that's odd, because i was sure i had gotten it to work...oh,
well...how about this:

====================================================

use Win32::GUI;

$i=0;

$Win = new Win32::GUI::Window(
      -left   => 341,
      -top    => 218,
      -width  => 300,
      -height => 213,
      -name   => "Win",
      -text   => "Window Title"
      );



$Win->AddButton(
       -text    => "Loop",
       -name    => "Loop",
       -left    => 104.5,
       -top     => 102,
       -width   => 95,
       -height  => 28,
      );

$Win2 = new Win32::GUI::Window(
      -left   => 391,
      -top    => 238,
      -width  => 200,
      -height => 183,
      -name   => "Win2",
      -title   => "New Window",
      );

$Win2->AddLabel(
       -text    => "",
       -name    => "Label",
       -left    => 60,
       -top     => 30,
       -width   => 20,
       -height  => 20,
      );

$Win2->AddButton(
       -text    => "OK",
       -name    => "OK",
       -left    => 50,
       -top     => 102,
       -width   => 95,
       -height  => 28,
      );

$Win->Show();

Win32::GUI::Dialog();

sub Win_Terminate {
   return -1;
}

sub OK_Click {
   $Win2->Hide();
   $i++;
}

sub Loop_Click {
   &Show_Win2($i);
   
}

sub Show_Win2 {
   my $num = shift;

   $Win2->Label->Text($num);
   $Win2->Show();
   $Win2->Update();
   
}