Code: Select all
Procedure Watcher1(*x)
Shared cBlock.s
Repeat
cBlock.s = Str(Random(999999))
PostEvent(999)
Delay(550)
ForEver
EndProcedure
OpenWindow(0, 100, 20, 820, 310, "Dashboard 5")
ButtonGadget(8, 20, 270, 200, 24, "Test 1")
TextGadget(333, 750, 270, 140, 28, "...")
CreateThread(@Watcher1(), 0)
Repeat
e = WaitWindowEvent()
Select e
Case 999 : SetGadgetText(333, cBlock)
Case #PB_Event_CloseWindow : End
EndSelect
ForEver