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]

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

[Jonathan Southwick]

- Original Message -
From: Max Kozlov [EMAIL PROTECTED]
To: Aldo Calpini [EMAIL PROTECTED]
Sent: Friday, May 07, 1999 9:49 AM
Subject: Re[2]: [perl-win32-gui] Button "-default" option

 with -default, -ok and any of it's combinations i can't get Click() or
 DblClick() event...
 Best regards,
  Maxmailto:[EMAIL PROTECTED]


Max,

Could you show us some parts of your code?  Could you include the code where
you create the window, the code where you add the buttons, and the code
where you test the buttons?

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

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

[Indy Singh]

how can i make DialogBox instead Window ? i don't found it in docu.

Change:
$W = new Win32::GUI::Window(
to:
$W = new Win32::GUI::DialogBox(

Indy

-Original Message-
From: Max Kozlov [EMAIL PROTECTED]
To: Aldo Calpini [EMAIL PROTECTED]
Date: Friday, May 07, 1999 12:15 PM
Subject: Re[4]: [perl-win32-gui] Button "-default" option


Hello Aldo,

ïÿòíèöà, Ìàé 07, 1999, you wrote:

AC sheesh... I forgot to add (once again) that:
AC -ok
AC -default
AC -cancel
AC -tabstop
AC -group
AC are ONLY valid inside a DialogBox, not inside a Window.

how can i make DialogBox instead Window ? i don't found it in docu.

may be it set in -style option ?  then, i think, will be fine to get
extended documentation about -style and within it description about above
limitation.

Best regards,
 Maxmailto:[EMAIL PROTECTED]

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,
 Maxmailto:[EMAIL PROTECTED]

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

[Max Kozlov]

Hello Aldo,

ïÿòíèöà, Ìàé 07, 1999, you wrote:

AC sheesh... I forgot to add (once again) that:
AC -ok
AC -default
AC -cancel
AC -tabstop
AC -group
AC are ONLY valid inside a DialogBox, not inside a Window.

how can i make DialogBox instead Window ? i don't found it in docu.

may be it set in -style option ?  then, i think, will be fine to get
extended documentation about -style and within it description about above
limitation.

Best regards,
 Maxmailto:[EMAIL PROTECTED]

[perl-win32-gui] Button -default option

[Max Kozlov]

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]