Refresh gadget before a delay

[Lebostein]

Code: Select all

Procedure x()
  ...
  SetGadgetText(GID_Text, "Loading...")
  LoadData() ; needs 1 or 2 Seconds
  SetGadgetText(GID_Text, "Ready")
  ...
EndProcedure

Problem: the text gadget is not updated while loading. The text "Loading..." does not appear. I can add a WindowEvent() after settext but my procedure is binded and WindowEvent() is not allowed. Any hints?

[Demivec]

Make your x() procedure handle different parts in stages (using Select/Case to process each possible stage) with all but the first stage handled and signaled by using PostEvent() at the end of each stage (whenever you need a screen update). You can keep track of process in a structure you create in the procedure and include its address as part of the next stage's event data.

You would bind each of the sub events to the same procedure.

[Dude]

Try this before LoadData():

Code: Select all

UpdateWindow_(GadgetID(GID_Text))

[Josh]

Windows only:

Try to set a DoEvents() before LoadData()

Code: Select all

Procedure DoEvents()
  Define Msg.MSG

  While PeekMessage_(Msg, 0, 0, 0, #PM_REMOVE) <> 0
    TranslateMessage_(Msg)
    DispatchMessage_(Msg)
  Wend

EndProcedure