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

[Jonathan Southwick]

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 - >
>

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

[Aldo Calpini]

Max Kozlov wrote:
>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 ?

the option you're looking for is: -ok => 1

bye,
Aldo Calpini
<[EMAIL PROTECTED]>