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();
#################################
--
Brian, Tommy, Helen and Paka -- [EMAIL PROTECTED]
This message traveled at least 44,000 miles to reach you!
---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 071205-0, 12/05/2007
Tested on: 12/4/2007 8:34:50 PM
avast! is copyright (c) 2000-2007 ALWIL Software.
http://www.avast.com
-------------------------------------------------------------------------
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/
