Code: Select all
OpenWindow(0, 100, 100, 300, 200, "StringGadget LostFocus test")
StringGadget(0, 10, 10, 50, 20, "String")
ButtonGadget(1, 10, 50, 50, 20, "Button")
SetActiveGadget(0)
Repeat
Select WaitWindowEvent()
Case #PB_Event_Gadget
Select EventGadget()
Case 0 ; StringGadget
Select EventType()
Case #PB_EventType_LostFocus
Debug "#PB_EventType_LostFocus"
EndSelect
Case 1 ;ButtonGadget
;SetActiveGadget(1)
EndSelect
Case #PB_Event_CloseWindow
Break
EndSelect
ForEver