It sounds like you want a timer.
### untested
@stuff = (0 .. 1000);
$main->AddTimer("Timer", 1000); ### once every second.
sub Timer_Timer
{
$x++;
$sb->Text("Incrementing value: $stuff[$x]");
}
> -----Original Message-----
> From: Louis Bohm [mailto:[EMAIL PROTECTED]
> Sent: Tuesday, June 26, 2001 1:53 PM
> To: perl-win32-gui-users@lists.sourceforge.net
> Subject: [perl-win32-gui-users] Updating a window.
>
>
> I am sure this is a really stupid question. But how do I
> update things in
> the window I create WITHOUT human intervention.
>
> Here is what I have for a script:
> use Win32::GUI;
> $main = Win32::GUI::Window->new(
> -name => 'Main',
> -width => 100,
> -height => 100,
> -text => 'Louis',
> );
> $main->AddLabel(
> -name => "Louis",
> -text => "Hello World 1"
> );
> $sb=$main->AddStatusBar(
> -name => "Status"
> );
> $sb->Text("Some data");
> $main->Show();
> Win32::GUI::Window();
>
> sub Main_Terminate {
> -1;
> }
>
> sub Main_Resize {
> $sb->Move(0, $main->ScaleHeight - $sb->Height);
> $sb->Resize($main->ScaleWidth, $sb->Height);
> }
>
>
> Now what I would like to do it periodically update the text
> in the status
> bar with out the user getting involved.
>
> Thanks,
> Louis
>
> --
> ¤¤º°`°º¤ø,¸¸,ø¤º°`°º¤øø¤º°`°º¤ø,¸¸,ø¤º°`°º¤øø¤º°`°º¤
> ¤°`°Lightbridge, Inc
> ¤°`°67 South Bedford St.
> ¤°`°Burlington MA 01832
> ¤°`°781.359.4795 mailto:[EMAIL PROTECTED]
> ¤°`°http://www.lightbridge.com
> ¤¤º°`°º¤ø,¸¸,ø¤º°`°º¤øø¤º°`°º¤ø,¸¸,ø¤º°`°º¤øø¤º°`°º¤
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
