OpenEuphoria

Re: 7GUIs

• Posted by irv Nov 19, 2017
• 1767 views

That's a good idea - here's the first:

include GtkEngine.e 
 
integer ct = 0 
 
constant  
 win = create(GtkWindow,"size=150x50,border=10,$destroy=Quit"), 
 box = create(GtkBox,"homogeneous=TRUE"), 
 T = create(GtkEntry,"width-chars=10,text=0"), 
 B = create(GtkButton,"Count","CountUp") 
 add(box,{T,B}) 
 add(win,box) 
  
show_all(win) 
main() 
 
global function CountUp() 
 ct += 1 
 return set(T,"text",ct) 
end function