use strict;
use Win32::GUI;

my $mainform = Win32::GUI::Window->new(-name=>'main',-text=>'test',-width=>200,-height=>200,-dialogui=>1);
my $button1 = $mainform->AddButton(-name=>'button1',-top=>10,-left=>10,-text=>"button1",-ok=>1);
my $button2 = $mainform->AddButton(-name=>'button2',-top=>40,-left=>10,-text=>"button2",-ok=>0);

$mainform->Show();
Win32::GUI::Dialog();

exit;

sub button1_Click
{
    $mainform->MessageBox("You clicked button1.  Changing the default to button2.","button1");
    $button1->Change(-ok=>0);
    $button2->Change(-ok=>1);
}

sub button2_Click
{
    Win32::GUI->MessageBox("You clicked button2.  Changing the default to button1.","button2");
    $button2->Change(-ok=>0);
    $button1->Change(-ok=>1);
}

sub main_Termintate
{
    $mainform->Hide();
    return -1;
}