Re[4]: [perl-win32-gui] Button "-default" option

[Max Kozlov]

Hello Jonathan,

пятница, Май 07, 1999, you wrote:

JS> Could you show us some parts of your code?  Could you include the code where
JS> you create the window, the code where you add the buttons, and the code
JS> where you test the buttons?
here is all of my code :)

-------------------------------
use Win32::GUI;

$W = new Win32::GUI::Window(
    -title    => "Default Button test",
    -left     => 100,
    -top      => 100,
    -width    => 360,
    -height   => 260,
    -name     => "Window",
);

$Close = $W->AddButton(
        -name  => "Close",
        -left  => 250,
        -top   => 200,
        -width => 100,
        -text  => "Close",
    -default => 1,
    -ok => 1,
);

$W->Show;

Win32::GUI::Dialog();

sub Window_Terminate {
    return -1;
}

sub Close_Click {
    Window_Terminate();
}
sub Close_DblClick {
    Window_Terminate();
}
-------------------------------


Best regards,
 Max                            mailto:[EMAIL PROTECTED]