[perl-win32-gui-users] making windows - help w/code

[Joe_Pfaltzgraff]

Joe [EMAIL PROTECTED]
03/05/2002 01:59 PM

I have code that is supposed to make 2 windows...  only the second window is
made, the first never appears and the two are identical.  If I add code to make
another window at the beginning, the two windows are created, but not the
additional one.  From what I observed, the first attempt to create a window in a
program always fails, and all the others succeed...  Any idea what is going on,
or what to do about it?

Thanks!
Joe Pfaltzgraff

I'm running WinXP and Komodo 1.2

Here is the code - not much of a program at all yet - Which ever window I tell
to show first doesn't show.  I can do the first window twice and then it's okay.
With this code $W1 doesn't show.

use strict;
use Win32::GUI;

my($window) = new Win32::GUI::Window(
    -name => "window", -title => "Window Title",
    -left => 100, -top => 100, -width => 500, -height => 400, );

$window->AddButton( -name => "Button1" );
$window->Button1->Show();

my ($W1, $W2);

        $W1 = new Win32::GUI::Window(
                -name  => "W1",
                -title => "First Window",
                -pos   => [ 100, 100 ],
                -size  => [ 300, 200 ],
        );
        $W2 = new Win32::GUI::Window(
                -name  => "W2",
                -title => "Second Window",
                POs   => [ 150, 150 ],
                -size  => [ 300, 200 ],
        );


$W1->Show();
$W2->Show();
$window->Show();
Win32::GUI::Dialog();