RosettaCodeData/Task/Window-creation/Phix/window-creation.phix

-- demo\rosetta\Window_creation.exw
include pGUI.e

IupOpen()
Ihandle dlg = IupDialog(IupVbox({IupLabel("hello")},"MARGIN=200x200"))
IupSetAttribute(dlg,"TITLE","Hello")
IupCloseOnEscape(dlg)
IupShow(dlg)
IupMainLoop()
IupClose()
September 2017 Update 2017-09-23 10:01:46 +02:00			`-- demo\rosetta\Window_creation.exw`
Add tasks for all the new languages 2016-12-05 23:44:36 +01:00			`include pGUI.e`

September 2017 Update 2017-09-23 10:01:46 +02:00			`IupOpen()`
			`Ihandle dlg = IupDialog(IupVbox({IupLabel("hello")},"MARGIN=200x200"))`
			`IupSetAttribute(dlg,"TITLE","Hello")`
September Morn Update 2019-09-12 10:33:56 -07:00			`IupCloseOnEscape(dlg)`
September 2017 Update 2017-09-23 10:01:46 +02:00			`IupShow(dlg)`
			`IupMainLoop()`
			`IupClose()`