Add StatusBar, ToolBar, Menus to Dialogs

[HeX0R]

still working here

Code: Select all

	;a$ = GetXMLString()
	CatchImage(#Image_Load, ?Pic, ?PicEnd - ?Pic)
	;If CatchXML(0, @a$, StringByteLength(a$), 0, #PB_Unicode)
	If LoadXML(0, "..\test_dialogs\joubarbe.xml")
; 		DEX::ParseDialogXML(0)
		
		CreateDialog(0)
		OpenXMLDialog(0, 0, "window_1")
		DEX::InitDialog(0, 0, "window_1")
		;SetGadgetText(DialogGadget(0, "editor_1"), ~"this is our dialog xml:\n\n" + a$)
		
		Repeat
			Select WaitWindowEvent()
				Case #PB_Event_CloseWindow
					Break
			EndSelect
		ForEver
	EndIf