#!/usr/bin/wish

package require http

namespace eval action {
}

proc reception {canal adresse client} {
	fconfigure $canal -buffering none
	gets $canal numero
	if {$numero != ""} {
		if {$numero == "appelant"} {
			puts $canal $::numero
			close $canal
		} else {
			close $canal
			action saisie $numero ""
		}
	}
}

proc correspondant {n} {
	if {$n != $::numero} {
		set ::numero $n
		regsub (^\[0-9\]\[0-9\]\[0-9\]\[0-9\]\[0-9\]\[0-9\]\[0-9\]\[0-9\]\[0-9\]$) $::numero "0\\0" ::numero
		# ICI début de communication avec ce numéro
	}
}

proc ecoute {} {
	if {[catch {socket -server "reception" -myaddr 127.0.0.1 3003}]} {
		return 0
	} else {
		return 1
	}
}

proc sauveDonnees {} {
	array set ::droit [list utilisateur $::utilisateur]
	array set ::droit [list passe $::passe]
	array set ::droit [list alias $::alias]
	set fd [open [file dirname $::argv0]/cti.dat w]
	puts $fd [array get ::droit]
	close $fd

	array set ::param [list limitecpt $::limitecpt]
	array set ::param [list interception $::interception]
	array set ::param [list edphone $::edphone]
	array set ::param [list dateversion $::dateversion]
	array set ::param [list codecdefaut $::codecdefaut]
	array set ::param [list descoff $::descoff]
	set fd [open [file dirname $::argv0]/ctibdd.dat w]
	puts $fd [array get ::param]
	close $fd
}

proc ferme {} {
	set pas 20
	set geo [winfo geometry .]
	set x [winfo x .]
	set y [winfo y .]
	set l [winfo width .]
	set h [winfo height .]
	set cx [expr $x + $l / 2]
	set cy [expr $y + $h / 2]
	if {$h > $l} {
		set pasx $pas
		set pady [expr $pas * $h / $l]
	} else {
		set pasx [expr $pas * $l / $h]
		set pasy $pas
	}
	while {$h > 0 && $l > 0} {
		set x [expr $cx - $l / 2]
		set y [expr $cy - $h / 2]
		wm geometry . ${h}x${l}+${x}+${y}
		update idletasks
		incr h -$pasy
		incr l -$pasx
	}
	wm iconify .
	wm geometry . $geo
}

proc recupDonnees {} {
	if {[file exists [file dirname $::argv0]/cti.dat]} {
		set fd [open [file dirname $::argv0]/cti.dat r]
		catch {array set ::droit [read $fd]}
		close $fd
		if {[array names ::droit utilisateur] != "" && [array names ::droit passe] != "" && [array names ::droit alias] != ""} {
			set ::utilisateur $::droit(utilisateur)
			set ::passe $::droit(passe)
			set ::alias $::droit(alias)
		} else {
			file delete -force [file dirname $::argv0]/cti.dat
		}
	}
	set ::limitecpt 0
	set ::interception 0
	set ::edphone 0
	set ::dateversion 0
	set ::codecdefaut "PCM"
	set ::descoff 0
	if {[file exists [file dirname $::argv0]/ctibdd.dat]} {
		set fd [open [file dirname $::argv0]/ctibdd.dat r]
		catch {array set ::param [read $fd]}
		close $fd
		if {[array names ::param limitecpt] != ""} {
			set ::limitecpt $::param(limitecpt)
		}
		if {[array names ::param interception] != ""} {
			set ::interception $::param(interception)
		}
		if {[array names ::param edphone] != ""} {
			set ::edphone $::param(edphone)
		}
		if {[array names ::param dateversion] != ""} {
			set ::dateversion $::param(dateversion)
		}
		if {[array names ::param codecdefaut] != ""} {
			set ::codecdefaut $::param(codecdefaut)
		}
		if {[array names ::param descoff] != ""} {
			set ::descoff $::param(descoff)
		}
	}
	boucle "" ""
}

proc initialisation {} {
	set ::docprec ""
	set ::nbprincipal -1
	set ::sonnerie 0
	set ::nbsignal -1
	set ::nbgarde -1
	set ::nbaction ""
	set ::nbcompte -1
	set ::appelEnCours 0
	set ::prochain ""
	set ::jaifaituntruc 0
	set ::rafraichissement 0
	array set ::journal [list "" ""]
	set ::option ""
}

proc ecritcoordonnees {} {
	catch {destroy ${::sommet}.coordonnees}
	regexp (^0)(\[0-9\]\[0-9\]\[0-9\]\[0-9\]\[0-9\]\[0-9\]\[0-9\]\[0-9\]\[0-9\]$) $::nouvalias t z ::nouvalias
	set ::utilisateur $::nouvutilisateur
	set ::passe $::nouvpasse
	set ::alias $::nouvalias
	sauveDonnees
	initialisation
	boucle "" ""
	.param.alias configure -text "Votre poste : $::alias"
	.param.bouton configure -command "coordonnees \"Paramètres\""
	return 1
}

proc coordonnees {t} {
	if {[winfo exists ${::sommet}.coordonnees]} {
		return
	}
	set ::nouvutilisateur $::utilisateur
	set ::nouvpasse $::passe
	set ::nouvalias $::alias
	.param.bouton configure -command ""
	toplevel ${::sommet}.coordonnees
	label ${::sommet}.coordonnees.titre -text $t -relief sunken -borderwidth 3
	frame ${::sommet}.coordonnees.saisie
	frame ${::sommet}.coordonnees.saisie.utilisateur
	label ${::sommet}.coordonnees.saisie.utilisateur.titre -text "Nom d'utilisateur"
	entry ${::sommet}.coordonnees.saisie.utilisateur.entree -width 20 -textvariable ::nouvutilisateur
	frame ${::sommet}.coordonnees.saisie.passe
	label ${::sommet}.coordonnees.saisie.passe.titre -text "Mot de passe"
	entry ${::sommet}.coordonnees.saisie.passe.entree -width 20 -textvariable ::nouvpasse
	frame ${::sommet}.coordonnees.saisie.numero
	label ${::sommet}.coordonnees.saisie.numero.titre -text "Numéro de téléphone"
	entry ${::sommet}.coordonnees.saisie.numero.entree -width 10 -textvariable ::nouvalias
	frame ${::sommet}.coordonnees.options
	checkbutton ${::sommet}.coordonnees.options.compte -text "Limiter à ce compte (ou toute la société)" -variable "::limitecpt" -onvalue 1 -offvalue 0
	checkbutton ${::sommet}.coordonnees.options.interception -text "Signaler tous les appels (pour interception)" -variable "::interception" -onvalue 1 -offvalue 0
	checkbutton ${::sommet}.coordonnees.options.descoff -text "Afficher la description officielle des utilisateurs" -variable "::descoff" -onvalue 1 -offvalue 0
	# checkbutton ${::sommet}.coordonnees.options.edphone -text "Utiliser le softphone Étoile Dièse" -variable "::edphone" -onvalue 1 -offvalue 0
	set ::edphone 0

	button ${::sommet}.coordonnees.envoi -text "Validation" -command "ecritcoordonnees"
	pack ${::sommet}.coordonnees.titre -side top -fill x
	pack ${::sommet}.coordonnees.saisie -side top -fill x
	pack ${::sommet}.coordonnees.options -side top -fill x
	pack ${::sommet}.coordonnees.envoi -side top -fill x
	pack ${::sommet}.coordonnees.saisie.utilisateur -side left -expand 1 -fill both
	pack ${::sommet}.coordonnees.saisie.passe -side left -expand 1 -fill both
	pack ${::sommet}.coordonnees.saisie.numero -side left -expand 1 -fill both
	pack ${::sommet}.coordonnees.saisie.utilisateur.titre -side top -fill x
	pack ${::sommet}.coordonnees.saisie.utilisateur.entree -side top -fill x
	pack ${::sommet}.coordonnees.saisie.passe.titre -side top -fill x
	pack ${::sommet}.coordonnees.saisie.passe.entree -side top -fill x
	pack ${::sommet}.coordonnees.saisie.numero.titre -side top -fill x
	pack ${::sommet}.coordonnees.saisie.numero.entree -side top -fill x
	pack ${::sommet}.coordonnees.options.compte -side top -fill x
	pack ${::sommet}.coordonnees.options.interception -side top -fill x
	pack ${::sommet}.coordonnees.options.descoff -side top -fill x
	# pack ${::sommet}.coordonnees.options.edphone -side top -fill x
}

proc sauveprog {so jeton} {
	puts -nonewline $::fdprog [read $so]
}

proc getprog {url fichier} {
	if {$::systeme == "Windows"} {
		set wget "[file dirname $::argv0]/wget.exe"
	} else {
		set wget "wget"
	}
	set proto "http"
	regexp (^\[^:\]*) $url proto
	if {$proto == "https"} {
		file delete -force $fichier
		set fd [open "|wget -O $fichier -t 1 -T 10 -q -O - \"$url\"" r]
		set retour [read $fd]
		catch {close $fd}
		if {[file size $fichier] == 0} {
			set retour "ko"
			file delete -force $fichier
		} else {
			set retour "ok"
		}
	} else {
		set ::fdprog [open $fichier w]
		fconfigure $::fdprog -translation binary
		if {![catch {set jeton [::http::geturl $url -binary 1 -handler sauveprog]} erreur]} {
			close $::fdprog
			set retour [::http::status $jeton]
			::http::cleanup $jeton
			if {[file size $fichier] == 0} {
				set retour "ko"
			}
			if {$retour != "ok"} {
				file delete -force $fichier
			}
		} else {
			close $::fdprog
			file delete -force $fichier
			puts "ERREUR : $url - $erreur"
			set retour "ko"
		}
	}
	return $retour
}

proc http {url} {
	if {$::systeme == "Windows"} {
		set wget "[file dirname $::argv0]/wget.exe"
	} else {
		set wget "wget"
	}
	set proto "http"
	regexp (^\[^:\]*) $url proto
	if {$proto == "https"} {
		set fd [open "|wget -t 1 -T 10 -q -O - \"$url\"" r]
		set retour [read $fd]
		catch {close $fd}
	} else {
		if {![catch {set jeton [::http::geturl $url -timeout 3000]}]} {
			set retour [::http::data $jeton]
			::http::cleanup $jeton
		} else {
			set retour ""
		}
	}
	return $retour
}

proc analyse {doc bal} {
	set trouve 0
	while {[regexp (<)(\[^>\]+)(>) $doc t i balise]} {
		set trouve 1
		set debut [string first $t $doc]
		set exdeb [expr $debut + [string length $t]]
		set exfin [string first "</${balise}>" $doc $debut]
		if {$exfin == -1} {
			set fin "end"
			set exfin "end"
			set b $bal
		} else {
			set fin [expr $exfin + [string length $t] + 1]
			incr exfin -1
			if {$bal == ""} {
				set b $balise
			} else {
				set b "$bal,$balise"
			}
			if {[array names ::decompte $b] == ""} {
				array set ::decompte [list $b 1]
			} else {
				incr ::decompte($b)
			}
			set b "$b-[expr $::decompte($b) - 1]"
		}
		set d [string trim [string range $doc $exdeb $exfin]]
		incr debut -1
		set doc [string trim "[string range $doc 0 $debut][string range $doc $fin end]"]
		analyse $d $b
	}
	if {!$trouve && $doc != ""} {
		array set ::xml [list $bal $doc]
		if {[array names ::xml "xml-0,retour-0,url-0"] != ""} {
			set ::url $::xml(xml-0,retour-0,url-0)
		}
	}
}

proc telecharge {action saisie} {
	if {$::edphone && $action == "saisie" && !$::appelEnCours} {
		if {[appel $saisie 20 0]} {
			set document [http "${::url}?utilisateur=$::utilisateur&passe=$::passe&alias=$::alias&prog=[file tail $::argv0]$::option&action=fvauto&etiquette=$::etiqusuivi"]
			set ::rafraichissement 1
			set ::jaifaituntruc 1
		}
	} else {
		set a $action
		if {$::edphone && $action == ""} {
			if {[array names ::xml "xml-0,actions-0,fv-0"] != ""} {
				if {$::xml(xml-0,actions-0,fv-0) == "0"} {
					set a "fvauto"
				}
			}
		}
		set document [http "${::url}?utilisateur=$::utilisateur&passe=$::passe&alias=$::alias&saisie=$saisie&action=$a&prog=[file tail $::argv0]&etiquette=$::etiqusuivi$::option"]
		if {$::edphone && $action == "raccroche" && $saisie == ""} {
			raccroche
		}
	}
	set ::option ""
	set retour 1
	if {$document != "" && [string first "</xml>" $document] != -1} {
		if {$document != $::docprec || $::rafraichissement} {
			set ::rafraichissement 0
			catch {unset ::xml}
			catch {unset ::decompte}
			analyse $document ""
			if {[array names ::xml "xml-0,retour-0,etiquette-0"] != ""} {
				set ::etiqusuivi $::xml(xml-0,retour-0,etiquette-0)
			}
			if {$::docprec == ""} {
				if {[affichage]} {
					if {[remplissage]} {
						set ::docprec $document
					}
				} else {
					set retour 0
				}
			} else {
				if {![remplissage]} {
					if {[affichage]} {
						remplissage
						set ::docprec $document
					} else {
						set retour 0
					}
				} else {
					set ::docprec $document
				}
			}
		}
	}
	return $retour
}

proc affichage {} {
	initialisation
	catch {destroy $::centre}
	catch {destroy $::collaborateur}
	catch {destroy $::situation}
	catch {destroy $::principal}
	catch {destroy $::signal}
	catch {destroy $::garde}
	catch {destroy $::softphone}

	# Le code retour
	if {[array names ::xml "xml-0,retour-0,code-0"] != ""} {

		# Controle de la version
		if {[array names ::xml "xml-0,retour-0,dateversion-0"] != ""} {
			if {$::xml(xml-0,retour-0,dateversion-0) > $::dateversion} {
				catch {destroy .maj}
				toplevel .maj
				label .maj.message -text "Mise-à-jour du programme,\nveuillez patienter..." -font "Helvetica 16 bold"
				pack .maj.message
				update idletasks
				set recup [getprog $::xml(xml-0,retour-0,chemin-0) [file dirname $::argv0]/temp_[file tail $::argv0]]
				if {$recup == "ok"} {
					if {[file size [file dirname $::argv0]/temp_[file tail $::argv0]] == $::xml(xml-0,retour-0,taille-0)} {
						file rename -force $::argv0 [file dirname $::argv0]/vieu_[file tail $::argv0]
						file rename -force [file dirname $::argv0]/temp_[file tail $::argv0] $::argv0
						set ::dateversion $::xml(xml-0,retour-0,dateversion-0)
						sauveDonnees
						if {$::systeme == "Linux"} {
							file attributes $::argv0 -permissions 0755
						}
						set fd [open [file dirname $::argv0]/flag_[file tail $::argv0] w]
						close $fd
						if {$::systeme == "Darwin"} {
							exec wish $::argv0 &
						} else {
							exec $::argv0 &
						}
						file delete -force [file dirname $::argv0]/flag_[file tail $::argv0]
						exit
					} else {
						file delete -force [file dirname $::argv0]/temp_[file tail $::argv0]
					}
				}
			}
		}

		set code $::xml(xml-0,retour-0,code-0)
		if {$code != 0} {
			if {$::systeme != "Darwin"} {
				wm iconify .
			}
			coordonnees $::xml(xml-0,retour-0,libelle-0)
			return 0
		}

		frame $::centre -background $::fond
		frame $::collaborateur -background $::fond
		pack $::centre -side left -fill both
		pack $::collaborateur -side left -fill both
		frame $::situation -relief flat -background $::fond
		pack $::situation -side top -fill both -expand 1

		frame $::principal -relief flat -background $::fond
		frame $::signal -relief flat -background $::fond
		frame $::garde -relief flat -background $::fond
		label ${::principal}.titre -relief raised -background #caefff -text "Communication en cours" -width 50 -anchor c
		label ${::signal}.titre -relief raised -background #caefff -text "Signaux d'appel" -width 50 -anchor c
		label ${::garde}.titre -relief raised -background #caefff -text "Communication en attente" -width 50 -anchor c
		pack $::principal -side top -fill both -expand 1
		pack ${::principal}.titre -side top -fill x
		pack $::signal -side top -fill both -expand 1
		pack ${::signal}.titre -side top -fill x
		pack $::garde -side top -fill both -expand 1
		pack ${::garde}.titre -side top -fill x

		# Liste des comptes
		catch {unset ::nbposte}
		if {[array names ::decompte "xml-0,compte"] != ""} {
			set ::nbcompte $::decompte(xml-0,compte)
			set rang 0
			for {set compte 0} {$compte < $::nbcompte} {incr compte} {

				# Liste des postes
				if {[array names ::decompte "xml-0,compte-$compte,poste"] != ""} {
					array set ::nbposte [list $::xml(xml-0,compte-$compte,identite-0) $::decompte(xml-0,compte-$compte,poste)]
					for {set poste 0} {$poste < $::decompte(xml-0,compte-$compte,poste)} {incr poste} {
						if {$::xml(xml-0,compte-$compte,poste-${poste},identite-0) == $::utilisateur || $::limitecpt == 0} {
							if {[expr $rang % $::tailleColonne] == 0} {
								set indice [expr $rang / $::tailleColonne]
								frame ${::collaborateur}.colonne$indice
								pack ${::collaborateur}.colonne$indice -side left -fill y
							}
							frame ${::collaborateur}.colonne$indice.poste-$compte-$poste
							frame ${::collaborateur}.colonne$indice.poste-$compte-${poste}.bouton -background $::fond
							if {$::systeme == "Darwin"} {
								frame ${::collaborateur}.colonne$indice.poste-$compte-${poste}.bouton.pastille -width 20 -relief raised
							}
							button ${::collaborateur}.colonne$indice.poste-$compte-${poste}.bouton.b -background $::fond -activebackground $::fondactif -anchor w
							button ${::collaborateur}.colonne$indice.poste-$compte-${poste}.etiquette -text c -background $::fond -activebackground $::fondactif
							pack ${::collaborateur}.colonne$indice.poste-$compte-$poste -side top -fill x
							pack ${::collaborateur}.colonne$indice.poste-$compte-${poste}.bouton -side left -fill both -expand 1
							if {$::systeme == "Darwin"} {
								pack ${::collaborateur}.colonne$indice.poste-$compte-${poste}.bouton.pastille -side left -fill y
							}
							pack ${::collaborateur}.colonne$indice.poste-$compte-${poste}.bouton.b -side left -fill both -expand 1
							pack ${::collaborateur}.colonne$indice.poste-$compte-${poste}.etiquette -side left
							progBulle ${::collaborateur}.colonne$indice.poste-$compte-${poste}.etiquette "Modifier le libellé"
							incr rang
						}
					}
				}
			}
		}

		# L'Edphone
		if {$::edphone} {
			if {![file exists [file dirname $::argv0]/$::bibedphone]} {
				set ::fdprog [open [file dirname $::argv0]/$::bibedphone w]
				fconfigure $::fdprog -translation binary
				if {![catch {set jeton [::http::geturl $::urlbib$::bibedphone -binary 1 -handler sauveprog]} erreur]} {
					close $::fdprog
					::http::cleanup $jeton
				} else {
					close $::fdprog
					file delete -force [file dirname $::argv0]/$::bibedphone
					puts "ERREUR : ::urlbib$::bibedphone - $erreur"
				}
			}
			if {[file exists [file dirname $::argv0]/$::bibedphone]} {
				load [file dirname $::argv0]/$::bibedphone
				if {[array names ::xml "xml-0,situation-0,compte-0"] != "" &&
					[array names ::xml "xml-0,situation-0,domaine-0"] != "" &&
					[array names ::xml "xml-0,situation-0,identite-0"] != "" &&
					[array names ::xml "xml-0,situation-0,description-0"] != ""} {
					if {[enregistrement $::xml(xml-0,situation-0,description-0) $::alias $::xml(xml-0,situation-0,domaine-0) $::xml(xml-0,situation-0,compte-0) $::xml(xml-0,situation-0,identite-0) "ED" "diese7.etoilediese.fr" 120]} {
						if {[appel "testapplet@etoilediese.fr" 10 0]} {
							raccroche
							codec $::codecdefaut
							frame $::softphone -background $::fond
							frame ${::softphone}.compression -background $::fond
							radiobutton ${::softphone}.compression.speex -relief flat -text "Compression" -command "cfgcodec \"SPEEX\"" -variable "::codecdefaut" -value "SPEEX" -background $::fond -activebackground $::fondactif -borderwidth 0 -indicatoron 0
							radiobutton ${::softphone}.compression.pcm -relief flat -text "Qualité" -command "cfgcodec \"PCM\"" -variable "::codecdefaut" -value "PCM" -background $::fond -activebackground $::fondactif -borderwidth 0 -indicatoron 0

							pack ${::softphone}.compression -side left
							pack ${::softphone}.compression.speex -side left -fill x -expand 1
							pack ${::softphone}.compression.pcm -side left -fill x -expand 1
							pack $::softphone -side top -fill x
						} else {
							desenregistrement
							set ::edphone 0
						}
					} else {
						desenregistrement
						set ::edphone 0
					}
				} else {
					set ::edphone 0
				}
			} else {
				set ::edphone 0
			}
		}
		return 1
	} else {
		return 0
	}
}

proc clavier {} {
	if {[winfo exists .clavier]} {
		return
	}
	toplevel .clavier
	for {set ligne 0} {$ligne < 4} {incr ligne} {
		frame .clavier.ligne${ligne} -background $::fond
		pack .clavier.ligne${ligne} -side top
		for {set boucle 1} {$boucle < 4} {incr boucle} {
			set touche [expr $boucle + $ligne * 3]
			if {$touche == 10} {
				set touche "*"
			} elseif {$touche == 11} {
				set touche "0"
			} elseif {$touche == 12} {
				set touche "#"
			}
			button .clavier.ligne${ligne}.touche${boucle} -background $::fond -activebackground $::fondactif -command "dtmf \"$touche\"" -text $touche
			pack .clavier.ligne${ligne}.touche${boucle} -side left
		}
	}
}

proc cfgcodec {c} {
	codec $c
	set ::codecdefaut $c
	sauveDonnees
}

proc ecritetiquette {n} {
	if {[winfo exists .etiquette]} {
		destroy .etiquette
	}
	if {$::etiquette == ""} {
		catch {unset ::param(etiquette-$n)}
	} else {
		array set ::param [list "etiquette-$n" $::etiquette]
	}
	sauveDonnees
	initialisation
}

proc etiquette {n} {
	if {[winfo exists .etiquette]} {
		destroy .etiquette
	}
	toplevel .etiquette
	label .etiquette.titre -text "Etiquette de numéro" -background grey -relief ridge -borderwidth 3
	frame .etiquette.saisie
	label .etiquette.saisie.numero -text "Numéro $n"
	entry .etiquette.saisie.etiquette -width 20 -textvariable ::etiquette
	button .etiquette.saisie.envoi -text "Valider" -command "ecritetiquette $n"
	pack .etiquette.titre -side top -fill x -expand 1
	pack .etiquette.saisie -side top -fill x -expand 1
	pack .etiquette.saisie.numero -side left -fill x -expand 1
	pack .etiquette.saisie.etiquette -side left -fill x -expand 1
	pack .etiquette.saisie.envoi -side left -fill x -expand 1
	if {[array names ::param "etiquette-$n"] != ""} {
		set ::etiquette $::param(etiquette-$n)
	}
}

proc progBulle {ob texte} {
	bind $ob <Enter> "bulle $ob \"$texte\" %X %Y"
	bind $ob <Leave> "if {\$action::objetbulle == \"$ob\"} {catch {destroy .bulle}; catch {after cancel \$action::bulle}}; set action::objetbulle \"\""
}

proc bulle {ob texte x y} {
	if {$action::objetbulle != $ob} {
		catch {destroy .bulle}
		catch {after cancel $action::bulle}
		toplevel .bulle
		label .bulle.label -text $texte -background #fffabd -foreground black
		pack .bulle.label
		wm geometry .bulle +[expr ${x} + 10]+[expr ${y} + 10]
		wm overrideredirect .bulle 1
		set action::bulle [after 2000 "catch {destroy .bulle}"]
		set action::objetbulle $ob
		bind .bulle.label <Button> "catch {destroy .bulle}; catch {after cancel $action::bulle}"
	}
}

proc couper {e} {
	copier $e
	catch {$e delete sel.first sel.last}
}

proc copier {e} {
	set debut 0
	set fin 0
	if {![catch {
		set debut [$e index sel.first]
		set fin [$e index sel.last]
	}]} {
		set selection [string range [$e get] $debut $fin]
		clipboard clear
		clipboard append $selection
	}
}

proc coller {e} {
	focus -force $e
	if {![catch {set chaine [selection get -selection CLIPBOARD]}]} {
		set position [$e index insert]
		catch {
			set position [$e index sel.first]
			$e delete sel.first sel.last
		}
		$e insert insert $chaine
		$e selection range $position [expr $position + [string length $chaine]]
	}
}

proc recupSelection {} {
	set action::selection ""
	catch {set action::selection [selection get -selection CLIPBOARD]}
}

proc menuCtx {e x y} {
	finMenuCtx
	toplevel .menuCtx
	set chaine $action::selection
	if {$chaine == ""} {
		set chaine "<aucune>"
	} elseif {[string length $chaine] > 15} {
		set chaine "[string range $chaine 0 12]..."
	}
	if {$::systeme == "Darwin"} {
		label .menuCtx.selection -text "Sel. : $chaine" -relief ridge
	} else {
		label .menuCtx.selection -text "Sel. : $chaine" -font "Helvetica 10 bold" -relief ridge
	}
	button .menuCtx.couper -text "Couper (Ctrl-X)" -command "couper $e; finMenuCtx" -relief flat
	button .menuCtx.copier -text "Copier (Ctrl-C)" -command "copier $e; finMenuCtx" -relief flat
	button .menuCtx.coller -text "Coller (Ctrl-V)" -command "coller $e; finMenuCtx" -relief flat
	pack .menuCtx.selection -side top -fill x
	pack .menuCtx.couper -side top -fill x
	pack .menuCtx.copier -side top -fill x
	pack .menuCtx.coller -side top -fill x
	wm geometry .menuCtx +${x}+${y}
	wm overrideredirect .menuCtx 1
	set action::menuCtx [after 5000 "catch {destroy .menuCtx}"]
}

proc finMenuCtx {} {
	catch {destroy .menuCtx}
	catch {after cancel $action::menuCtx}
}

proc remplissage {} {
	set interception 0
	set force 0
	set sonnerie 0

	# L'étiquette d'unicité
	set nbclient ""
	if {[array names ::xml "xml-0,retour-0,client-0"] != ""} {
		set nbclient $::xml(xml-0,retour-0,client-0)
	}
	if {$nbclient != ""} {
		if {$nbclient > 1} {
			.param.alias configure -background red
			.param.alias configure -text "$nbclient clients CTI sur $::alias"
		} else {
			.param.alias configure -background $::fond
			.param.alias configure -text "Votre poste : $::alias"
		}
	} else {
		.param.alias configure -background $::fond
		.param.alias configure -text "Votre poste : $::alias"
	}

	# Liste des comptes
	if {[array names ::decompte "xml-0,compte"] != ""} {
		set rang 0
		for {set compte 0} {$compte < $::decompte(xml-0,compte)} {incr compte} {
			if {$::nbcompte != $::decompte(xml-0,compte)} {
				return 0
			}

			# Liste des postes
			if {[array names ::nbposte $::xml(xml-0,compte-$compte,identite-0)] == ""} {
				set nb 0
			} else {
				set nb $::nbposte($::xml(xml-0,compte-$compte,identite-0))
			}
			if {[array names ::decompte "xml-0,compte-$compte,poste"] != ""} {
				if {$nb != $::decompte(xml-0,compte-$compte,poste)} {
					return 0
				}
				for {set poste 0} {$poste < $::decompte(xml-0,compte-$compte,poste)} {incr poste} {
					if {$::xml(xml-0,compte-$compte,poste-${poste},identite-0) == $::utilisateur || $::limitecpt == 0} {
						set indice [expr $rang / $::tailleColonne]
						if {[array names ::param "etiquette-$::xml(xml-0,compte-$compte,poste-$poste,alias-0)"] != ""} {
							set texte $::param(etiquette-$::xml(xml-0,compte-$compte,poste-$poste,alias-0))
						} elseif {$::descoff && [array names ::xml "xml-0,compte-$compte,poste-$poste,description-0"] != ""} {
							if {[regexp (^\[1-59\]\[0-9\]\{8\}$) $::xml(xml-0,compte-$compte,poste-$poste,alias-0)]} {
								set note [string range $::xml(xml-0,compte-$compte,poste-$poste,alias-0) 5 end]
							} else {
								set note $::xml(xml-0,compte-$compte,poste-$poste,alias-0)
							}
							set texte "$note - $::xml(xml-0,compte-$compte,poste-$poste,description-0)"
						} else {
							set texte $::xml(xml-0,compte-$compte,poste-$poste,alias-0)
						}
						if {$::xml(xml-0,compte-$compte,poste-$poste,etat-0) == "libre"} {
							if {$::systeme == "Darwin"} {
								${::collaborateur}.colonne$indice.poste-$compte-${poste}.bouton.pastille configure -background white
							}
							${::collaborateur}.colonne$indice.poste-$compte-${poste}.bouton.b configure -text $texte -background white -command "action saisie $::xml(xml-0,compte-$compte,poste-$poste,alias-0) ${::collaborateur}.colonne$indice.poste-$compte-${poste}.bouton"
							progBulle ${::collaborateur}.colonne$indice.poste-$compte-${poste}.bouton "Appeler"
						} elseif {$::xml(xml-0,compte-$compte,poste-$poste,etat-0) == "sonnerie"} {
							if {$::systeme == "Darwin"} {
								${::collaborateur}.colonne$indice.poste-$compte-${poste}.bouton.pastille configure -background pink
							}
							${::collaborateur}.colonne$indice.poste-$compte-${poste}.bouton.b configure -text $texte -background pink -command "action saisie $::xml(xml-0,compte-$compte,poste-$poste,alias-0) ${::collaborateur}.colonne$indice.poste-$compte-${poste}.bouton"
							set sonnerie $::interception
							progBulle ${::collaborateur}.colonne$indice.poste-$compte-${poste}.bouton "Intercepter"
						} elseif {$::xml(xml-0,compte-$compte,poste-$poste,etat-0) == "absent"} {
							if {$::systeme == "Darwin"} {
								${::collaborateur}.colonne$indice.poste-$compte-${poste}.bouton.pastille configure -background grey
							}
							${::collaborateur}.colonne$indice.poste-$compte-${poste}.bouton.b configure -text $texte -background grey -command "action saisie $::xml(xml-0,compte-$compte,poste-$poste,alias-0) ${::collaborateur}.colonne$indice.poste-$compte-${poste}.bouton"
							progBulle ${::collaborateur}.colonne$indice.poste-$compte-${poste}.bouton "Absent"
						} else {
							if {$::systeme == "Darwin"} {
								${::collaborateur}.colonne$indice.poste-$compte-${poste}.bouton.pastille configure -background red
							}
							${::collaborateur}.colonne$indice.poste-$compte-${poste}.bouton.b configure -text $texte -background red -command "action saisie $::xml(xml-0,compte-$compte,poste-$poste,alias-0) ${::collaborateur}.colonne$indice.poste-$compte-${poste}.bouton"
							progBulle ${::collaborateur}.colonne$indice.poste-$compte-${poste}.bouton "Appeler (signal d'appel)"
						}
						if {$::xml(xml-0,compte-$compte,poste-$poste,alias-0) == $::alias} {
							${::collaborateur}.colonne$indice.poste-$compte-${poste}.bouton.b configure -command ""
							progBulle ${::collaborateur}.colonne$indice.poste-$compte-${poste}.bouton "C'est vous"
						}
						${::collaborateur}.colonne$indice.poste-$compte-${poste}.etiquette configure -command "etiquette $::xml(xml-0,compte-$compte,poste-$poste,alias-0)"
						incr rang
					}
				}
			}
		}
	}

	# Tables
	set autres ""
	set corres ""
	set raccr 1
	foreach {n} [list principal-sonnerie-attente signal garde-transfert] {
		set nb 0
		set nom [lindex [split $n "-"] 0]
		foreach {ev} [split $n "-"] {
			if {[array names ::decompte "xml-0,situation-0,$ev"] != ""} {
				incr nb $::decompte(xml-0,situation-0,$ev)
			}
		}
		eval "set objet \$::$nom"
		eval "set nbobjet \$::nb$nom"
		if {$nbobjet != $nb || $force} {
			set force 1
			catch {destroy ${objet}.interieur}
			frame ${objet}.interieur -relief flat -background $::fondactif
			pack ${objet}.interieur -side left -fill both -expand 1
			if {$nb == 0} {
				label ${objet}.interieur.libelle
				pack ${objet}.interieur.libelle -side top -fill x
			} else {
				for {set cpt 0} {$cpt < $nb} {incr cpt} {
					frame ${objet}.interieur.libelle-$cpt -background $::fondactif
					pack ${objet}.interieur.libelle-$cpt -side top -fill x
					label ${objet}.interieur.libelle-${cpt}.libelle -background $::fondactif
					pack ${objet}.interieur.libelle-${cpt}.libelle -side left -expand 1 -fill x
					if {$nom == "signal"} {
						button ${objet}.interieur.libelle-${cpt}.garde -text "v" -image garde -pady 1 -background white -foreground red -activebackground blue -activeforeground white
						pack ${objet}.interieur.libelle-${cpt}.garde -side left
						bind ${objet}.interieur.libelle-${cpt}.garde <Enter> "${objet}.interieur.libelle-${cpt}.libelle configure -background blue; bulle ${objet}.interieur.libelle-${cpt}.raccroche \"Garder en attente\" %X %Y"
						bind ${objet}.interieur.libelle-${cpt}.garde <Leave> "${objet}.interieur.libelle-${cpt}.libelle configure -background $::fondactif; set action::objetbulle \"\""
					} elseif {$nom == "garde"} {
						button ${objet}.interieur.libelle-${cpt}.reprend -text "o" -image reprend -pady 1 -background white -foreground red -activebackground blue -activeforeground white
						pack ${objet}.interieur.libelle-${cpt}.reprend -side left
						bind ${objet}.interieur.libelle-${cpt}.reprend <Enter> "${objet}.interieur.libelle-${cpt}.libelle configure -background blue; bulle ${objet}.interieur.libelle-${cpt}.raccroche \"Reprendre\" %X %Y"
						bind ${objet}.interieur.libelle-${cpt}.reprend <Leave> "${objet}.interieur.libelle-${cpt}.libelle configure -background $::fondactif; set action::objetbulle \"\""
					}
					button ${objet}.interieur.libelle-${cpt}.raccroche -text "x" -pady 1 -background white -foreground red -activebackground red -activeforeground white
					pack ${objet}.interieur.libelle-${cpt}.raccroche -side left
					bind ${objet}.interieur.libelle-${cpt}.raccroche <Enter> "${objet}.interieur.libelle-${cpt}.libelle configure -background red; bulle ${objet}.interieur.libelle-${cpt}.raccroche \"Déconnecter\" %X %Y"
					bind ${objet}.interieur.libelle-${cpt}.raccroche <Leave> "${objet}.interieur.libelle-${cpt}.libelle configure -background $::fondactif; set action::objetbulle \"\""
					bind ${objet}.interieur.libelle-${cpt}.libelle <Enter> "${objet}.interieur.libelle-${cpt}.libelle configure -background white"
					bind ${objet}.interieur.libelle-${cpt}.libelle <Leave> "${objet}.interieur.libelle-${cpt}.libelle configure -background $::fondactif"
				}
			}
			eval "set ::nb$nom $nb"
		}
		if {$nb == 0} {
			if {[array names ::xml "xml-0,situation-0,renvoi-0"] == ""} {
				${objet}.interieur.libelle configure -text "Personne en ligne" -background $::fondactif -foreground black
				${objet}.interieur configure -background $::fondactif
			} else {
				${objet}.interieur.libelle configure -text "Votre poste est renvoyé vers : $::xml(xml-0,situation-0,renvoi-0)" -background black -foreground yellow
				${objet}.interieur configure -background black
				set force 0
			}
		} else {
			set cpt 0
			foreach {ev} [split $n "-"] {
				if {[array names ::decompte "xml-0,situation-0,$ev"] != ""} {
					for {set cpt2 0} {$cpt2 < $::decompte(xml-0,situation-0,$ev)} {incr cpt2} {
						if {[array names ::xml "xml-0,situation-0,${ev}-$cpt2,correspondant-0"] != "" && [array names ::xml "xml-0,situation-0,${ev}-$cpt,duree-0"] != "" && [array names ::xml "xml-0,situation-0,${ev}-$cpt,identifiant-0"] != ""} {
							set raccr 0
							set libelle $::xml(xml-0,situation-0,${ev}-$cpt2,correspondant-0)
							if {[array names ::xml "xml-0,situation-0,${ev}-$cpt2,libelle-0"] != ""} {
								set libelle "$::xml(xml-0,situation-0,${ev}-$cpt2,libelle-0) - $libelle"
							}
							if {$ev == "sonnerie"} {
								set couleur red
								lappend corres $::xml(xml-0,situation-0,${ev}-$cpt2,correspondant-0)
							} elseif {$ev == "attente"} {
								set couleur grey
							} elseif {$ev == "transfert"} {
								set couleur blue
								lappend corres $::xml(xml-0,situation-0,${ev}-$cpt2,correspondant-0)
							} elseif {$ev == "signal"} {
								if {$autres != ""} {
									set couleur $autres
								} else {
									set couleur black
									lappend corres $::xml(xml-0,situation-0,${ev}-$cpt2,correspondant-0)
								}
							} elseif {$ev == "garde"} {
								set couleur grey
							} else {
								set couleur black
								lappend corres $::xml(xml-0,situation-0,${ev}-$cpt2,correspondant-0)
								set autres grey
							}
							if {$nom == "signal"} {
								${objet}.interieur.libelle-${cpt}.garde configure -command "action garde $::xml(xml-0,situation-0,${ev}-$cpt,identifiant-0) ${objet}.interieur.libelle-${cpt}.garde"
							} elseif {$nom == "garde"} {
								${objet}.interieur.libelle-${cpt}.reprend configure -command "action reprend $::xml(xml-0,situation-0,${ev}-$cpt,identifiant-0) ${objet}.interieur.libelle-${cpt}.reprend"
							}
							${objet}.interieur.libelle-${cpt}.raccroche configure -command "action raccroche $::xml(xml-0,situation-0,${ev}-$cpt,identifiant-0) ${objet}.interieur.libelle-${cpt}.raccroche"
							${objet}.interieur.libelle-${cpt}.libelle configure -text "$libelle [clock format $::xml(xml-0,situation-0,${ev}-$cpt,duree-0) -format "%H:%M:%S" -gmt 1]" -foreground $couleur -anchor w
							incr cpt
						}
					}
				}
			}
		}
	}

	# Autres évènements
	if {$sonnerie != $::sonnerie} {
		set force 1
		set ::sonnerie $sonnerie
	}

	# On évite les états de transition
	if {[llength $corres] > 0 || $raccr} {
		correspondant [join $corres ","]
	}

	# Actions
	set cpt 0
	set actn ""
	foreach {a} [lsort -ascii [array names ::xml "xml-0,actions-0,*"]] {
		lappend actn $a
		lappend actn $::xml($a)
	}
	if {$actn != $::nbaction || $::jaifaituntruc} {
		set ::jaifaituntruc 0
		set raccrocher 0
		catch {destroy $::action}
		frame $::action -relief sunken -borderwidth 1 -background $::fond
		pack $::action -side top -fill x
		set ::nbaction $actn
		foreach {a v} $actn {
			set ac [lindex [split [lindex [split $a ","] 2] "-"] 0]
			set nouveau 0
			if {[string first "xml-0,actions-0,saisie" $a] != -1} {
				frame ${::action}.action-$cpt -background $::fond
				entry ${::action}.action-$cpt.saisie -width 15 -textvariable "action::saisie$cpt"
				bind ${::action}.action-$cpt.saisie <Return> "${::action}.action-$cpt.envoi.b invoke"
				bind ${::action}.action-$cpt.saisie <3> "recupSelection; menuCtx ${::action}.action-$cpt.saisie %X %Y"
				bind ${::action}.action-$cpt.saisie <1> "finMenuCtx"
				bind ${::action}.action-$cpt.saisie <2> "finMenuCtx"
				frame ${::action}.action-$cpt.historique -background $::fond
				button ${::action}.action-$cpt.historique.b -image journal -command "" -background $::fond -activebackground $::fondactif
				if {$::systeme == "Darwin"} {
					label ${::action}.action-$cpt.historique.t -text "Appels" -background $::fond
				} else {
					label ${::action}.action-$cpt.historique.t -text "Appels" -background $::fond -font "Helvetica 8"
				}
				pack ${::action}.action-$cpt.historique.b -side top
				pack ${::action}.action-$cpt.historique.t -side top
				progBulle ${::action}.action-$cpt.historique "Journal des appels"
				bind ${::action}.action-$cpt.historique.b <ButtonRelease-1> "historique $cpt %X %Y"
				bouton ${::action}.action-$cpt.envoi $v "action saisie \$action::saisie$cpt ${::action}.action-$cpt.envoi; set action::saisie$cpt \"\""
				pack ${::action}.action-$cpt.historique -side left
				pack ${::action}.action-$cpt.saisie -side left
				pack ${::action}.action-$cpt.envoi -side left
				set nouveau 1
			} elseif {$v == 1 || $v == 0} {
				if {$ac != "fv" || !$::edphone} {
					eval "set action::$ac \"$v\""
					if {[array names ::images $ac] == ""} {
						checkbutton ${::action}.action-$cpt -text $ac -command "action $ac \"\" ${::action}.action-$cpt" -variable "action::$ac" -onvalue 1 -offvalue 0 -indicatoron 0 -background $::fond -activebackground $::fondactif
					} else {
						frame ${::action}.action-$cpt -background $::fond
						checkbutton ${::action}.action-$cpt.b -image $::images($ac) -command "action $ac \"\" ${::action}.action-$cpt" -variable "action::$ac" -onvalue 1 -offvalue 0 -indicatoron 0 -background $::fond -activebackground $::fondactif
						if {$::systeme == "Darwin"} {
							label ${::action}.action-$cpt.t -text $ac -background $::fond
						} else {
							label ${::action}.action-$cpt.t -text $ac -background $::fond -font "Helvetica 8"
						}
						pack ${::action}.action-$cpt.b -side top
						pack ${::action}.action-$cpt.t -side top
					}
					if {[array names ::commentaire $ac] != ""} {
						progBulle ${::action}.action-$cpt $::commentaire($ac)
					}
					set nouveau 1
				}
			} else {
				bouton ${::action}.action-$cpt $v "action $ac \"\" ${::action}.action-$cpt"
				if {$ac == "rejet" && $::edphone} {
					if {[attendAppel 1]} {
						pack ${::action}.action-$cpt -side left
						incr cpt
						bouton ${::action}.action-$cpt "Décrocher" prisedappel
					} else {
						puts "Echec de la présentation de l'appel"
					}
				}
				set nouveau 1
			}
			if {$nouveau} {
				if {$v == "Raccrocher"} {
					pack ${::action}.action-$cpt -side right
					set raccrocher 1
					if {$::edphone} {
						if {![finAppel]} {
							clavier
						}
					}
				} else {
					pack ${::action}.action-$cpt -side left
				}
				incr cpt
			}
		}
		if {$::edphone && !$raccrocher} {
			if {![finAppel]} {
				set raccrocher 1
				bouton ${::action}.action-$cpt "Raccrocher" "action raccroche \"\" ${::action}.action-$cpt"
				clavier
				pack ${::action}.action-$cpt -side right
			}
		}
		if {!$raccrocher} {
			catch {destroy .clavier}
		}
	}

	# Journal
	if {[array names ::xml "xml-0,journal-0*"] != ""} {
		unset ::journal
		array set ::journal [list "" ""]
		foreach {n} [array names ::xml "xml-0,journal-0*"] {
			array set ::journal [list $n $::xml($n)]
		}
	}

	# Fenetre
	if {$force} {
		if {[expr $::nbprincipal + $::nbsignal + $::nbgarde] == 0 && !$::sonnerie} {
			if {$::edphone} {
				for {set boucle 0} {$boucle < 5} {incr boucle} {
					if {[finAppel]} {
						raccroche
						break
					}
					after 1000
				}
			}
			set ::appelEnCours 0
			if {$::systeme != "Darwin"} {
				update idletasks
				wm iconify .
			}
		} else {
			set ::appelEnCours 1
			update idletasks
			wm deiconify .
		}
		set ::option "$::option&journal=oui"
	}

	return 1
}

proc prisedappel {} {
	if {[decroche 0]} {
		if {[array names ::xml "xml-0,actions-0,fv-0"] != ""} {
			if {$::xml(xml-0,actions-0,fv-0) == 0} {
				action "fvauto" "" ""
			}
		}
	} else {
		puts "Echec de la prise d'appel"
		raccroche
	}
}

proc historique {cpt x y} {
	if {[winfo exists .histo]} {
		catch {destroy .histo}
	} else {
		toplevel .histo
		button .histo.fermeture1 -background white -activebackground #caefff -command "catch {destroy .histo}" -text "Fermer"
		pack .histo.fermeture1 -side top -fill x
		frame .histo.centre
		text .histo.centre.texte -yscrollcommand ".histo.centre.scroll set" -setgrid true -width 65 -height 35 -wrap word -highlightthickness 0 -borderwidth 0 -background white
		scrollbar .histo.centre.scroll -command ".histo.centre.texte yview" -background $::fond -activebackground $::fondactif -highlightbackground $::fondactif -orient vertical
		set rang 0
		while {[array names ::journal "xml-0,journal-0,appel-${rang},*"] != ""} {
			set cmd "set action::saisie$cpt \"$::journal(xml-0,journal-0,appel-${rang},numero-0)\"; focus ${::action}.action-$cpt.saisie; .histo.fermeture1 invoke"
			set h $::journal(xml-0,journal-0,appel-${rang},reference-0)
			frame .histo.centre.texte.ligne${h}
			button .histo.centre.texte.ligne${h}.icone -background white -activebackground #caefff -relief flat -image "hi$::journal(xml-0,journal-0,appel-${rang},etat-0)" -command $cmd
			label .histo.centre.texte.ligne${h}.date -width 19 -background white -relief flat -text $::journal(xml-0,journal-0,appel-${rang},date-0)
			if {$::journal(xml-0,journal-0,appel-${rang},numero-0) != $::journal(xml-0,journal-0,appel-${rang},libelle-0)} {
				label .histo.centre.texte.ligne${h}.libelle -width 30 -background white -relief flat -text "$::journal(xml-0,journal-0,appel-${rang},numero-0) - $::journal(xml-0,journal-0,appel-${rang},libelle-0)"
			} else {
				label .histo.centre.texte.ligne${h}.libelle -width 30 -background white -relief flat -text $::journal(xml-0,journal-0,appel-${rang},libelle-0)
			}
			bind .histo.centre.texte.ligne${h} <Enter> ".histo.centre.texte.ligne${h}.icone configure -background #caefff; .histo.centre.texte.ligne${h}.date configure -background #caefff; .histo.centre.texte.ligne${h}.libelle configure -background #caefff;"
			bind .histo.centre.texte.ligne${h} <Leave> ".histo.centre.texte.ligne${h}.icone configure -background white; .histo.centre.texte.ligne${h}.date configure -background white; .histo.centre.texte.ligne${h}.libelle configure -background white;"
			foreach {suff} [list icone date libelle] {
				bind .histo.centre.texte.ligne${h}.${suff} <1> ".histo.centre.texte.ligne${h}.icone configure -relief sunken; .histo.centre.texte.ligne${h}.date configure -relief sunken; .histo.centre.texte.ligne${h}.libelle configure -relief sunken"
				bind .histo.centre.texte.ligne${h}.${suff} <5> ".histo.centre.texte yview scroll 1 units"
				bind .histo.centre.texte.ligne${h}.${suff} <4> ".histo.centre.texte yview scroll -1 units"
			}
			bind .histo.centre.texte.ligne${h}.date <ButtonRelease-1> $cmd
			bind .histo.centre.texte.ligne${h}.libelle <ButtonRelease-1> $cmd
			pack .histo.centre.texte.ligne${h}.icone -side left -fill y
			pack .histo.centre.texte.ligne${h}.date -side left -fill y
			pack .histo.centre.texte.ligne${h}.libelle -side left -fill y
			.histo.centre.texte window create end -window .histo.centre.texte.ligne${h}
			.histo.centre.texte insert end "\n"
			incr rang
		}
		pack .histo.centre -side top -fill x -expand 1
		pack .histo.centre.texte -side left -fill y -expand 1
		pack .histo.centre.scroll -side left -fill y -expand 1
		button .histo.fermeture2 -background white -activebackground #caefff -command "catch {destroy .histo}" -text "Fermer"
		pack .histo.fermeture2 -side top -fill x
		wm geometry .histo +${x}+[expr ${y} + 20]
		wm overrideredirect .histo 1
	}
}

proc bouton {nom texte cmd} {
	frame $nom -background $::fond
	if {[array names ::images $texte] == ""} {
		button $nom.b -text $texte -command $cmd -background $::fond -activebackground $::fondactif
		label $nom.t -text "" -background $::fond
	} else {
		button $nom.b -image $::images($texte) -command $cmd -background $::fond -activebackground $::fondactif
		if {$::systeme == "Darwin"} {
			label $nom.t -text $texte -background $::fond
		} else {
			label $nom.t -text $texte -background $::fond -font "Helvetica 8"
		}
	}
	pack $nom.b -side top
	pack $nom.t -side top -padx 3
	if {[array names ::commentaire $texte] != ""} {
		progBulle $nom $::commentaire($texte)
	}
}

# a : saisie (appel), garde, reprend, raccroche, ...
# c : associé à l'action, ex: numéro
# w : widget à invalider temporairement
proc action {a c w} {
	after cancel $::prochain
	if {$w != ""} {
		set ::jaifaituntruc 1
		set commande "$w.b cget -command"
		if {[winfo exists $w.b]} {
			$w.b configure -command ""
		} else {
			$w configure -command ""
		}
		after 10000 "set ::rafraichissement 1"
	}
	if {$a == "saisie" && $c != ""} {
		if {[regexp (^\[0-9\ ./\\+-\]*$) $c]} {
			regsub (^\\+) $c "00" c
			regsub -all (\[^0-9\]) $c "" c
		}
	}
	boucle $a $c
	return 1
}

proc boucle {a c} {
	after cancel $::prochain
	set focus [focus]
	if {[telecharge $a $c]} {
		set ::prochain [after 3000 "boucle \"\" \"\""]
	}
	if {[winfo exists $focus]} {
		focus $focus
	}
}

proc sortie {} {
	if {$::edphone} {
		raccroche
		desenregistrement
		after 1000
	}
	exit
}

wm title . "TELEPHONIE"
# wm geometry . "+0+0"
image create photo icone -data "R0lGODlhIAAfAOf/AI4LbmkcUl0gT3oWX40Pc5gNdIYUcXUbXn4ZaJkTe1wqTY0ZcIcdboUiaYMjbqYXg2otW14yU54bgHEsXkw7SJggfl42UJUkeHYxYqwgiJ0nfWM8W4MxbVtDUqcniLYij3U6YXg5Z4oyeK8ljI0zc6Irh2w/YGVCWoY5bZ0whqwtjY06d3JEZpk2gXZEbW5JZbcvk4lAeKo0jn1JbaM7iIdHdmZTYbY3lpBFfpdFhLk7mYVPdLA/lqxEkKZGj3ZYb3xWc55Lh7hCm7xDl5ZRh6VMkXNfbY5YfWVnZG9jb5NXhG5la6BUh61RkaVTlbpMoYVgebdOmrFQmL5NnaxTmGtra5Bgg65Vmn5ndoxjhK1YlbxTn7RXl6xZm6lblYNrgbxYm7tZobZcobNem65gmsJZpaNlk45vh65klnl3e7pgpYJ1gXl6eMJgqZxukbJmprxmo7JqosJlpbhpo6pum7VrnX+Afpd4kH2ChZN7kal0n75vqcVuq7F1ord0pIaIhb10rJmCksNzroqIjKl/msR4q756qpOKkI6Okb1+qcR7s7mApo+QjbmCrp6NlbKHqJiTkZOVkreJpsiDtMOFtJiWms6EvZial8KLt6qVpMGOsqGcm56gnc6PvsKWuaWho6GjoMmWu7+aurSfr86Ww6ulpK2kqruft6qnq6SprKepps6bwMafucCktcygwrCrqbmqta2vrM+nwsqpwsirvdSnyrazuLO1stCqy8SvvsCxvMyyycG3vbq8udG0xtSzzLy8wNmy0My3xsy6wsHDv9i7zcrAx8fCwc6/zcbEyNW/z9u+1szGxcbIxcXKzOTC3NbI1cvNysnO0NvJ0t7J2NHO08/RztjO1NXT19PV0uXP39/R39bY1eXT3N/V29nb2ODa2ejZ593f3Obc4uTe3eXg3u/d5uHj4OXi5+vh5+/l6+fp5u7o5+zp7ubs7uvt6u7w7fXv7vju9PLw9PHz8PP28vj2+vb49Pz39ff59v/6+fr8+ff9///9+/3//P///yH+EUNyZWF0ZWQgd2l0aCBHSU1QACH5BAEKAP8ALAAAAAAgAB8AAAj+AP0JHEiwoL99WlQo1JIv37169ejRg/duncGLA+f1EKJDhyaIICXCe7cO48V906aoFCLsHTx6EOnBg/duncmB8tSpsyerjRxFe6qdWwePXj16M9etu+lv37x6wX4t4oPrHrVW3NbBo1ePHrx3Sgnqs2eP4Lx59yw1MSOIWjxSd5qtoweRHrx34NgRxJfIzziB+tTNmaPCgxI/TpyUyMIMXr179ehdi+Pj3EB+nqaUgeMr3z519dp5yJDj0b14MrJEq9fQWyMZHz4MG+grypY2fAR5Qtcu37MMD1KcyhcugxVn+9B5AjNFB4wPfQS2kzIljBw+iiZRivOmhwoPIoj+OKGh4owuWpQUhdkyBMaHFgL3KauTLt0VdujGqGt3JR07MuOwAwg19MxCTTzeaBHGEz3ogYpA++yzTT7j7IFPOnDk044a+dQjRT71iDFPPnq0k08uNXghCTC2lOLPPvzkM0scVPQwBxU0xNGFDF10UQIZXpRARREtdDGGC1gkk00vqoCyz5P3cJOHAwQkQMAy4xgiQQEAhJLOLxIAQMACBBBgQyzcRNNLLKo8uU8+7iRzCRAMVDBPPWFk8AAB4eDTiQQGEIAAAQ6wQcw30RDTyy1u4mMPPeUAg8gXmFDiQQYZbIAJJTxcsIYxxiRRBSjciJNNNM008yQ+24zjiiv+3rCiiTKeAEJNMTEooUEJHPBSTzppqJLNOud8w0021jw5jzr1FKJNPZMsU88qz9TzzAjz0NNJCL5ow8oS2dQDzzrniMNNNg1184ssPdSCSw+u1CJFLb/w8UQ+97RBggMAHAAEIeN4c4044nBjTUPsBBKBAAEckMOrHiSAwAAx9AGICiH88MIJR9BRTzymRPNNNtHAM0sTPuBQwwwsjFKPOSNk4EEHNhiRzjiGWOGGG0SIMs81J6CSjTXNFPHBDUJEwcUYaECjDi6YavADIazkU88WUCwyCRkrTKAABDgAk+ocH8AgxBRhLIIMMpnUIIIDGEChyS7Y8ILDILAksof+EiCEsEIgwPTSCy2x3YDGMOdMkw89PGCKghuGmEFEDGyo8g02j4zRhA9WgJJKLLeQI0MRmTgTTTbQzJOOBxo0YIIZ3aRDCQ2gSCMON81k0gQTiCASCSeqoMPLMYITEw0vhyRhAwUWzECHPfWoscMn3IiTTTO3VDLIH3b8EQko52RDzC239JJqLJdssgMTZMRxCiwvIPHKN+Jk08wtoDCChx1/RMLJOdlohuCIYQ1ufOMb1eBCGNrABSwgAQmQaMYBs9GMXqgiEn/4AyMuwYlzfMMaqbLGN8SxjnXk4glT2MIWHLEJUPTCGtzIRjSa0YtYgCISkbgEJzhBMG5kIxtJ3BDHOc6xjkboQAhC6AEqYnELYkTDGtFoBjF6cQtVgGKHnLiEOA7IRYIRTAofgAEMgsCJUsSiF6lqBjF6cYtYqAIUoODEJSIREAA7"
image create photo appeler -data "R0lGODlhIAAgAOf/AAEDAAoJAAYOAQQUBhAWBAgZBgUfBxEdBg0fCBEgAg4lCBMoBX0JAxknBg8rCK4AAg8xCRcxChwwCSwtHBs3CSc0CSQ2AiM0GiM7By41Jxo/Cis6GxxCDC09HTE9IyxAGhtHCTNBEB9IEjBDFzRCHSpHDCBLDSxKFSNOEEJGCB9SDyhRDC5QDDdMJSxRGzBQIS5SFTdQEh1YED5MJj1PHDdRJiZaCi5XEylaFDVXFEpMSi5dDzBbHSdfEC1eGHtJBzBdJSJjEzReGT9aMUFcGi5hIjpeIR9oDzNiFD5fFExWRitlHi5lFypoECRsEztkH0FjHzJpG0FkJzloGk5gLDZrFU5hMz5qCiJyDytwDjxpIzdqKilwGCFzGjFvF1tmDzhvISl4FkBxKj5zHTN4F1dqPEd0IDR6IjJ9Ek1wRGVmZCeAHUN2NTF+HS2CF1F1NmhrXVtwWDiCGCiJHTiFI0KBMDOIHUKEG1J7Ry6LFUGFJTmLFieRG0uGJy+PIzyOGm14Z0uIMDWRHVKGOjGVFTmTEy6VIEKOLE2NHCOZIzyVFyubHDuWInl7eEmTKmOHWWmGWlCRRjmcHTCgIDSgFiekJDOhIluRVIGCfE6ZNzijGjKkLi+nHSatI1acQUuhMkClMH6NdTasI22WYUCqIkumOi2xJ3uSeCW1IFOmP3SYaoWSdGCjQjG0KjyxKFOqLmCjT36XcESvMTa1IUauOWehWW2hXC26Jo2UiTK7G3afaYaaeiPALDK9KXWkZmStQzi/IGGvUmSvTC7EJYOjcomhgIqieyPKK2W1QpielE++LnSuYTPHKZKhjoSpeV65TCnNL4etd46qiGLAO5Krgz3OMZ2olpurkjzQPKWnpFTNPJW0iE3RP5yzmJC6gk3USlnUS6yzqKa2na21nqK5nrK0sWXVTW3TTGTXVqe/nm7ZYLC/pn/XYXjZYrDEqr2/vMPFworfd5vdfsfKuqPbhcLNu8XMwcXYw8/Wy9bVzN/h3uXk2+rs6fL08fn7+P///yH+EUNyZWF0ZWQgd2l0aCBHSU1QACH5BAEKAP8ALAAAAAAgACAAAAj+AP8JHEiwIAcsgkTlEtVGRMGHAwFABMGFECFFs6BBO/erB0SIAAgmyGJRkKRbGqFxk0fnhpYoTT7+AzAwAIU8khSJ4nUsJTRs9AK9EBjFyz8ABQEMdBDEFLNcw6ANQzVrmMZqyMa4eELEh4yHAAbKmDMs5TBOWcJIuqXRVZV/bexMgUGhIACBB1RUYpbSVZsl//wMG8ZrUZGCJE5AXBDmVkpmc3wQBHOmSEEpZliUeGjCULWUt6JckEmwx54kI1gQVLHoWEpmYTyQhggjBgaBIAwd88nM0AuBguzMpiGnCowSArkw8wmNmzYeQ6KQWUTQy5w+BWd0+LDjnwJLzKH+mWNX5JAmSmSgDGxDSdSTgRN8CPlw4p8CTsyrtRNW446kWYIwYsQ/WuixhyAEbVBFFTdIIJAhzFXzChJA/MGIJHYcsgsmoYhDTQsEbVHDCTAM5AQzKR2ziA15tAIMJYqAYY0+jWDSDz+NDJQBHVfksMJAC4TRCSd8BNGADaZAw4wojGzTjz/vNKJDOdkQZIUUIRSEgAkgKPAPE3kMU40yiqRyjz/96AOPGtngQoVALRgRQwgfHeGGKcxAg840f5SSzjvZlNPMJao0M8gbZYghhAUEPBRBF6gckxI32ogiSiaAnHKNMaCwIk4mnlwDSRVNaPBQGMOEVw00x9QyDi3+z6yTTCz2wANHGmdYYoclQRAUhCnhgaMNNMB4g48u0dizyiDk8BPOI5GwgcMsnQQxUBjHMFeNPNVAw4wt4pQCSz35zLMPP+4EA4sSPQwDDRYDLRLeN/GkBMou21DjTDT4ELOMMb6MksEaGhkyUCfhqYNOSsx80s06wqSSTi2pSBNOHFwMo5EoA3USXjvgaDQMKpw4YosuxJBTDCR41GEJLym5MlAe4bVjDjTD3JFCBTvM4oostGxiCSrMMHcLBwKtMAcwPoFjDjSz/PAAA2gwE154vdwgEAACaGDILcdodA40zCjyBSKkAHM1c73sQBAABKAwRyvHVJPSMdDcsrY8T8dwosFDACAgQhuz7A0NM8Pwcksni8yxhhMgyASAABBkkcciiySSCB9uhHGEDBxAoIABBQwggAAA/BMQADs="
image create photo raccrocher -data "R0lGODlhIAAgAOf/AAQHAw4HBQwLABUNBBoMBR8NCR4QAyMODCUPBiIQBSwQBCYUBGwAACwUACsUBzcQDTUTDjAXBj4VBj8WD0kUDjkaB0EYCkgYD00XEUsaC6QBAFQXFFEaD1kaDUsfDjclH0ciFGEcEl0eED8mHV4fF0onBGkcFjIsJo8UCGYgFX8ZFWMiD1klEm8hFHUfF0wsH2InEU4tHGcmGGwlFWYmHXkiFKQWDngiGXQlGIIkGHcoG4kjHHEqHnMqGV4xJG0tI1A1K4YnG18yKqMgFkU5NYEqGqQhEI8oGngvHo8oII0oKocqKIUtHY0sFJgoHossH4YuI3wyGpgpJIstJZMsHZoqIKEpI5AvHagnJpcuGlhAKo4wLVs/MJ0tIoU0JKspInU5K6UsH5gwIJ8vHpoxHKUtJktGRZY0G64sJJ8wKagvIqowHY03NHg9Ob4qK4U7LbEvJqU0HJ01Kpc3KH89NrguI7IwIYk6OaU0InBEKbkvKrMxKMEtJ6wzKrswJZU7KbUzI6w0NsMvKZo6NcotLJU8NL0yJrA2J8suLU5QTcQxKp49M84wKM0wLaw6Lcg0JsE2Kc8yL608M8k1Lck1M21OT5hFNIFLRKNCPLQ9QsU6MpZJOm5TTadFOolPOGBZU9E9M6xJPVxeW5pORM1BMsBGQNVBPNFGO9NHN3NgXahTRsNOOH1gWotfU7ZTTIpfWNNOOadaVJBgYHFqY9RQRsVWQqJhVttUPtdUTqlhWYxsW6dlWpBtadhbUtZeRo5xa9ldWIR2ccdnVpV2a9tkUZp1a4p8d5N8dKt3bN9uXd5uYuJwWb15beJxZd50ZbOAepOLhaeJgqqKfr6IfbiKgqaPhpiTkaWQjZyUjraPhbGRhaOVkOaIcpqbmKmYjp+amaWdluSOe7Obk7acjuaUebChnOWVhsKglLuimreoo6qsqeeejLO1sr62r8i2q7u9usa9ttC+s8jDwsPFwtLCvcbIxdnKxdLNzNTW09vW1N/h3uHk4Obo5e7w7fv9+v///yH+EUNyZWF0ZWQgd2l0aCBHSU1QACH5BAEKAP8ALAAAAAAgACAAAAj+AP8JHEiwoMGDCBMqXKgQgEOGEP8BiEiRoMOLFRFezMixo8GLAgYkWOBAgQMHCQwEiPiAgosxcPwoQhQpEqKbgvj48bOnyw0LCBAqaFHnptGjNxWtGUOGiY4rcPjkuHAQhyKkRrc8OeLmqBQqcvrcpFKgoAQ+WG9qgqJmzI0cTr6kERNHj5ybvlgUdJE20iQfTfAoOlLkxQcQYsigmYIoErk5BXNgjUTs1I8sZNRkcYLGSpkuUmgEoqQsHJIMBC8oOgpKGTdJUvyEqcLjmCw2Su7wqpQJkzBLI8D0IJiBih9EkWDV+oOFECI7ZIrx4/eNiJl61toAAUJwRkEBCxr+JFBQQ1EkSGM62fPnT52oRO+6aRGIo0iMfzIQmghzE9iqM6G4gw876kDzyi/YeJIHF15EAYMIIhgUwhdHAUOKGoeoEowx5VQjhyXtzDGKN630MAMGBoVQB1I1EULIKNiU4go61xyDTzqcsEJHGU84gQFBK6CBlSm3IPJINvroQs09w0gSTT/gXFLIGyTooQZBLaRlDiiIMIJMO6HEIg884ujjDz257PIJB4wgksJATmAFyjpGLbINM89oc84+40wjTS62nBDETUkMhAZWvTRjlCKbzBNPJ46kY8kh0uQziwd83BSGQBb4gZUzuBilCB9/DFONN/e0E0wqQlBBiFGafgzkBFbJ9IIIIV+o0MEMgPSxyCBLJIEGIUg9goBAIlhByFG0JIOIHzZowEALaaVVgUAAFJCCIEZFsgwihAyBghFf8FEtUiUM5NAAM6ChCCKoIAXIuUcpEkFBDiEQghOC0GuUIHWgEYYTR5hAAEIAJIDBDmWgYYcdaFhRxRE5tBDCBhdMAIECCQwAAEMEFHAAAggcUAABBDAUEAA7"
image create photo parametre -data "R0lGODlhIAAfAOfkAJsHAKUEBa4BCp0JAKYHBq8EC54MAacJB7EGDJ8OApcRALIJDaAQA5gTAKoOCKESBLMMDr0JFKsRCaMUBbQPD74MFaUXBrYREL8PFaYZB7cTEa8WDMARFrgVErAYDbIbD7wbFbUeEb0cFqAnHMccG8AgF9AbIMEhGMkfHdIcIcIjGcohHcMkGswiHtQgIs0kH9UiI9cjJM8nIdglJdglK9ApKNknJtknLNIqKdooLd0rL94tL9cwLN8uMOEwMdo0L9w1MNs1Nt44ON85OOA6OeI8OuM9O+Q+POU/PeU/Q+ZBQ+dCROlDRepERulLSOpNSelNTutOT+xPUNNXVO1QUe5RUq1lXPBSU/FUVIeJhs5+fJGTkJSWk5eZlp2Ylpial5qbmJ+amaCbmpudmaKdnJ2fnKOenZ6gnaSfnp+hnqWgn6Cin6ahoKGjoKeioaKkoaijoqOloqmko6Smo6ulpKWnpKympaaopa2npqeppsWhoq6op6iqp6+pqKmrqKqsqbCrqautqrGsqqyuq7Ktq62vrLOurK6wrbSvrbWwr7CyrraxsLGzr7eysbK0sbizsrO1srm0s7S2s7q1tLW3tLy2tba4tb23tre5tri6t7+5uLm7uMC6ubq8ubu9usG8ury+u8K9u72/vMO+vMS/vb7BvcXAv8DCvsbBwMHDv8fCwcLEwcjDwsPFwsrEw8TGw8vFxMXHxMzGxcbIxc3HxsfJxsjKx87Jx8nLyM/KyMrMydHMysvOytLNzM3Py9POzc7QzNXPzs/RztbQz9DSz9fR0NHT0NLU0dnT0tPV0tTW09rV09XX1NvW1NbY1dzX1d3Y1tja1t7Z2Nnb1+Da2drc2eHb2tvd2uLc29ze293f3N7g3d/h3uDi3+Hk4OPl4eTm4+Xn5Obo5efp5v///////////////////////////////////////////////////////////////////////////////////////////////////////////////yH5BAEKAP8ALAAAAAAgAB8AAAj+AP8JHKgIkiRIAxMqXMhwoK9vELNhakixIi5t06Z9C1VRYK1aHQX6mvZMmTdKFVvNAsbwzcJpz5QlY0axVjZtDN98e6Mw2DNlybQ1jFXLVsNA474lVPTtmbJkyBgxjBWLop9x4rzN+efom7VnypIZO7QQWMc048RB1PZN27RnypIlWxgt5D9v4r5587ZN27RnypIZUzjN7r854r7t3aZt2jNlyYY5GrjNsMBN3/Zu0zbtmbJkw4r5+cfN8sA607xt0zYtmrJkwIIBm9bGdEIwdfIIHDQM2K5opRzZrghMWaVbkM4MXwhgBK9NucCACTZt0PJ/CX4QmWLFTxkwsFT+kfLmafgHKlVszGDwb4ssWapIhWrGbJBlEVWq2LARQeCaW7KoQkoomtTizSF2oYBFFfu9kMBAiMiiCimhaFLJKN8w0pEMWFCxHwwHKASLKqSEokkljWDyDSQUyYDFE/vNUMBCa6hCSiiaVNLHHox8AwlDK1QBxX4wFNDQIKSEogktjSBCxx/fOKKQCFVQsR8MBVRUSSiaZNOIQGT08U0hA3lARRX7wVBASJVo4kslAvWBxh7TDKREFfvBUIBhlVTCDSOE9GGGG3is8s8KWOxnQgGmIdLINMrEEoobaDgSiA032MCBBMP5gQghfdDhBhpi8CECCRA8cF0chPRBhxsWaIhx3UJp5EGHG2jMMStDa7QRh0ABAQA7"
image create photo enregistre -data "R0lGODlhIAAgAOfbAMgAAMkAAMoAAMsAAMwAAM0AAM4AAM8AANAAANEAANIAANMAANQAANUAANYAANcAANgAANkAANoAANsAANwAAN0AAN4AAN8AAOAAAOEAAOIAAOMAAOQAAOUAAOYAAOcAAOQBAegAAOkAAOYBAeoAAOsAAOwAAOUCAu0AAOYCAu4AAO8AAOgCAvAAAPEAAOoCAu4BAfIAAOsCAu8BAfMAAOwCAvQAAPUAAO4CAvYAAOgEBPcAAPQBAekEBPgAAOoEBPkAAPYBAfoAAPMCAvQCAu0EBPUCAvkBAf0AAP4AAPMDA+wFBfAEBPgCAvwBAfEEBP0BAfIEBPMEBPsCAv8BAe4GBv0CAvoDA/8CAvgEBP0DA/oEBO8HB/MGBv8DA/IHB+8ICP4EBP8EBPEICPkGBvoGBvAJCfoHB/8GBvoICPMKCv8HB/4ICP8ICPoKCvcLC/8JCfoLC/8KCvkMDPYNDf8LC/wMDP8MDPkPD/8ODv0PD/8PD/sREf8QEPoSEv8REf0SEv8SEv0TE/8TE/8VFf4WFv8WFv8XF/8YGP8ZGf8aGv8bG/8cHP8dHf8eHv8gIP8iIv8kJP8lJf8mJv8nJ/8oKP8pKf8qKv8rK/8sLP8tLf8vL/8xMf80NP81Nf82Nv84OP85Of86Ov87O/88PP8+Pv8/P/9BQf9CQv9ISP9JSf9LS/9MTP9NTf9PT/9QUP9TU/9VVf9XV/9aWv9cXP9fX/9gYP9jY/9kZP9lZf9mZv9oaP9paf9ra/90dP91df92dv97e/9/f/+AgP+Cgv+EhP+IiP+Njf+Ojv+Pj/+Rkf+Vlf+Wlv+amv+bm/+cnP+fn/+hof+urv+wsP+ysv+2tv+7u/+8vP/Cwv/ExP/Gxv///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////yH5BAEKAP8ALAAAAAAgACAAAAj+AP8JHEiwoMGDCBMqXIhQThs0XrBQQSJkhw0aDA8eOjQojxw0YrBAEZKDRgsVKjIOtHQpUiNDfeSg8WIFSI4YLVCQCKESVKlRnjJBStRHDhotR27EWGFChAcOIhaaWvXq1apTnSYp6gMnTBMeLlSUCOFhA4YPCUO1mnVrVy5arERVUrSHTRYeLVCQ+MBBA4YKCU/ByuVLGLFgvWKRomToDpkhK0yI8MAhgwUKFQ5mMgWLlzBlz5wh+yUrFKRAaZTAKBGigwYMFiZAwGCwEqhWuoY1k1ZNGjNfrjYlsiMFB4kPHDJcoCABQoSCgx5tQjUL2LJp2LJRS5ar1CM9XWr+hOiwAYOFCREeMCjYB1GkTqpwEYtmTds1aL5SUQL0RcYHDhlcQIEEEDjAwAIE1fFHIpN8woouxUAzzTTN+LKKJYKM8YIHG2BgwQQRPMCAAhAQtIYcfSQSSSep1AKMMccMgwsqkvDBBQscZHABBRJA4AADCSxAkBhoyLGHIY9oQkors9gySyqcMELHEilogEEFE0TgAAMKIGAAQVh4gUYbdwSSCCSYdAKKJ5k44gcYOoCAgQUUSPBAAwskcEABBFGBBRZioAHHHX8QoggjixSChxk9nJDBBRRIAIEDDCiAgAEIEJQEEk5MccUWZZzhRhxzvKFGFT2coMEFFUwQgQP+DCiAgAEEMECQEED4sEMQRhChRBRPMFHEDyyAoMEFFUwQwQMNLJDAAQUMQABBQORwgw00xNDCDDDU8AILI3CgwQUVTBDBAw4woAACBhAggEE0xOBCCyqgYAIJIXzQwQYZXFDBBBJA4AADCiBgAAECFGBQDC2ogIIJJIjwgQccaJDBBRVMIAEEDjCgAAIHFDBAAAwchIIJJIgQggcdbKABBhZUMEEEEDjAgAIJHFDAAAIUgBAKIoTwQQccaJABBhZQMEEEDzjAgAIJHFAAAQIAoJAIHXCwgQYYXFABBRJE8IADDCiQwAEFECAAAA4s1IEGGFxgAQUTSADBAw0woABMAgcUQIAAADSQkQYWVECBBBFA4AADCyiAwAEFECBAACoJ1EEFEUDwQAMMKJAAAgYUMIAACFRO0AUUMLCAAggcYAABBSxg+uy0115QQAA7"
image create photo fv -data "R0lGODlhIAAgAOfGAAAAAAEBAQICAgQEBAUFBQYGBgcHBwgICAkJCQoKCgsLCwwMDA0NDQ4ODhAQEBERERMTExQUFBUVFRYWFhgYGBwcHB0dHR4eHiAgICMjIyQkJCUlJSgoKCoqKiwsLC0tLS4uLi8vLzU1NTY2Njc3Nzg4ODk5OTo6Oj09PT8/P0BAQEFBQUREREdHR0hISEpKSkxMTE5OTk9PT1FRUVJSUlRUVFVVVVZWVlhYWFpaWlxcXF1dXV5eXmBgYGFhYWJiYmNjY2RkZGVlZWZmZmdnZ2hoaGlpaWpqamtra2xsbG1tbW5ubnBwcHFxcXJycnR0dHV1dXd3d3h4eHp6ent7e3x8fH19fX5+fn9/f4CAgIGBgYKCgoODg4SEhIWFhYeHh4qKiouLi42NjY6Ojo+Pj5CQkJKSkpOTk5SUlJWVlZaWlpeXl5iYmJmZmZqampubm56enp+fn6CgoKGhoaKioqSkpKWlpaampqenp6mpqaqqqqurq6ysrK6urq+vr7CwsLGxsbS0tLW1tba2tre3t7i4uLm5ubq6uru7u7y8vL29vb6+vr+/v8DAwMLCwsTExMXFxcbGxsfHx8jIyMnJycrKysvLy8zMzM7OztDQ0NHR0dLS0tPT09TU1NXV1dbW1tjY2Nra2tvb29zc3N3d3d7e3t/f3+Dg4OHh4eLi4uPj4+Tk5OXl5ebm5ufn5+jo6Onp6erq6uvr6+zs7O3t7e7u7u/v7/Dw8PHx8fLy8vPz8/T09PX19fb29vf39/j4+Pn5+fr6+vv7+/z8/P39/f7+/v///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////ywAAAAAIAAgAAAI/gCNCRxorBixYcOIFSPIsKHDgcUAAMCFq9ewYg8zEizGkZjEUKFe9SLGsZjGhrmIIRwWTGKiRJ5qBcOFkFixkwKFhbgRKhevXRLt2IGEyQYIW7p+DSuGs1QHAAuojGolsY2aIQoAbGBUapYvYjiH3QIzAUCGNxKXUAAwocoiRJFK5RpW7OSwXKMK6VAgUSICGnf22NHDaFSuYcVOEuvVCtOgMg4kKuBxpYybOoMwtepFrNjJYsJ0lWrCoC8AAyiyxDGkaZUuYcVwFhMGxwIADFQkomAA4MGRR6Vs/SJWzFjJgSUFngoBYAETQXEk4rhxogAADYdY6RLGcZiwYcQ4/g4TNoxYsWAfYhQaZMeNxCRJrmgZcSEQpla9KAHAcCuXLzcAzHBLLr8QM0wrozCihx17SKSFFmzssQccejAyCi5eAIADKKPEUgMAXYBiSi3ADJNLKZIg0oglEpVRRh+TWNIIIpKUcgsLAGxRiCOhRAAAHoVIkkovxPgyiymhnNKKRG20gcgorZwSSimx0JJAAHTIAUgeAFCwxxyGkLJLMcP8oksuvOzSCiRCQdLKLrvcYgsugwCQgRxn8LEEACy4oUYgoeRiTDHErBRMLZ685EktwBxgwKMDACDAAAMQIAAAAlBKwBKsDFQSMb28AtIrvARj2qmoArBDJQ0VM0wv/hT1IowwuISiyBwEAEBEEEcAAcADSQSxBBds+OFQMcQgREwxw+ASSiJXAABBEUE44QIAHQwxhBRhvOHHQyVxREwvrnBCBAAjQCFFGSIAIMMTVbDxByOX4GRMMcHoAosKAPzQxRh9QACAFV2kUUgnqMCC0yJXVDFFFAsAsAILMNwAgAAwsCDDD6fQsstJxVzR18gkj5zJKbWcVMwiVCjRgwcAWGACCSlIAAAHJJSwQgx+RHLKScX80gole4AAQAs/CPHEAgDk4EMRU4gRhyGgnFQMMLJ0QsgBAByBhBRPANBAE0lUgYYdgUxyyknFDMPLK3gAUMEXWKwBBAAlbLEFVByKYAKKKrfgVMwwvkwBwAtmmPFHCgAYQYYah4gySy69BGNvMcPIsQQab8zhyBRGyNEGHpfE8sswxBRjrzHE8HJKI3sMsokqnxyyByKj6DIMR8YEBAA7"
image create photo hiappele -data "R0lGODlhIAAgAOeLAAkivAsf1AoivAohxgsgzQsf1wkjtgohxwoivgohyAkkrgkjuAoivwsg0AkjuQoiwAohygkksAkjugoiwQkksQshyQwf2gkksgoiwwshygsg1AgmogklqQkkswojugoixAgmowklqgkktAojuwcokwgnmggmpAklqwkktQojvAgmpQklrAkktgojvQgokggnnAgmpgklrQkktwYqhQcpjAcolggnnQgmpwklrgoktQgmqAklsAklsQYrfwcpkAgolwknnggnoQYseAYrggcqiQgonAYsewomqwonqAonqwsoqQsoqgwpqQ8sqRAtpBAwmRIuqhMxoBUzoBU0nhg0qRg2nRk4mhw4qx05qyE8qSE/niZEnShDrClEqipErS1Lmi5LnTJMqjNNrjZPrzVRojpUqz1Zoj9XsEFasUFcqUNcrENeokZgqUliskpjrU1ks1Jqq1JqsVRtplVstFlvtl91t2J5r2N5uWR6uWZ7tWZ9r2t/unCEvHGEvHCFuXyPwH2PwIGTwYeZwYiaxYydxYyewZSkyZWkyZ+uzaCvzqWzz3YQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBiH+EUNyZWF0ZWQgd2l0aCBHSU1QACH5BAEKAP8ALAAAAAAgACAAAAj+AP8JHEiwoMGDCBP+07CkygGFEA0u+FJIkRwmDSJC/DBFD6JEIAWBWaDxYAYlawgdWsnSkB0pGEoOFLHFz6CbOHMGMpOkgsYWUeD8AUS0qNGiebSwUDgBCZk9faJKnUq1Dx82ThAcjPAkTZyvcergGUu27B2wcdxYWfGAoAAKcOGKeKGGjt27eOf8EBEXrgeFKTaUeUO4sOE2RVLI/LcARBg0kCNLPgNkwWIUJrqM2cy5s5ggKBZTgJHFi+nTqLmAoLAYxw0qWGLLnn1FBY7FJ3Q0gcK7t28oN04svsHhxJHjyJMfCXFjsYkTOKJLnx59hYnFQVb03R5XQZDFNmKdoBhPvvx4HjYWl1CwoL379+07lFhcY0eK+/jz389RYzEJCgwEKOCAAS5AwmI+XIDBggw2uKAEPixGQwcDVGjhhRUCQMNiRKAAwYcghvghA0QsNoMBBKSo4oopTjDDYkPI0MCMNNY4IwZDLNaDAwH06OOPPQ7Qw2JGSFDAkUgmeWQCRiwmxAgWRCnllFFmIMRi/9Dww5ZcdrmlCwkFBAA7"
image create photo hinonreponse -data "R0lGODlhIAAgAKUnAGo2emw3e204fG46fW87fnA8f3E+gHI/gXRAgnVChHZDhXdFhnpHiHtJiXxKin1Mi35NjYBPjoFQj4NTkYZWk4dYlYtdmI1gmo9hnJBjnZFlnpNmn5Zso5lvpZpxppxyqJ10qaR9r6iDs6mFtKuHtbGOurKQvP///////////////////////////////////////////////////////////////////////////////////////////////////yH5BAEKAD8ALAAAAAAgACAAAAb+wJ9wSCwKA4KBIGBsOoUDwgFBrSIOhAHgaQQQDtaw9UAIcIWBg3htPQS4gMJhTq/b7YFn4M7vC54CfYJ1A08Cg4gDTwKIgwNPAwWSk5SUAZUFA08DmJ0DAZgDTwMEpaanpgMBqAQDTwOssQMBrANPA7GsAwGsA08DuagDAawDTwPBpwMBrANPpQbR0tMGAwQB1KVPpWxVAwYBYQUET6UK5+jpCgMHAQvv7wcET6UN9vf4DAMIAQ7+/gcIPCkFoaDBgw8GJAhwEAICAk8IFJhAsaJFCQMUBNi4cQICAkMKsCpQoaTJkxQGHIAH7wCBIQYIFJBQkcKFmzhzXrD4gMCHgQkKCBQpQECChqNIkyrVkMEBgQcZNiwg0IRAAgwcsmrdqtXCgQQYOohlQMDJAQISPoBYy5atBwcFKLQF4YAAlwIINITYyzfEhQMNPPTd+4DAmQMEHoQgwThEgwMZRkieLPkBgTNCDhjQYOJCgQgiSogePRoCAcxDCBgoQGDC0qQLCKCebSQIADs="
image create photo hisonnerie -data "R0lGODlhIAAgAOfBAIMSB4QSB4cSB4sTB4wTB40TB5ATB5MUB5MUCJQUCJUUB5cUCJYVCJgVB5kVCJoVCJsVCJ0VCJ4VCJ4WCKAWCKAWCaIWCKQWCKUWCKQXCKYXCKcXCKgXCKgXCaoXCasXCZocEKoYCqsYCagZCqwYCaUaDK0YCa4YCa8YCbAYCa0ZCrEYCaYbDbIYCaMcD6gbDKkbDKobDLIZCbMZCaAeEbQZCbUZCaIeEbYZCbcZCrgZCbgZCqYeEJ4gFK4cDqMfEpwhFbsaCrwaCr0aCqofEb4aCr8aCpkkGJkkGa0fEZ4jFqogEqAjF8AbCpklGqUiFcIbCsMbCsQbCsYbCsYbC6MlGMccCsgcCskcCp8nG8ocCqMmGsocC7AjFcscC7QiFLYiE80cC7UjFM0dC5wqH9AdC9EdC9IdC6IqHtQeC7InGaspHNceC9keC9keDKsqHasrHtofDKEuItsfDJ4xJ7UsHrwsHbgwI6I2K6w0KLMzJ601Ka02KqM5LqM6L7s1J6Q+NK4+M59COKZCOMU6LK9ANa9BNqVFPKJGPKhGPKFLQsBDNqlJQK9IPqlLQbFLQapNQ7FMQsxHOaZSSapTSq1TSrFSSbNWTbxUSbNXTa9YT7BZULBZUchXTLJdVLRdVLZhWbNoYrhrY7lsZLJuaK9vacJsZLhybNBtZL1zbLN3cbt1brx2b7x3cLh4cr14ccCCfcCDfcGHgcqGf8OLhcWMhsSOiMWPicaWkMmZlMialdKemc2hnc2ins6loNKsqNKuq3YQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBiH5BAEKAP8ALAAAAAAgACAAAAj+AP8JHEiwoMGDCBP+2+FkSA1NrCJKnNinhsKBV5SoAlbqh6Rdv0KKFAnJxsUyKhTp8sUSlyAwqHj1mkmzFyMbCoeQcZWrp89cpJgQmvWzZyIbCKmwmETLltOnT2Uh8tGp1q2rtwbVODiDzilYYMOKDRsqix1TsdICslFQyA1KreLKnUu31apDMBaleuXHxsAmH5BU2kTY06jDiBOL4kR4kyMQXzDhsTEwSIvLl1ccAcW5s+dPDsToGT36T5UaCXMAucS6tWtLE+4ImD07k5wZCW30eMS7t+9GFeoIiEScOJoWCWXQKMS8ufNAFtQIMESd+pYUCVG42MO9u/c8Gbr+COBDnvyTEwlNlHjDvr37NRqSCIBDnz4PEgk9jFjCv79/IhzEIIB/S7zgQUIceCDCggw2KIIHHQgQwoQTesBBQhicoOGGHGpIwgYCdHiCBglZsMKJKKZ44gkbCKDiChckRIENNNZoI40paCDAjTZYkFAEOgQp5JBBpqCBAETqQEFCDwjh5JNQPqmBAFEKIUFCDRih5ZZccilAl0ZEkJACUZRp5plopglBQgdM4eabcMYppwMJGaDFnXjiicWefPa55wIJFRDGGIQWOkYYiCaqaKIIJARAEWZEKqkZZVRq6aWVQhGAQgNIkcanoIYq6qdWEHDRPwB4UAYbrLbqaqsiZ5AQwKkEWWADF27MEceucbThBQ4WAEBrQgMkwEACAygUEAA7"
image create photo hidecroche -data "R0lGODlhIAAgAMZwAD2CBj6DB0CIB0GKBkGKB0KLBkKLB0KMB0OOB0SRB0WSB0WTCEaTB0aUB0aVB0aVCEeXCEiXCEiYCEiZCEmZCEmaCEqcCEqdCEydC0ueCE2eDEufCEygCFGeFEyhCFKeFU2iCFOfF02jCE2kCFefHU6kCFifH06lCE+mCE+nCF2gJluhIk+oCVCoCWyaR1+hKVCpCVCqCWKhMFGrCWKjLlGsCVKsCWWjNFKtCXGdTVOuCWijOVOvCVOwCWqlOlSxCWylPm6kQ1SyCVW0CXijVnOnSHGoRXSnS1e3CVe3Cli6CnupVVi7CnmqUlm7CnmrUVm8Clq9Clq+Clu/CoGsXlvACoCtXVvBClzCCoGvXF3ECoevaF3FCoiwZ1/IComzaF/JCl/JC2DKC2DLC4+0cWHMC2LOC5K3c2LQC2PSC2TTC2TUC2XVC2bWC5q7gGfaC3YQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBnYQBiH+EUNyZWF0ZWQgd2l0aCBHSU1QACH5BAEKAH8ALAAAAAAgACAAAAf+gH+Cg4SFhoeIhG8QLkSOj5A5Am+Jh20SW26am5xkBG2VhmoTVGemp6hdB2qhhWgVS1+ys7RWCGithGUWR1m+v8BNCWW5g2AXQU/Ky8xFC2DFglwZO0bW19hAD1zRf1gbMj7i4+Q3EVjdUhwqNO3u7y8UUt1MHiQr+Pn6JhZM3UggOoQYSLDghwxIug0ZgUGDw4cQMXAY0u3HiQ0YM2rECOJHNxwoRIgcSVJkCRzdYqRAwbKlS5YpYnRD0QKGzZs4b6LoJiIGjp9Ag/6cIaLbhhk9kipdmhTHhm4WagyZSrXq1B4WuknAgaSr169dhUjo5kCHkrNo054d4qAbgx9pUeLKnRs3CYNKClhMucK3r9+/gK9UmdHA0IMhWhIrXsyYMRIJlTJU8UK5suXLXrBwyDVghpgxoEOLBi3GRoFuCZyYWc26NRQF3QhlEJOmtu0wF2IbCsBjDRs2amwA0I0IgZYqBogrPxQIADs="
image create photo journal -data "R0lGODlhIAAgAPcAAFQAAGgIAXULAHkVAwxhFgdiDjBXLhZkKBx7ISd3NT92N3VvPFB8bEpwcEt2ZGdvYG55eYMMAowSAp8YALAdAIsnBpUvB5w2B4chGKcqA7ovAK4yBcQnBNAzANM3D9UzC/0/DZ1EDLZKCLZaDLFhEchOCMBLEMxOA+FMAOdGGv1JGMN5FdZ/Ec9qDPJmCuZzDNtePv5XJYRzStl5SBOAHwqaFheXGwGDChanGCeRNiywJ0SUI1S7OkG3MTfKPTPBLFbGOEybT1esSky6SFuzS1i3QlirWFe2VFSGbHeKeGCcf12tY1ekYHC8cWq0eV3QXErTS3XYR3DIU2neaXPOdtmLFtGSGu2RFfmpF/e8HeiqG9+GLvyHKvyQLtKyP/m1Kv+sMf++NPalKfnGJf3aLPPEM//gKaCTT5uPbpmTdqaidfuDStazWv+1Uv+vUNm6bP2saOC/bu2lfYfZWJroWavyW4jRa5LcZ4jRbJ/jbpvgcK/ua7DxY6bmdLLuc//IS/7WT/rGWf/XbvvMdf3WevjNZv/leDpmsU50mVpwj2l/nlB9rkd4tkBmqUN8yF+BiliDkX6Mj2WSiW+hg322jHKoh0WArmGEpmqUt3zAgVuHxluSzEiU1WqVz2uZ13yl232v4ZecjZ6imoumm6ysjJ6qoJ6vsqCwqs62kfm+hO20j5HDnoPIhpXnlp/wn4XnhK/ngbfsh7nskaHwodfEiv/Jh/7Xhv/Pk//SmP/dlenPjPngndrHoc3Orv7lqf/wvf/nt5e1xIqu3Y2v0au7yZe45Yax462w7NK078e48d+58Oe/9pbB0K3JyLPSxbfH0JPB6KrG57TL7bvO47vR7arM8bjM9brV+r3b/LvX9KXQ58jY1NPb28HK1P/1w8DR78jI9NzA8cvc9MPc+cbb9dbb9trd4uLf6+jI8+nX9frQ/sXi/cvk/M3o/sfg9NXi9trl9dHl+tLq/dzq+tzn993m5uXp9evt9uLu+u3u+Ofn9e3x9u7w+eXx+/T0+gAAACH5BAEAAP8ALAAAAAAgACAAAAj+AP8JHEiwoMGDCBMqXIgwE6smDCMKXNJqlqtWVBR4UKEihgqJAj94SLHgyKspKKcMWZDqFq5Ua0AwhCFHFSpepXI8geKj5w8ao5w1a9ZrzUIOqrwFMxYtmhIbOnDUqHHjADF8+PppQ5WiII4fNgR2gPPLVDF/6s5NSoAAQQIHpvTxy5cPH7MZBHVE6TGwQxdgvTrhS5fuHrdt3MzJnUs3nztRXW0AocOjwEAOLnD5wvTt3rJ7jfk5c7KNcT5+0WTsiFKHB4GCKOD4OiXMH7rC90Cv6mFkWz7Q9SgNocPHtcEOXHzx2kQvHbrc+/ZtOyJlyTZ9zZZI8bOnyIGDFFz+1NqFido9ZefsqbdHyQ4eJpSM3InVh4iBhCjc+Cr1ad/tffeo94wRstghRR/0EYGEIglpwEUutGgCTznIwAPPepXgIQsssOShYDfkLILQBC/UYssl0ewTTjn0wPPOO80YoUcfdyj4TIvQJHSCG7mI4gk94CQDDz3zzAOPJFLMIQQDxIjzjTTRcILQBl3YQgsj79CDTDnxiONlMEEsScw7xRRTzTibICTBC4MQckkx7CQDTjzyFCmOJA0EQw450VTTDjuLYIBQCW0QEkon85STDDvjNDoONdPQGQ85xcSTDSQmIJSBGLa8wYg44xxjzTrsyPPnOuNcc8040kgDTRLVV2RwkARVCFJIIsXIEySqql6DzTjstCNPPMVwokYYmR40wh+CpKGJPNeIig02pAo7TjWgbGLJI2/8sYUEB1nwBSFsNJLNOqK208461RizCSOIJKHGG4PYYssMAhwUQa2BJCKMPKwW44kjjFwSCiq6EDJIIG6AccUGCY0ACCFoHNIJI4cgEgkpcQTyRxhfYIHFFVe0IEK+CFkwhiG6QPDAGV6UMcYYWYzMgskXVDBAAAtFYIUZZJBBsxZVrDBCzjuDNJAFK6xAQgg6BwCA0lRXbfXVWAcEADs="
image create photo transfert -data "R0lGODlhMAAgAOf/AAEEAAoJAAYOAAQUBg0XBA0bBgsfCBEgAg4lCX0JAxknBhIpB64AAhMxChwwCRc4CSY1BSM0Ghg2OCwzJBpACiw7HCo/GRtHCDM/JRtJEihBPzRCEypHCy1GGSFMDi9BZ0JGCC1MFy9EZCBSCydRCzNQDSxRGy9OMDpMJTBQIS5SFR1YET1PHDhRI0RBpDhKcS5XEzxJdiRdDUpMSkFHqC5dDzBbHSxdF3tJBzBdJSJjEzlcHUVKrDVeGTdYVUNReUVPiT9aMS5hIj5fFExWRiNoDytlHjtgKVBNqjFmGDJkNzpkIkBkJCNuHU5gLzVrFCdvFk9UsD5qCjhheUhalDhqJylxDiFzGjFvF1tmDzhvICp4FjxojDR4GFdqPF9ctUN0HkFzLzhugDR6IkVriTJ9Ek1wRDB0cmVmZCeAHjF+HS2CF15jujp0fjJ+M1F1NmhrXUNzfltwWGFpnWZltziEHk9xl1FwnUKBMCqKHjOIHUKEG1J7Ry6LFmxqvkiGKTqMGDmGamlvwW14ZzWRHCuUHlCHNzCVFEKOLE2NHHFyviOZIzyVFmd7niqbGy2UXTuWInl7eCCdN2mFWWOHWXd3xGWBo1CRRjmcHnl5xzSgFkyXMyekJDOhIluRVIOCeoJ8xS6mHX2AxzykL22JqzynHkiiLlacQX6NdSatRCqvJTasI0qmOnuSeFSmOyyzMnSYaoWSdGKhTmCjQkCuODK0Kz2xKVOqLl2kUH6XcCq4JESvMXKcZmihVTe1Io2UiXCiYBvANSi9OzK9KYacfDa+HyXCLTG/NWOvSy3DJWGvUoKlcoqieyPKK2W1QpielE++LnSuYTPHKZCij165TCnNL4Otdo6qiGLAO5Krgz3NMJ2oljzQPJyrkqWnpFPNO0zRPpe0hpyzmJC6gk3USlnVS6yzqKa2na21nqK5n2XVTLK0sW3UTWjYWaTAnrC/pn/XYXjZYq3EqcDCv4rfd5jefsfKuqPbhcXMwcPSv9HVy+Hi3ers6fL08fn7+P///yH+EUNyZWF0ZWQgd2l0aCBHSU1QACH5BAEKAP8ALAAAAAAwACAAAAj+AP8JHEiwIAUrhFYVW6VGRMGHECMSBADxApRDhxj5qlaNnawXLiSKFAmA4AErGAlh0sWxGrh6bmIA8aFjpE2BAAYGeNAHE6NVw5q1rMbt3p8TPL78UPIPwM2IAAYu0FFLWrFk1ZLp8pWMozZnYEwc+TGHiounEAEMXJEnWctkoaxswaSLo60n/9ToWRJjjiAkaAkCEFhgBCdpLW2pMfIvT7JkwxwJKYghhiJRbGgEHrhgi66W0vLcIKhljJCCTMCU6EBDkahKUTZ7KKStpa4kEW7KADRkQwgeikSJ8sPj6QhHzVpK24Jhs4oSFmgoEp7pC42RFwo1GyqtUAqBhPT+jGRR54kKDv9oKBIuSlEUkVCkDa0G7puNIEm6OCKIJc+fgihUYEENAtEgCHuisEEDRAh0Ml817MAjBCKaaNIFEwOpockqSww0wQ09WBDCQDQIgmAmUTyEQCjzaRMPMi3sgYkvhECywz9V/AEIIQRV8MQTMDhAEA2CICiKIDwUVMh82txSQw6AQIKJHogQ8wkq52SDAkFVtBCCCg/RIIiRmXxBw0BQSNNSM47I0EctxWjCiBbb7BPJJ/3wE8lAE6ghRQkkQESDIkaKokgUAi2whSqhFKKDAjLUUo00q0ASTj/+zBPJDOt4Q5ATTGwQEQ2KFFpJFAMZ4MEFCPyTRB/+yWgDDSOu5ONPP/vMg4Y3vzghEAo7lLABRDQIYiQobNAAURFr1CJNNe1gAwgr7szjzTrTeALLNIa84UUYPUBAwEM0CGKkIEhA5MAVujTTEjjfrLLKJoO00g0zpsxyziandDPJjxQURIMgCGbyhURbJPOgNtU00ws6tFDzzjO54DMPHGaM0YkenegwEA2CIEgHDxLpUMuD5XxTTTHj6MOLNfjEYkg6/JhDySVh3OCLKjr8Q4Mi7CkSRUFEb9HMfNrUo0010gBzDiu45KOPPfvwI48yuBAhQzLVNEGDIsJl8gUNRBPtyIPk0NOSKcSEk80y1uizTDTMAMPLBGlUc8z+FIoIJwgPZZetyoPxtNOSNKaI8w4yrrjTiyvXmCMHFMkE00YjomQSReCBq/JgPOVwlIwuoWwCDC/LpEPMJHzg0ckwwbRhCSls0MB54H08GA871SSzBwgQ1OCLLbvQMkonukhTzTFiWGIJGRrcHjgJeRQzVDnsVOMLDgwkUIY0D1YjTByW2BHIKzBIXzYAAlBQiC7NcMRONdIwkkUipRTzoDBx3NFGKtUYRg3UFzgAEMADeahFM7TRkmZUQxcPEoYYuPAIY1SjGaGgAAE5BwADZEANvghfS6TxiimcQRKOyEMaoHCBDUoPAAJogBX64AhHLGIRhVjDFoqwgg9IAAENBijAAAQgAAC4UCABAQA7"
image create photo conference -data "R0lGODlhIAAgAMZhAAAADwAAEAAAEQAAEgAAEwAAFAAAFgAAFwAAGAAAGQAAGgAAGwACHAADHQAAPgAIDwAJEgAKFQAMFwAMGAAMGQAMLwAOHQAPHgAQHwAQIAAQIQARIgASJAAUKAAVKgAWLAAYMAAcNwAcOAAdOwAfPgAeUAAhQgAiQwAiRAAkSQAlSwAnTgAqVAAqXQAtWgAtXQAvXgAxYgAyZQAzbgA0ZwA0aAA3bgA5cgA6cwA7dgA8dwA8eAA8eQA9egA/fgBAgwBAjgBBiwBChABEiABFigBHkwBIkQBJkgBKkwBKlABMmQBPngBQoABSpQBTpgBUpwBWqwBYsQBZsgBctwBcuQBgwQBgxABiwwBixQBjxgBkxwBkyABkyQBlygBlzABmywBmzAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH+EUNyZWF0ZWQgd2l0aCBHSU1QACH5BAEKAH8ALAAAAAAgACAAAAf+gH+Cg38aPVFdV0wwhI2Oj4IsXGCUlVIYkJmEIpWdlFGaoUmenimhmVGknTSnkEqqlSutjyawYFOzgjddO4MxX6RUHbl/WWBdhB9EVZRRNg/EfzZaOJoULxUI2toHCQiZBqFRXlYkjwcCkAOQCCWVVxaQB5AK2gcICQkEfzKdR5AAHBDb4QkEpATEfHgaAqnFDwmzbnjK8mgDJSGzXJA64agDJSKzQpDq8agGkgyzSHzx1CQapCeesLh8RIPUjJmNMHzxNAFnIyOeJPgk5OFLpS5DG+Wo1CRpgW0MgFBSAekDh1AGEjgiMSJBAEcBgmxBkWnBKQUJtiX4gwJMlgwmgy64yPBHgM8lYIgMMgGmC48GPiNAwUJIB6UiSUU0MuFEC4SkgQAAOw=="
image create photo jeter -data "R0lGODlhIAAgAOeHAAAAEAAAEQAAEgAAEwAAFAAAFQAAFgAAFwAAGAAAGQAAGgABEQAAHAAAHQAAHgAAIAAAIQAAIgAAPgAFEwAIDwAIEAAHIQAJEgAAbgAKFAALFgAOHAAOJgAQHwAQIAAPNwASIwASJAASJgARNwAUKQAWLAAXLgAYLwAYMAAZMgAaMwAaNAAcNwAcOQAdOgAePAAfPgAeTwAgPwAgQAAgQQAiQwAjRgAlSgAkWAAmTAAnTgAmWAAnVgAqUwAqVAAqVQAsXwAtWgAtYwAuWwAtbQAwXwAyYwAyZAAzZgAzbgA2bAA3bgA4cQA5cgA6cwA6dgA7dgA/fgBAfwBDhgBEiABEjQBFigBFkABGiwBGjABHjgBIkQBJkgBKlABLlgBLmwBMmABOmwBOnABQnwBQoABRogBSpABTpgBStABUpwBUqABUqQBUqgBVqgBVvwBYrwBYsQBZsgBatQBauABbtgBbuQBdugBdxQBevABevQBfvgBgvwBhwgBiwwBixABixQBjxgBkxwBkyABkyQBlygBmywBmzAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH+EUNyZWF0ZWQgd2l0aCBHSU1QACH5BAEKAP8ALAAAAAAgACAAAAj+AP8JHEiwYIcgVtboIVSoDxwvSlQUnEjRhBhDGDNqxEjHB8WPOQhtHKkRy8eJfEiqxOjiJME/K1XCcDnwR6GYG7vQJMjiDE5DeYrsnFjCCBc6gjAW0jPGyYyhBRfEqNJGzA6oLg2MYLMRiAEMWAkewFAD0Eg8/zAoCKsAwD8ZhFR6EOgAKgOBHvisJDGwAc0ACAaSiZmBIISTAAgMvBEzzkQGHx0QVBOTyUQFFCMQDBGT0AaKDgomKBgkZpSPDwpGKAhlpZ0KHxMQtMDjiA4YAqGoDJTC5QcYAutklCMwCMlANE4uEWSoUJZ/P9bsWdNDoAY/G+WccMkl45uTL+Z3uLmDhsiEnShutNgJggMCAwEIDBggICxNAAgGYiBAwP7JBxMRUIB/EzFAUQMEDtTASQ8QCIACLjkQlgQEFECTBATsZMMTV3wBxhZTLGEDRSLgIMQRRgyhwwpJUARDE1qEUYYZYlCBBAUFXSBFGnb8QcggepzRREAAOw=="
image create photo attente -data "R0lGODlhIAAgAMZxAAAADwAAEAAAEQAAEwAAFAAAFQAAFgAAFwAAGAAAGQAAGgAAGwAAHAAAHQAAHgAAHwAAIQAAIgAAJAAAJQACHAAAPgAIDwAIEAAIEQAJEgAKFAAKFQAKKAAMGAAMGQALKgANGgAOHQANLAAPHgAQIAARIgARMAATJgAUJwAVKgAWKwAWLAAZMgAaOAAcNwAeOwAePAAfPgAgPwAfTgAiQwAkSQAmTAAnTgAoTwAoUAApUgAqUwAqXQArVgAsWAAsWQAsXQAuWwAuXAAvXgAwXwAyYwAyZAAzZgA0ZwA1agA3bgA4cAA7dgA9egA+fAA+fQA/fgBAgABCgwBChQBEiABGjQBIjwBJlQBLmABOnABOnQBQnwBQoQBUpwBUqQBXrgBZsgBbtgBcuQBdugBevABevQBfvgBgvwBgwQBhwgBixABjxgBkyABkyQBlygBmywBmzAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH+EUNyZWF0ZWQgd2l0aCBHSU1QACH5BAEKAH8ALAAAAAAgACAAAAf+gH+Cg4SFhn8ZU2poTYeOj4IxX3CUcFyQmIRQlZVHmZgXbJyUZZ+QNJWpcCumjkOqlTWthAyCRrCUN7ODBgp/OrhwMLt/C38Gfye4biM0IbMFgg1/XrBbZHBhmBZbZj8NgwAVLm+pa2eUYoYKCYM9lG8chA1/OWuUaUuVQ4YIC4MyKLnRIEiFixYf/mzAYcMCizdtlBgqIKjBICJaiBTp8iZVFg+ERFw4lEBQgUEZnrQJZoVQgUEkQAiqQMjBnxVjglHCQqjAoDRvmvxZQKiCiTQ6Kc2IMKjAoCqUohwodCXpGyGCJBD4M2AQhi6UOhQCozMMDEICJvwJQEiIE0NNQHB98eHogQFIfwgkQIFEChUmO0rgxfugwuDDhCAgXkwgwWLEDyo8Pgxh8mAeFCzjTQEnhmZIQuAE+fwoCZwfpB35gPMi9aESYFwfCgQAOw=="
image create photo transferer -data "R0lGODlhIAAgAIQRAGlrnWtsnmxun25woHBxonh6qH+BrYOFr4WGsYeIsomKs4yOto6Qt5SVu5iZvpqbv5ydwP///////////////////////////////////////////////////////////yH+EUNyZWF0ZWQgd2l0aCBHSU1QACH5BAEKAB8ALAAAAAAgACAAAAXgIBB8ZGmeaFoGQKC+cCkAQhDf6WAIAe6TgkVCEPjhBAdIQhAwxgSFByQhCDhhhAYEghAErirBYgtBCAJglOBAhiAEgbRJUHi0EYKAvERotCEIAgF7HwIMfxAIAgF7AgeIEAgCAXICBQ+QCAJ7BA6QEAgCaQQOnwoDAk4CBQ+QCgMCVwIHkAkDAmACC4gJAwJpBA1/CQICaQIFD20JxXICB20JxXsCC2QJxYQEDVsJAgGEAgUPEAkCAYQfAgcQCQIB6R8CCwkCAfEfBAYCAfgCAAIC4PsQAECAgR8ABEBIIgQAOw=="
image create photo nouvelarrivant -data "R0lGODlhIAAgAMZyAAAADwAAEAAAEQAAEwAAFAAAFQAAFgAAFwAAGAAAGQAAGgAAGwAAHAABEwAAHQAAHgAAIAACIAAAPgADIgAEJAAIEQAJEgAKFQALFgAMGQANGgAOHAAQIAAQIQARIgAUJwAUKAAUKQASPgAVKgAXLgAWPgAZMgAcOAAdOgAeOwAfPgAgPwAgQQAhQgAiQwAiRQAlSgAmSwAmTAAoUQApUgAsWQAtWgAuWwAvXgAvbAAyZAAzZgAzbgA0ZwA0dQA2bQA4cQA5cgA8eQA8fAA/gwBCgwBEiQBHjgBIjwBIlQBJkgBKlABKlQBMlwBMmQBOmwBOnQBOngBQoABQoQBRogBTpgBUqQBVqgBWqwBWrABWrwBXrgBYrwBYsQBatQBctwBcuABcuQBdugBduwBevABevQBevgBgwABgwgBhwgBixABixQBjxgBkxwBkyQBlygBmywBmzAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH+EUNyZWF0ZWQgd2l0aCBHSU1QACH5BAEKAH8ALAAAAAAgACAAAAf+gH+Cg4SCGjtPZG9uYEs2FoWRkoNAb3GXmJdrNpODKEWRP5mjmDKdfz1ckV6kpEyTM1ZiYpFKraNAk2eXbZEZWLeXTp0mRUQlkzZZo3BTMaeDAAGdFSYuLCTQkQISkyJDaWY8DdqFBJEDBkmZQX8DAwHlfwaDBgZ/LaNwIIMFBuUHDAAYtISUkEIFBsgbpIZUFkkLFmJotWbSAnkZWr2ZJGHhG1JfJG3Q4SNEuSukjkiCcolMuR2kYEi6UAMHh3IqwmSqshDaiDGXtGQYRLSo0aOCKKxAEQGp06d/GAxCALXqIAVEFVi16qAog61QExRFANapg6MPyh51cJSAWqMwA5BCeDvIgdMcUbpsaULDqgcTHyY4tYGEihQjL6CmKIOJzQ26RjscIRMHzZMTbwMBADs="
image create photo reprend -data "R0lGODlhEAAQAOMNAACWAACZAACaAACdAACeAACiAACmAACqAACuAACyAACzAAC3AAC6AP///////////yH+EUNyZWF0ZWQgd2l0aCBHSU1QACH5BAEKAA8ALAAAAAAQABAAAAQx8MlJq7046wrAlkIQCBsxEARVFNZaUEZsULJ13IeEY0jvIxqFIpFQfBbIj4ShbDqdEQA7"
image create photo garde -data "R0lGODlhEAAQAMYBAGuGrv///wccOgcZNAEFCwIJEgwmSw0oTgcYMgYUKRwuOERtqjhlcgkdPAgbN0BqqAsfOw8lQSZVmiZVmwwcLg8eLCNSmSNUnSNVniVTmSVYpSVYpRAnRhInQlx8qzdZjB8zRCM4RyM+YCY/XjVXbTZXbR42WSJEcCdIczpejzxfjzhnhThohXCUvnSYwThNamODrmODsEJghEVjhilEax45YjZXiDpXfTxejj1fj0Jij0NsokRiikhvpE1tlU5tlk5zqU9rjE9wm09xnE90qlBxoFJrjVJtjlNuj1RwkVR0nVR0nlZylVZzlVd1mFd4olh3pFl0l1l4m1qAt1uAt1x9rF2DuF2DuV53l2F9nGF+nWGBr2GHvWJ+nWOEs2SKvGWGtGeLs2uPt2uRwmyKq2yQxmyRxm6Mq3WZznmd0nqe0n+m1YGo14ir3pK155O15////////////////////////////////////////////////////////////////yH+EUNyZWF0ZWQgd2l0aCBHSU1QACH5BAEKAH8ALAAAAAAQABAAAAd9gH+CgjFDQ0JCMIOLghs7WV1aWT2Mfx9BSElNTlJSTkxJR1gegyY3PD5KT09LP1FGL4w0OkVVXmBbUDY1lRw4QFNcXFREOR2VfyJWZWhoZlcjyIIyaW1tajPSg2Fub2LagyBrbCHggyQl5urILS7rKWdkKuonX2Mo6yssyIEAOw=="

array set images [list "Appeler" "appeler"]
array set commentaire [list "Appeler" "Appeler"]
array set images [list "Raccrocher" "raccrocher"]
array set commentaire [list "Raccrocher" "Raccrocher"]
array set images [list "Refuser l'appel" "raccrocher"]
array set commentaire [list "Refuser l'appel" "Refuser l'appel"]
array set images [list "enregistre" "enregistre"]
array set commentaire [list "enregistre" "Enregistrer la conversation"]
array set images [list "fv" "fv"]
array set commentaire [list "fv" "Mode fréquences vocales (DTMF)"]
array set images [list "Transfert" "transfert"]
array set commentaire [list "Transfert" "Transférer l'appel au numéro saisi"]
array set images [list "En attente" "attente"]
array set commentaire [list "En attente" "Mettre ce correspondant en attente\net revenir à la conversation principale"]
array set images [list "Jeter le correspondant" "jeter"]
array set commentaire [list "Jeter le correspondant" "Jeter ce correspondant et\nrevenir à la conversation principale"]
array set images [list "En conférence" "conference"]
array set commentaire [list "En conférence" "Rammener ce correspondant en conférence\ndans la conversation principale"]
array set images [list "Transférer" "transferer"]
array set commentaire [list "Transférer" "Transferer l'appel et passer au suivant"]
array set images [list "Nouvel arrivant" "nouvelarrivant"]
array set commentaire [list "Nouvel arrivant" "Prendre provisoirement le nouvel arrivant"]
array set images [list "Décrocher" "appeler"]
array set commentaire [list "Décrocher" "Décrocher"]
set action::objetbulle ""

wm iconphoto . icone
wm protocol . WM_DELETE_WINDOW sortie

set sommet ".tot"
set centre ${sommet}.centre
set collaborateur ${sommet}.collaborateur
set situation ${centre}.situation
set principal ${situation}.principal
set signal ${situation}.signal
set garde ${situation}.garde
set action ${centre}.action
set softphone ${centre}.softphone
set fond "#AEBFCD"
set fondactif "#BED0DF"
set tailleColonne 20
set systeme [lindex [split $::tcl_platform(os)] 0]

frame .param -background $fond -relief flat
label .param.alias -background $fond -foreground black -font "Helvetica 16 bold"
button .param.bouton -image parametre -command "coordonnees \"Paramètres\"" -background $fond -activebackground $fondactif
progBulle .param "Paramètres de votre compte"

frame $sommet -background $fond
pack .param -side top -expand 0 -fill both
pack .param.bouton -side right -expand 0 -fill y
pack .param.alias -side right -expand 1 -fill both
pack $sommet -side top -expand 1 -fill both

set utilisateur ""
set passe ""
set alias ""
set numero ""
set etiqusuivi ""

if {![ecoute]} {
	exit 1
}
initialisation

if {[file exists [file dirname $argv0]/vieu_[file tail $argv0]]} {
	while {[file exists [file dirname $::argv0]/flag_[file tail $::argv0]]} {
		after 1000
	}
	after 1000
	file delete -force [file dirname $argv0]/vieu_[file tail $argv0]
}

set urlbib "http://www.etoilediese.fr/client/edphone/"
if {$::systeme == "Windows"} {
	set url "http://www.etoilediese.fr/client/xml/ctitel.php"
	set bibedphone "tclsoftphone.dll"
} else {
	set url "http://www.etoilediese.fr/client/xml/ctitel.php"
	set bibedphone "libtclsoftphone.so"
}

recupDonnees
if {![file exists [file dirname $argv0]/cti.dat]} {
	if {$::systeme != "Darwin"} {
		update idletasks
		wm iconify .
	}
	coordonnees "Nouveau compte"
}