(Maybe something like InputRequester in PB.)
I used StringGadget, but maybe I'm doing something wrong. Or is there a more elegant alternative?
Thanks!
Code: Select all
Declare show()
Declare ButtonEvent()
Global string1
OpenWindow(0,550,110,420,256,"Example")
string1=StringGadget(1,120,100,170,20,"")
ButtonGadget(2,110,175,200,23,"Show value")
BindEvent(#PB_Event_Gadget,@ButtonEvent())
Procedure ButtonEvent()
Select EventGadget()
Case 2
show()
EndSelect
EndProcedure
Procedure show()
Debug(string1)
EndProcedure