you saved my day ;) thanks. |-----Urspr�ngliche Nachricht----- |Von: Arms, Mike [mailto:[EMAIL PROTECTED]] |Gesendet: Dienstag, 7. Januar 2003 00:28 |An: 'Dietmar Thal' |Cc: Activeperl |Betreff: RE: Win32::GUI app startup | | |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
