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:[EMAIL PROTECTED] > Sent: Tuesday, March 05, 2002 14:09 > To: [EMAIL PROTECTED]; > perl-win32-gui-users@lists.sourceforge.net > 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". > > --- [EMAIL PROTECTED] wrote: > > > > > > > > > > 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(); > > > > > > > > _______________________________________________ > > Perl-Win32-GUI-Users mailing list > > Perl-Win32-GUI-Users@lists.sourceforge.net > > > 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 > Perl-Win32-GUI-Users@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users >
