RE: [perl-win32-gui-users] Updating a window.

[Peter E. <Pet...@at...>]

It sounds like you want a timer.

### untested

@stuff =3D (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:lb...@li...]
> Sent: Tuesday, June 26, 2001 1:53 PM
> To: per...@li...
> Subject: [perl-win32-gui-users] Updating a window.
>=20
>=20
> I am sure this is a really stupid question.  But how do I=20
> update things in=20
> the window I create WITHOUT human intervention.
>=20
> Here is what I have for a script:
> use Win32::GUI;
> $main =3D Win32::GUI::Window->new(
>        -name   =3D> 'Main',
>        -width  =3D> 100,
>        -height =3D> 100,
>        -text =3D> 'Louis',
>     );
> $main->AddLabel(
>        -name   =3D> "Louis",
>        -text   =3D> "Hello World 1"
>     );
> $sb=3D$main->AddStatusBar(
>        -name =3D> "Status"
>     );
> $sb->Text("Some data");
> $main->Show();
> Win32::GUI::Window();
>=20
> sub Main_Terminate {
>     -1;
> }
>=20
> sub Main_Resize {
>     $sb->Move(0, $main->ScaleHeight - $sb->Height);
>     $sb->Resize($main->ScaleWidth, $sb->Height);
> }
>=20
>=20
> Now what I would like to do it periodically update the text=20
> in the status=20
> bar with out the user getting involved.
>=20
> Thanks,
> Louis
>=20
> --
> =
=A4=A4=BA=B0`=B0=BA=A4=F8,=B8=B8,=F8=A4=BA=B0`=B0=BA=A4=F8=F8=A4=BA=B0`=B0=
=BA=A4=F8,=B8=B8,=F8=A4=BA=B0`=B0=BA=A4=F8=F8=A4=BA=B0`=B0=BA=A4
> =A4=B0`=B0Lightbridge, Inc
> =A4=B0`=B067 South Bedford St.
> =A4=B0`=B0Burlington MA 01832
> =A4=B0`=B0781.359.4795 mailto:lb...@li...
> =A4=B0`=B0http://www.lightbridge.com
> =
=A4=A4=BA=B0`=B0=BA=A4=F8,=B8=B8,=F8=A4=BA=B0`=B0=BA=A4=F8=F8=A4=BA=B0`=B0=
=BA=A4=F8,=B8=B8,=F8=A4=BA=B0`=B0=BA=A4=F8=F8=A4=BA=B0`=B0=BA=A4
>=20
>=20
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>=20