Clicking on the gadget ID, the tab "Objects", the window "Form" does not activate the gadget.
Code: Select all
Enumeration FormWindow
#Window_0
EndEnumeration
Enumeration FormGadget
#Tree_0
#Container_0
#Text_0
#Container_1
#Text_1
EndEnumeration
Procedure OpenWindow_0(x = 0, y = 0, width = 600, height = 400)
OpenWindow(#Window_0, x, y, width, height, "", #PB_Window_SystemMenu)
HideWindow(#Window_0, 1)
TreeGadget(#Tree_0, 8, 8, 120, 384)
AddGadgetItem(#Tree_0, -1, "Container 1")
AddGadgetItem(#Tree_0, -1, "Container 2")
ContainerGadget(#Container_0, 136, 8, 456, 384)
TextGadget(#Text_0, 88, 8, 120, 16, "Container 1")
CloseGadgetList()
ContainerGadget(#Container_1, 136, 8, 456, 384)
TextGadget(#Text_1, 104, 32, 88, 16, "Container 2")
CloseGadgetList()
EndProcedure
Procedure Window_0_Events(event)
Select event
Case #PB_Event_CloseWindow
ProcedureReturn #False
Case #PB_Event_Menu
Select EventMenu()
EndSelect
Case #PB_Event_Gadget
Select EventGadget()
EndSelect
EndSelect
ProcedureReturn #True
EndProcedure