#! /usr/bin/perl 
use Tk;
$main = MainWindow->new(-title=>'Convertisseur Euro :');
$frame1 = $main->Frame()->pack();
$frameG = $frame1->Frame()->pack(-side=>'left', -pady=>5);
$frameD = $frame1->Frame()->pack(-side=>'right', -pady=>5);
$frame2 = $main->Frame()->pack();
$frame3 = $main->Frame()->pack();
$libelF = $frameG->Label(-text=>'Francs :')->pack(-padx=>5);
$montantF = $frameD->Entry()->pack();
$libelE = $frameG->Label(-text=>'Euros :')->pack(-padx=>5);
$montantE = $frameD->Entry()->pack();
$libelD = $frameG->Label(-text=>'Dollars :')->pack(-padx=>5);
$montantD = $frameD->Entry()->pack();
$raz = $frame2->Button(-text=>'RAZ', -command=>\&vider)->pack(-side=>'left', -padx=>20, -pady=>5);
$calcul = $frame2->Button(-text=>'Calculer', -command=>\&calcul)->pack(-side=>'right', -padx=>20, -pady=>5);
$fin = $frame3->Button(-text=>'Fermer', -command=>sub {exit})->pack(-pady=>5);
MainLoop;

sub calcul {
    $valeur=$montantF->get();
    if ($valeur ne "") {
	$montantE->delete(0, 'end');
	$montantE->insert(0, int($valeur*100/6.55957)/100);
	$montantD->delete(0, 'end');
	$montantD->insert(0, int($valeur*100/6.55957)/100);
    }
    else {
	$valeur=$montantE->get();
	if ($valeur ne "") {
	    $montantF->delete(0, 'end');
	    $montantF->insert(0, int($valeur * 655.957)/100);
	    $montantD->delete(0, 'end');
	    $montantD->insert(0, $valeur);
	}
	else {
	    $valeur=$montantD->get();
	    if ($valeur ne "") {
		$montantF->delete(0, 'end');
		$montantF->insert(0, int($valeur * 655.957)/100);
		$montantE->delete(0, 'end');
		$montantE->insert(0, $valeur);
	    }
	}
    }
}

sub vider
{
	$montantF->delete(0, 'end');
	$montantE->delete(0, 'end');
	$montantD->delete(0, 'end');
}