#!perl -w
use strict;
use warnings;
use Win32::GUI();
my $W1 = Win32::GUI::Window->new(
-name => "W1",
-title => "First Window",
-pos => [ 100, 100 ],
-size => [ 300, 200 ],
);
$W1->AddButton(
-name => "Button1",
-text => "Open popup window",
-pos => [ 10, 10 ],
);
my $W2 = Win32::GUI::Window->new(
-name => "W2",
-title => "Second Window",
-pos => [ 150, 150 ],
-size => [ 300, 200 ],
);
$W2->AddButton(
-name => "Button2",
-text => "Close this window",
-pos => [ 10, 10 ],
);
$W1->Show();
Win32::GUI::Dialog();
exit(0);
sub W1_Terminate {
return -1;
}
sub Button1_Click {
$W2->Show();
return 0;
}
sub Button2_Click {
$W2->Hide();
return 0;
}