################################################################################
#    Convertisseur francs / euros
#
#     Auteur: Yves Aubry
#    Licence: GPL
#
################################################################################

wm title . "Convertisseur francs/euros"

set coef 6.55957

entry .e_fr     -textvariable valFr 
entry .e_eur  -textvariable valEur

label .fr -text "Francs "
label .eur -text "Euros  "    ;# le caractère ¤ ne marche pas tjs

grid .e_fr -column 0 -row 0
grid .e_eur -column 0 -row 1

grid .fr -column 1 -row 0
grid .eur -column 1 -row 1

bind . <Escape> exit
focus  -force .fr 


;#bind .e_fr <KeyPress> calcEur
bind .e_fr <KeyRelease> calcEur

bind .e_eur <KeyRelease> calcFr

proc calcEur { } {
    global valEur valFr coef
    catch {set valEur [expr $valFr / $coef] } valEur
    
    if { $valFr == ""} { set valEur 0  }
       
}

proc calcFr { } {
    global valEur valFr coef
    catch {set valFr [expr $valEur * $coef] } valFr
    
    if { $valEur == ""} { set valFr 0  }
    
}