Code: Select all
#Dialog = 0
#Xml = 0
Runtime Procedure containerEvent()
Debug "abcd"
EndProcedure
Runtime Procedure remoteEvent()
PostEvent(#PB_Event_Gadget, 0, DialogGadget(#Dialog, "cont1"))
EndProcedure
XML$ = "<window id='0' name='test' text='test' minwidth='auto' minheight='auto' flags='#PB_Window_ScreenCentered | #PB_Window_SystemMenu | #PB_Window_SizeGadget'>" +
" <vbox expand='item:1'>" +
" <container name='cont1' onevent='containerEvent()'/>" +
" <button text='remote' onevent='remoteEvent()'/>" +
" </vbox>" +
"</window>"
If ParseXML(#Xml, XML$) And XMLStatus(#Xml) = #PB_XML_Success
If CreateDialog(#Dialog) And OpenXMLDialog(#Dialog, #Xml, "test")
; BindGadgetEvent(DialogGadget(#Dialog, "cont1"), @containerEvent())
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
EndIf
EndIf