Re: 7GUIs
- Posted by irv Nov 19, 2017
- 1731 views
Second:
include GtkEngine.e constant win = create(GtkWindow,"size=150x50,border=10,$destroy=Quit"), box = create(GtkBox,"orientation=HORIZONTAL,spacing=10"), Tc = create(GtkEntry,"width-chars=10,$activate=ConvertTemp"), Lc = create(GtkLabel,"text=Celsius ="), Tf = create(GtkEntry,"width-chars=10,$activate=ConvertTemp"), Lf = create(GtkLabel,"text=Fahrenheit") add(box,{Tc,Lc,Tf,Lf}) add(win,box) show_all(win) main() --------------------------------------- global function ConvertTemp(object ctl) --------------------------------------- object val = get(ctl,"text") if char_test(val,{{'0','9'}}) then val = to_number(val) switch ctl do case Tf then set(Tc,"text",(val - 32) * (5/9)) case else set(Tf,"text",val * (9/5) + 32) end switch end if return 0 end function