From: Max Kozlov <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, May 07, 1999 8:29 AM
Subject: [perl-win32-gui] Button "-default" option
> Hello perl-win32-gui,
>
> is it works ?
>
> $W->AddButton(
> -name => "Simple",
> -left => 5,
> -top => 5,
> -text => "Click button",
> -default => 1
> );
>
> when i set '-default=>1' then i get "default" shape of button, but when
i press
> 'Enter' i don't get any event. why ?
>
> Best regards,
> Max mailto:[EMAIL PROTECTED]
>
Max,
Try adding this option also:
-ok => 1,
So you would have:
$W->AddButton(
-name => "Simple",
-left => 5,
-top => 5,
-text => "Click button",
-default => 1,
-ok => 1,
);
This should work, I think. ;]
Jonathan Southwick [EMAIL PROTECTED]
Technical & Network Services 814-332-2755
Allegheny College
Meadville, PA 16335
----------------------------------
***Everything is within walking distance if you've got the time ***
----- Original Message ----- >
>
