aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Task/User-input-Graphical/Phix/user-input-graphical.phix
View file

@ -1,3 +1,6 @@
--
-- demo\rosetta\User_Input_Graphical.exw
--
include pGUI.e
Ihandle dlg, label1, input1, label2, input2, OK, Cancel
@ -17,7 +20,7 @@ function esc_close(Ihandle /*ih*/, atom c)
return iff(c=K_ESC?IUP_CLOSE:IUP_CONTINUE)
end function
IupOpen("demo/pGUI/")
IupOpen()
label1 = IupLabel("Please enter a string")
input1 = IupText("VALUE=\"a string\", EXPAND=HORIZONTAL")
label2 = IupLabel("and the number 75000")