Thank you Brian, it works!
Waldemar Wednesday 05 of December 2007 02:34:50 napisałeś(-łaś): > Waldemar Biernacki wrote: > > Hello! > > > > At the end I've enclosed the little code of Perl/Win32:GUI. > > > > If you start the code you can notice that the sequence > > is the following: > > > > 1. Window appears on the screen. > > 2. An incomplete "field1" appears too. > > 3. After 2 seconds it disappears!!! for next 2 seconds and > > the field "field2" is displayed also incomplete. > > 4. At the end both fields are displayed correctly. > > > > Could anyone of you predict this disappearance looking at the code? > > If yes please let me know how to get the following sequence > > of events: > > > > 1. The first complete "field1" is displayed at the beginning. > > 2. After two seconds the second field is also displayed, > > but still the first is visible. > > > > And additional question: is this behavior (unlogical for me) > > the feature of Perl Win32::GUI or native Win32-GUI itself? > > > > Regards > > Waldemar > > > > I'm not sure what you are trying to do here, but if you want field1 to > show for 2 seconds, and then field2 to appear, here is the corrected > script. (There may be a better way to do this, but it's what I could > think of off the top of my head.) > > ################################# > #!/usr/bin/perl -w > > use warnings; > use strict; > > use Win32::GUI qw(); > > my $my_window = new Win32::GUI::Window ( > -name => 'my_window', > -size => [ 400, 400 ], > ); > $my_window->Show(1); > > my $field1 = $my_window->AddTextfield( > -name => 'field1', > -text => 'field1', > -pos => [ 30, 30 ], > -size => [ 100, 100 ], > ); > > $field1->SetFocus(); > $my_window->DoEvents(); # You need to DoEvents to see what you added to > the window > sleep(2); > > my $field2 = $my_window->AddTextfield( > -name => 'field2', > -text => 'field2', > -pos => [ 130, 130 ], > -size => [ 100, 100 ], > ); > > $field2->SetFocus(); > $my_window->DoEvents(); # Update the window > sleep(2); > > Win32::GUI::Dialog(); > > ################################# > ------------------------------------------------------------------------- SF.Net email is sponsored by: The Future of Linux Business White Paper from Novell. From the desktop to the data center, Linux is going mainstream. Let it simplify your IT future. http://altfarm.mediaplex.com/ad/ck/8857-50307-18918-4 _______________________________________________ Perl-Win32-GUI-Users mailing list Perl-Win32-GUI-Users@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users http://perl-win32-gui.sourceforge.net/
