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

[<Joe...@pa...>]

Joe Pfaltzgraff@PATAPSCO
03/06/2002 08:23 AM

Yup, you're right, it must be an issue with Komodo, command line works fine,
Komodo doesn't.  My work around for now is I tell the window to hide, and then
show and it works.

Thanks!





"Rogers, John" <rog...@oc...> on 03/05/2002 06:27:20 PM

To:   Joe Pfaltzgraff/Patapsco@Patapsco
cc:

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



Hi,
I your problem is that you are running the code under the Komodo debugger.
try from command line.
I think this is a Komodo issue.

JohnR

-----Original Message-----
From: Joe...@pa... [mailto:Joe...@pa...]
Sent: Wednesday, 6 March 2002 5:00
To: per...@li...
Subject: [perl-win32-gui-users] making windows - help w/code






Joe Pfaltzgraff@PATAPSCO
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();



_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users