If you comment the line "AddWindowTimer(), it works OK
Code: Select all
OpenWindow(0, 100, 100, 300, 200, "Main Window")
OpenWindow(1, 150, 150, 150, 150, "Child Window", 0, WindowID(0))
AddWindowTimer(0, 0, 100)
Repeat
Select WaitWindowEvent()
Case #WM_CHAR
Debug Str(EventWindow()) + " - " + Str(EventwParam())
Case #PB_Event_CloseWindow
Break
EndSelect
ForEver