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

[Glenn L. <Gle...@ne...>]

If, by "without human intervention" and "periodically", you mean that the=
re is
no GUI event which triggers the need to update the status bar text, then =
the
answer to your question depends on what does trigger the need to update t=
he
status bar text.

If "periodically" is truely the answer, that you want to wake up periodic=
ally,
and execute some code to determine what the status bar text should curren=
tly
be, then perhaps the Win32::GUI::Timer is what you are looking for.

Louis Bohm wrote:

> 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 =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();
>
> 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 stat=
us
> bar with out the user getting involved.
>
> Thanks,
> Louis
>
> --
> =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
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

--
Glenn
=3D=3D=3D=3D=3D
Due to the current economic situation, the light at the
end of the tunnel will be turned off until further notice.