Try adding this after the call to AddLabel() :
Win32::GUI::DoEvents();
--
Mike Arms
Dietmar Thal ([EMAIL PROTECTED]) wrote:
> |Did you try to put the "loading" popup code into a BEGIN{}
> |block just below the
> | use Win32::GUI;
> |?
>
> yes, that does it.
> the loading popup appears just in moment the script is run.
> but when i try the following code:
>
> use Win32::GUI;
>
> BEGIN {
> $win{status} = new Win32::GUI::Window(
> -name => "WindowStatus",
> -width => 360,
> -height => 80,
> -text => "Status",
> -style => 348651716
> | WS_VISIBLE
> | WS_POPUPWINDOW
> | WS_NOTIFY,
> );
> $win{status}->AddLabel(
> -name => "LabelStatus",
> -text => "loading ...",
> -left => 18,
> -top => 20,
> -width => 340,
> -height => 40,
> );
> }
>
> the label within the window doesn't appear. any idea why?
>
> thanks Jenda,
>
>
> Dietmar
>
>
> |From: "Dietmar Thal" <[EMAIL PROTECTED]>
> |> i just wondered if there is a way to accelerate the
> |> loading process of a Win32::GUI application? the point
> |> is that it seems that the use of couple of modules makes
> |> it take up to 6 seconds to display the main window...
> |> once in memory it goes quite more quick. i already tried
> |> to create a kind of 'loading' popup win, but it also
> |> displays after the whole script is parsed (my suggestion).
> |
> |Did you try to put the "loading" popup code into a BEGIN{}
> |block just below the
> | use Win32::GUI;
> |?
> |
> |Jenda
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
