perl-win32-gui-users

[perl-win32-gui-users] New window?

[Dave <da...@sk...>]

I am having a problem with a dialog box. The main problem is, it won't
show up. Below is the code I am using to open a new window from my main
window when a button is pushed ( store ) . Before this code is all of my
normal application code ( which works fine ). I have tried it with and
without the first and second Win32::GUI::Dialog(); entries. Neither will
make the new window appear. Can someone please tell me what I am doing
wrong?


<MainWindow GUI code is here >
$MainWindow->Show();

Win32::GUI::Dialog();

<subs for main window are here>

sub stored_Click {
      $Win=Win32::GUI::DialogBox->new(
#      -left   => 341,
#      -top    => 218,
      -width  => 563,
      -height => 368,
      -name   => "Win",
      -title   => "Window Title"
      );

$Win->Show();

$Win->AddRichEdit(
       -text    => "",
       -name    => "RichEdit_1",
       -left    => 1,
       -top     => 1,
       -width   => 552,
       -height  => 306,
      );

$Win->AddButton(
       -text    => "Save",
       -name    => "instrsave",
       -left    => 132,
       -top     => 316,
       -width   => 90,
       -height  => 21,
       -foreground    => 0,
      );

$Win->AddButton(
       -text    => "Cancel",
       -name    => "popupcancel",
       -left    => 343,
       -top     => 315,
       -width   => 95,
       -height  => 21,
       -foreground    => 0,
      );
}
Win32::GUI::Dialog();
sub Window_Terminate {
    return -1;
}

sub Close_Click {
    Window_Terminate();
};

Re: [perl-win32-gui-users] New window?

[Erick B. <er...@je...>]

Dave,

It's probably a good idea to put the $Win->Show(); at the end of the
'stored_Click 'sub, that is, after you added all the controls. And from what I
remember, you should only call Win32::GUI::Dialog(); once.

regards,

erick bourgeois
never stop questionning
www.jeb.ca

----- Original Message -----
From: Dave <da...@sk...>
To: <per...@li...>
Sent: Thursday, May 24, 2001 9:19 AM
Subject: [perl-win32-gui-users] New window?


| I am having a problem with a dialog box. The main problem is, it won't
| show up. Below is the code I am using to open a new window from my main
| window when a button is pushed ( store ) . Before this code is all of my
| normal application code ( which works fine ). I have tried it with and
| without the first and second Win32::GUI::Dialog(); entries. Neither will
| make the new window appear. Can someone please tell me what I am doing
| wrong?
|
|
| <MainWindow GUI code is here >
| $MainWindow->Show();
|
| Win32::GUI::Dialog();
|
| <subs for main window are here>
|
| sub stored_Click {
|       $Win=Win32::GUI::DialogBox->new(
| #      -left   => 341,
| #      -top    => 218,
|       -width  => 563,
|       -height => 368,
|       -name   => "Win",
|       -title   => "Window Title"
|       );
|
| $Win->Show();
|
| $Win->AddRichEdit(
|        -text    => "",
|        -name    => "RichEdit_1",
|        -left    => 1,
|        -top     => 1,
|        -width   => 552,
|        -height  => 306,
|       );
|
| $Win->AddButton(
|        -text    => "Save",
|        -name    => "instrsave",
|        -left    => 132,
|        -top     => 316,
|        -width   => 90,
|        -height  => 21,
|        -foreground    => 0,
|       );
|
| $Win->AddButton(
|        -text    => "Cancel",
|        -name    => "popupcancel",
|        -left    => 343,
|        -top     => 315,
|        -width   => 95,
|        -height  => 21,
|        -foreground    => 0,
|       );
| }
| Win32::GUI::Dialog();
| sub Window_Terminate {
|     return -1;
| }
|
| sub Close_Click {
|     Window_Terminate();
| };
|
|
| _______________________________________________
| Perl-Win32-GUI-Users mailing list
| Per...@li...
| http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
|