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

[Peter E. <Pet...@at...>]

I too get all three windows without the button (this is probably because you
didn't specify where it should go) on NT4 Workstation.


> -----Original Message-----
> From: H C [mailto:key...@ya...]
> Sent: Tuesday, March 05, 2002 14:09
> To: Joe...@pa...;
> per...@li...
> Subject: Re: [perl-win32-gui-users] making windows - help w/code
> 
> 
> I'm using Win32::GUI 0.558 on Win2K SP2, and I get all
> three windows.  However, I don't get the button in the
> window entitled "Window Title".
> 
> --- Joe...@pa... wrote:
> > 
> > 
> > 
> > 
> > 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
> 
> 
> __________________________________________________
> Do You Yahoo!?
> Try FREE Yahoo! Mail - the world's greatest free email!
> http://mail.yahoo.com/
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>