Re: 7GUIs

new topic     » goto parent     » topic index » view thread      » older message » newer message

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 
new topic     » goto parent     » topic index » view thread      » older message » newer message

Search



Quick Links

User menu

Not signed in.

Misc Menu