From: Peter E. <Pet...@at...> - 2002-03-05 20:01:44
|
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 > |
From: <pau...@or...> - 2002-03-06 08:43:35
|
Hi I've tried the code on XP and I don't get the first window or the button in the "Window Title" window. If I cut and paste the declaration for window 2 and call it window 3 I get another window but if I call it W1 I still don't see it ????? I'll keep thinking ;-) PB ******************************************************************************* Important. Confidentiality: This communication is intended for the above-named person and may be confidential and/or legally privileged. Any opinions expressed in this communication are not necessarily those of the company. If it has come to you in error you must take no action based on it, nor must you copy or show it to anyone; please delete/destroy and inform the sender immediately. Monitoring/Viruses Orange may monitor all incoming and outgoing emails in line with current legislation. Although we have taken steps to ensure that this email and attachments are free from any virus, we advise that in keeping with good computing practice the recipient should ensure they are actually virus free. Orange PCS Limited is a subsidiary of Orange SA and is registered in England No 2178917, with its address at St James Court, Great Park Road, Almondsbury Park, Bradley Stoke, Bristol BS32 4QJ. ******************************************************************************* |
From: <pau...@or...> - 2002-03-06 09:05:22
|
Hmm, interesting. Are you by any chance trying to run the code from within a GUI debugger ? If I run your code from within Perl builder I get 2 windows. If I save the code and run it from a command window I get 3 windows ! Can't explain it but I'll keep thinking. I've replicated the behaviour with this code : use Win32::GUI; use strict; my $W = new Win32::GUI::Window( -title => "Window1", -left => 100, -top => 100, -width => 280, -height => 260, -name => "Window", ); my $X = new Win32::GUI::Window( -title => "Window2", -left => 150, -top => 150, -width => 280, -height => 260, -name => "Window2", ); $W->Show(); $X->Show(); Win32::GUI::Dialog(); If I run it through the debugger both $W and $X get initialised to Win32::GUI::Window objects but only window $W is shown. It seems to be the order that you call $WINDOW->Show(); If I move the $X->Show(); line before the corresponding line for window $W then window $W is shown but not window $X !!! Ah well so much for IDEs ! Cheers Paul ******************************************************************************* Important. Confidentiality: This communication is intended for the above-named person and may be confidential and/or legally privileged. Any opinions expressed in this communication are not necessarily those of the company. If it has come to you in error you must take no action based on it, nor must you copy or show it to anyone; please delete/destroy and inform the sender immediately. Monitoring/Viruses Orange may monitor all incoming and outgoing emails in line with current legislation. Although we have taken steps to ensure that this email and attachments are free from any virus, we advise that in keeping with good computing practice the recipient should ensure they are actually virus free. Orange PCS Limited is a subsidiary of Orange SA and is registered in England No 2178917, with its address at St James Court, Great Park Road, Almondsbury Park, Bradley Stoke, Bristol BS32 4QJ. ******************************************************************************* |
From: <Joe...@pa...> - 2002-03-06 13:23:22
|
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 |