#!/usr/bin/wish

package require http

font create police -family TkTextFont -size 9 -weight normal
font create tresgrosse -family TkHeadingFont -size 16 -weight bold
font create grosse -family TkHeadingFont -size 12 -weight normal
font create grasse -family TkTextFont -size 9 -weight bold
font create petite -family TkTextFont -size 8 -weight normal
option add *font police

namespace eval ::md5 {
}

if {![catch {package require Trf 2.0}] && ![catch {::md5 -- test}]} {
    proc ::md5::md5 {msg} {
	string tolower [::hex -mode encode -- [::md5 -- $msg]]
    }
} else {
    # Without Trf use the all-tcl implementation by Don Libes.

    # T will be inlined after the definition of md5body

    # test md5
    #
    # This proc is not necessary during runtime and may be omitted if you
    # are simply inserting this file into a production program.
    #
    proc ::md5::test {} {
	foreach {msg expected} {
	    ""
	    "d41d8cd98f00b204e9800998ecf8427e"
	    "a"
	    "0cc175b9c0f1b6a831c399e269772661"
	    "abc"
	    "900150983cd24fb0d6963f7d28e17f72"
	    "message digest"
	    "f96b697d7cb7938d525a2f31aaf161d0"
	    "abcdefghijklmnopqrstuvwxyz"
	    "c3fcd3d76192e4007dfb496cca67e13b"
	    "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
	    "d174ab98d277d9f5a5611c2c9f419d9f"
	    "12345678901234567890123456789012345678901234567890123456789012345678901234567890"
	    "57edf4a22be3c955ac49da2e2107b67a"
	} {
	    puts "testing: md5 \"$msg\""
	    set computed [md5 $msg]
	    puts "expected: $expected"
	    puts "computed: $computed"
	    if {0 != [string compare $computed $expected]} {
		puts "FAILED"
	    } else {
		puts "SUCCEEDED"
	    }
	}
    }

    # time md5
    #
    # This proc is not necessary during runtime and may be omitted if you
    # are simply inserting this file into a production program.
    #
    proc ::md5::time {} {
	foreach len {10 50 100 500 1000 5000 10000} {
	    set time [::time {md5 [format %$len.0s ""]} 100]
	    set msec [lindex $time 0]
	    puts "input length $len: [expr {$msec/1000}] milliseconds per interation"
	}
    }

    #
    # We just define the body of md5pure::md5 here; later we
    # regsub to inline a few function calls for speed
    #

    set ::md5::md5body {

	#
	# 3.1 Step 1. Append Padding Bits
	#

	set msgLen [string length $msg]

	set padLen [expr {56 - $msgLen%64}]
	if {$msgLen % 64 > 56} {
	    incr padLen 64
	}

	# pad even if no padding required
	if {$padLen == 0} {
	    incr padLen 64
	}

	# append single 1b followed by 0b's
	append msg [binary format "a$padLen" \200]

	#
	# 3.2 Step 2. Append Length
	#

	# RFC doesn't say whether to use little- or big-endian
	# code demonstrates little-endian
	# This step limits our input to size 2^32b or 2^24B
	append msg [binary format "i1i1" [expr {8*$msgLen}] 0]
	
	#
	# 3.3 Step 3. Initialize MD Buffer
	#

	set A [expr 0x67452301]
	set B [expr 0xefcdab89]
	set C [expr 0x98badcfe]
	set D [expr 0x10325476]

	#
	# 3.4 Step 4. Process Message in 16-Word Blocks
	#

	# process each 16-word block
	# RFC doesn't say whether to use little- or big-endian
	# code says little-endian
	binary scan $msg i* blocks

	# loop over the message taking 16 blocks at a time

	foreach {X0 X1 X2 X3 X4 X5 X6 X7 X8 X9 X10 X11 X12 X13 X14 X15} $blocks {

	    # Save A as AA, B as BB, C as CC, and D as DD.
	    set AA $A
	    set BB $B
	    set CC $C
	    set DD $D

	    # Round 1.
	    # Let [abcd k s i] denote the operation
	    #      a = b + ((a + F(b,c,d) + X[k] + T[i]) <<< s).
	    # [ABCD  0  7  1]  [DABC  1 12  2]  [CDAB  2 17  3]  [BCDA  3 22  4]
	    set A [expr {$B + [<<< [expr {$A + [F $B $C $D] + $X0  + $T01}]  7]}]
	    set D [expr {$A + [<<< [expr {$D + [F $A $B $C] + $X1  + $T02}] 12]}]
	    set C [expr {$D + [<<< [expr {$C + [F $D $A $B] + $X2  + $T03}] 17]}]
	    set B [expr {$C + [<<< [expr {$B + [F $C $D $A] + $X3  + $T04}] 22]}]
	    # [ABCD  4  7  5]  [DABC  5 12  6]  [CDAB  6 17  7]  [BCDA  7 22  8]
	    set A [expr {$B + [<<< [expr {$A + [F $B $C $D] + $X4  + $T05}]  7]}]
	    set D [expr {$A + [<<< [expr {$D + [F $A $B $C] + $X5  + $T06}] 12]}]
	    set C [expr {$D + [<<< [expr {$C + [F $D $A $B] + $X6  + $T07}] 17]}]
	    set B [expr {$C + [<<< [expr {$B + [F $C $D $A] + $X7  + $T08}] 22]}]
	    # [ABCD  8  7  9]  [DABC  9 12 10]  [CDAB 10 17 11]  [BCDA 11 22 12]
	    set A [expr {$B + [<<< [expr {$A + [F $B $C $D] + $X8  + $T09}]  7]}]
	    set D [expr {$A + [<<< [expr {$D + [F $A $B $C] + $X9  + $T10}] 12]}]
	    set C [expr {$D + [<<< [expr {$C + [F $D $A $B] + $X10 + $T11}] 17]}]
	    set B [expr {$C + [<<< [expr {$B + [F $C $D $A] + $X11 + $T12}] 22]}]
	    # [ABCD 12  7 13]  [DABC 13 12 14]  [CDAB 14 17 15]  [BCDA 15 22 16]
	    set A [expr {$B + [<<< [expr {$A + [F $B $C $D] + $X12 + $T13}]  7]}]
	    set D [expr {$A + [<<< [expr {$D + [F $A $B $C] + $X13 + $T14}] 12]}]
	    set C [expr {$D + [<<< [expr {$C + [F $D $A $B] + $X14 + $T15}] 17]}]
	    set B [expr {$C + [<<< [expr {$B + [F $C $D $A] + $X15 + $T16}] 22]}]

	    # Round 2.
	    # Let [abcd k s i] denote the operation
	    #      a = b + ((a + G(b,c,d) + X[k] + T[i]) <<< s).
	    # Do the following 16 operations.
	    # [ABCD  1  5 17]  [DABC  6  9 18]  [CDAB 11 14 19]  [BCDA  0 20 20]
	    set A [expr {$B + [<<< [expr {$A + [G $B $C $D] + $X1  + $T17}]  5]}]
	    set D [expr {$A + [<<< [expr {$D + [G $A $B $C] + $X6  + $T18}]  9]}]
	    set C [expr {$D + [<<< [expr {$C + [G $D $A $B] + $X11 + $T19}] 14]}]
	    set B [expr {$C + [<<< [expr {$B + [G $C $D $A] + $X0  + $T20}] 20]}]
	    # [ABCD  5  5 21]  [DABC 10  9 22]  [CDAB 15 14 23]  [BCDA  4 20 24]
	    set A [expr {$B + [<<< [expr {$A + [G $B $C $D] + $X5  + $T21}]  5]}]
	    set D [expr {$A + [<<< [expr {$D + [G $A $B $C] + $X10 + $T22}]  9]}]
	    set C [expr {$D + [<<< [expr {$C + [G $D $A $B] + $X15 + $T23}] 14]}]
	    set B [expr {$C + [<<< [expr {$B + [G $C $D $A] + $X4  + $T24}] 20]}]
	    # [ABCD  9  5 25]  [DABC 14  9 26]  [CDAB  3 14 27]  [BCDA  8 20 28]
	    set A [expr {$B + [<<< [expr {$A + [G $B $C $D] + $X9  + $T25}]  5]}]
	    set D [expr {$A + [<<< [expr {$D + [G $A $B $C] + $X14 + $T26}]  9]}]
	    set C [expr {$D + [<<< [expr {$C + [G $D $A $B] + $X3  + $T27}] 14]}]
	    set B [expr {$C + [<<< [expr {$B + [G $C $D $A] + $X8  + $T28}] 20]}]
	    # [ABCD 13  5 29]  [DABC  2  9 30]  [CDAB  7 14 31]  [BCDA 12 20 32]
	    set A [expr {$B + [<<< [expr {$A + [G $B $C $D] + $X13 + $T29}]  5]}]
	    set D [expr {$A + [<<< [expr {$D + [G $A $B $C] + $X2  + $T30}]  9]}]
	    set C [expr {$D + [<<< [expr {$C + [G $D $A $B] + $X7  + $T31}] 14]}]
	    set B [expr {$C + [<<< [expr {$B + [G $C $D $A] + $X12 + $T32}] 20]}]

	    # Round 3.
	    # Let [abcd k s t] [sic] denote the operation
	    #     a = b + ((a + H(b,c,d) + X[k] + T[i]) <<< s).
	    # Do the following 16 operations.
	    # [ABCD  5  4 33]  [DABC  8 11 34]  [CDAB 11 16 35]  [BCDA 14 23 36]
	    set A [expr {$B + [<<< [expr {$A + [H $B $C $D] + $X5  + $T33}]  4]}]
	    set D [expr {$A + [<<< [expr {$D + [H $A $B $C] + $X8  + $T34}] 11]}]
	    set C [expr {$D + [<<< [expr {$C + [H $D $A $B] + $X11 + $T35}] 16]}]
	    set B [expr {$C + [<<< [expr {$B + [H $C $D $A] + $X14 + $T36}] 23]}]
	    # [ABCD  1  4 37]  [DABC  4 11 38]  [CDAB  7 16 39]  [BCDA 10 23 40]
	    set A [expr {$B + [<<< [expr {$A + [H $B $C $D] + $X1  + $T37}]  4]}]
	    set D [expr {$A + [<<< [expr {$D + [H $A $B $C] + $X4  + $T38}] 11]}]
	    set C [expr {$D + [<<< [expr {$C + [H $D $A $B] + $X7  + $T39}] 16]}]
	    set B [expr {$C + [<<< [expr {$B + [H $C $D $A] + $X10 + $T40}] 23]}]
	    # [ABCD 13  4 41]  [DABC  0 11 42]  [CDAB  3 16 43]  [BCDA  6 23 44]
	    set A [expr {$B + [<<< [expr {$A + [H $B $C $D] + $X13 + $T41}]  4]}]
	    set D [expr {$A + [<<< [expr {$D + [H $A $B $C] + $X0  + $T42}] 11]}]
	    set C [expr {$D + [<<< [expr {$C + [H $D $A $B] + $X3  + $T43}] 16]}]
	    set B [expr {$C + [<<< [expr {$B + [H $C $D $A] + $X6  + $T44}] 23]}]
	    # [ABCD  9  4 45]  [DABC 12 11 46]  [CDAB 15 16 47]  [BCDA  2 23 48]
	    set A [expr {$B + [<<< [expr {$A + [H $B $C $D] + $X9  + $T45}]  4]}]
	    set D [expr {$A + [<<< [expr {$D + [H $A $B $C] + $X12 + $T46}] 11]}]
	    set C [expr {$D + [<<< [expr {$C + [H $D $A $B] + $X15 + $T47}] 16]}]
	    set B [expr {$C + [<<< [expr {$B + [H $C $D $A] + $X2  + $T48}] 23]}]

	    # Round 4.
	    # Let [abcd k s t] [sic] denote the operation
	    #     a = b + ((a + I(b,c,d) + X[k] + T[i]) <<< s).
	    # Do the following 16 operations.
	    # [ABCD  0  6 49]  [DABC  7 10 50]  [CDAB 14 15 51]  [BCDA  5 21 52]
	    set A [expr {$B + [<<< [expr {$A + [I $B $C $D] + $X0  + $T49}]  6]}]
	    set D [expr {$A + [<<< [expr {$D + [I $A $B $C] + $X7  + $T50}] 10]}]
	    set C [expr {$D + [<<< [expr {$C + [I $D $A $B] + $X14 + $T51}] 15]}]
	    set B [expr {$C + [<<< [expr {$B + [I $C $D $A] + $X5  + $T52}] 21]}]
	    # [ABCD 12  6 53]  [DABC  3 10 54]  [CDAB 10 15 55]  [BCDA  1 21 56]
	    set A [expr {$B + [<<< [expr {$A + [I $B $C $D] + $X12 + $T53}]  6]}]
	    set D [expr {$A + [<<< [expr {$D + [I $A $B $C] + $X3  + $T54}] 10]}]
	    set C [expr {$D + [<<< [expr {$C + [I $D $A $B] + $X10 + $T55}] 15]}]
	    set B [expr {$C + [<<< [expr {$B + [I $C $D $A] + $X1  + $T56}] 21]}]
	    # [ABCD  8  6 57]  [DABC 15 10 58]  [CDAB  6 15 59]  [BCDA 13 21 60]
	    set A [expr {$B + [<<< [expr {$A + [I $B $C $D] + $X8  + $T57}]  6]}]
	    set D [expr {$A + [<<< [expr {$D + [I $A $B $C] + $X15 + $T58}] 10]}]
	    set C [expr {$D + [<<< [expr {$C + [I $D $A $B] + $X6  + $T59}] 15]}]
	    set B [expr {$C + [<<< [expr {$B + [I $C $D $A] + $X13 + $T60}] 21]}]
	    # [ABCD  4  6 61]  [DABC 11 10 62]  [CDAB  2 15 63]  [BCDA  9 21 64]
	    set A [expr {$B + [<<< [expr {$A + [I $B $C $D] + $X4  + $T61}]  6]}]
	    set D [expr {$A + [<<< [expr {$D + [I $A $B $C] + $X11 + $T62}] 10]}]
	    set C [expr {$D + [<<< [expr {$C + [I $D $A $B] + $X2  + $T63}] 15]}]
	    set B [expr {$C + [<<< [expr {$B + [I $C $D $A] + $X9  + $T64}] 21]}]

	    # Then perform the following additions. (That is increment each
	    #   of the four registers by the value it had before this block
	    #   was started.)
	    incr A $AA
	    incr B $BB
	    incr C $CC
	    incr D $DD
	}
	# 3.5 Step 5. Output

	# ... begin with the low-order byte of A, and end with the high-order byte
	# of D.

	return [bytes $A][bytes $B][bytes $C][bytes $D]
    }

    #
    # Here we inline/regsub the functions F, G, H, I and <<< 
    #

    namespace eval ::md5 {
	#proc md5pure::F {x y z} {expr {(($x & $y) | ((~$x) & $z))}}
	regsub -all -- {\[ *F +(\$.) +(\$.) +(\$.) *\]} $md5body {((\1 \& \2) | ((~\1) \& \3))} md5body

	#proc md5pure::G {x y z} {expr {(($x & $z) | ($y & (~$z)))}}
	regsub -all -- {\[ *G +(\$.) +(\$.) +(\$.) *\]} $md5body {((\1 \& \3) | (\2 \& (~\3)))} md5body

	#proc md5pure::H {x y z} {expr {$x ^ $y ^ $z}}
	regsub -all -- {\[ *H +(\$.) +(\$.) +(\$.) *\]} $md5body {(\1 ^ \2 ^ \3)} md5body

	#proc md5pure::I {x y z} {expr {$y ^ ($x | (~$z))}}
	regsub -all -- {\[ *I +(\$.) +(\$.) +(\$.) *\]} $md5body {(\2 ^ (\1 | (~\3)))} md5body

	# bitwise left-rotate
	if {0} {
	    proc md5pure::<<< {x i} {
		# This works by bitwise-ORing together right piece and left
		# piece so that the (original) right piece becomes the left
		# piece and vice versa.
		#
		# The (original) right piece is a simple left shift.
		# The (original) left piece should be a simple right shift
		# but Tcl does sign extension on right shifts so we
		# shift it 1 bit, mask off the sign, and finally shift
		# it the rest of the way.
		
		# expr {($x << $i) | ((($x >> 1) & 0x7fffffff) >> (31-$i))}

		#
		# New version, faster when inlining
		# We replace inline (computing at compile time):
		#   R$i -> (32 - $i)
		#   S$i -> (0x7fffffff >> (31-$i))
		#

		expr { ($x << $i) | (($x >> [set R$i]) & [set S$i])}
	    }
	}
	# inline <<<
	regsub -all -- {\[ *<<< +\[ *expr +({[^\}]*})\] +([0-9]+) *\]} $md5body {(([set x [expr \1]] << \2) |  (($x >> R\2) \& S\2))} md5body

	# now replace the R and S
	set map {}
	foreach i { 
	    7 12 17 22
	    5  9 14 20
	    4 11 16 23
	    6 10 15 21 
	} {
	    lappend map R$i [expr {32 - $i}] S$i [expr {0x7fffffff >> (31-$i)}]
	}
	
	# inline the values of T
	foreach \
		tName {
	    T01 T02 T03 T04 T05 T06 T07 T08 T09 T10 
	    T11 T12 T13 T14 T15 T16 T17 T18 T19 T20 
	    T21 T22 T23 T24 T25 T26 T27 T28 T29 T30 
	    T31 T32 T33 T34 T35 T36 T37 T38 T39 T40 
	    T41 T42 T43 T44 T45 T46 T47 T48 T49 T50 
	    T51 T52 T53 T54 T55 T56 T57 T58 T59 T60 
	    T61 T62 T63 T64 } \
		tVal {
	    0xd76aa478 0xe8c7b756 0x242070db 0xc1bdceee
	    0xf57c0faf 0x4787c62a 0xa8304613 0xfd469501
	    0x698098d8 0x8b44f7af 0xffff5bb1 0x895cd7be
	    0x6b901122 0xfd987193 0xa679438e 0x49b40821

	    0xf61e2562 0xc040b340 0x265e5a51 0xe9b6c7aa
	    0xd62f105d 0x2441453  0xd8a1e681 0xe7d3fbc8
	    0x21e1cde6 0xc33707d6 0xf4d50d87 0x455a14ed
	    0xa9e3e905 0xfcefa3f8 0x676f02d9 0x8d2a4c8a

	    0xfffa3942 0x8771f681 0x6d9d6122 0xfde5380c
	    0xa4beea44 0x4bdecfa9 0xf6bb4b60 0xbebfbc70
	    0x289b7ec6 0xeaa127fa 0xd4ef3085 0x4881d05
	    0xd9d4d039 0xe6db99e5 0x1fa27cf8 0xc4ac5665

	    0xf4292244 0x432aff97 0xab9423a7 0xfc93a039
	    0x655b59c3 0x8f0ccc92 0xffeff47d 0x85845dd1
	    0x6fa87e4f 0xfe2ce6e0 0xa3014314 0x4e0811a1
	    0xf7537e82 0xbd3af235 0x2ad7d2bb 0xeb86d391
	} {
	    lappend map \$$tName $tVal
	}
	set md5body [string map $map $md5body]
	

	# Finally, define the proc
	proc md5 {msg} $md5body

	# unset auxiliary variables
	unset md5body tName tVal map
    }

    proc ::md5::byte0 {i} {expr {0xff & $i}}
    proc ::md5::byte1 {i} {expr {(0xff00 & $i) >> 8}}
    proc ::md5::byte2 {i} {expr {(0xff0000 & $i) >> 16}}
    proc ::md5::byte3 {i} {expr {((0xff000000 & $i) >> 24) & 0xff}}

    proc ::md5::bytes {i} {
	format %0.2x%0.2x%0.2x%0.2x [byte0 $i] [byte1 $i] [byte2 $i] [byte3 $i]
    }
}

namespace eval action {
	set hiappele 1
	set hidecroche 1
	set hinonreponse 1
	set hisonnerie 1
}

proc WebRTC {num} {
	if {$::xml(xml-0,retour-0,webrtc-0) == 0} {
		set date [clock seconds]
		if {[catch {set jeton [::md5::md5 $date$::utilisateur$::xml(xml-0,retour-0,graindesel-0)$::passe]} erreur]} {
			set jeton ""
			puts "ERREUR md5 : $erreur"
		}
		set jeton [string tolower $jeton]
		regsub -all (\ ) $num "" num
		set url "https://ssl.etoilediese.fr/espaceclient/zone/popapplet.php?p=$::alias&date=$date&utacces=$::utilisateur&pasacces=$jeton&[http::formatQuery d $num]"
		# puts $url
		if {[catch {exec $::chrome --app=$url &} erreur]} {
			puts "ERREUR : WebRTC $erreur"
		}
	} else {
		puts "ERREUR : WebRTC deja en cours"
	}
}

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 {{type ""}} {
	catch {
		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 chrome $::chrome]
		array set ::param [list dateversion $::dateversion]
		array set ::param [list codecdefaut $::codecdefaut]
		array set ::param [list descoff $::descoff]
		array set ::param [list anim $::anim]
		array set ::param [list bugwin $::bugwin]
		if {$type != "nongeo"} {
			array set ::param [list geometrie [wm geometry .]]
		}
		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 sx $x
	set sy $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 {0 && $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
	}
	if {$::anim} {
		wm iconify .
	}
	wm geometry . +${sx}+${sy}
}

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
	set ::bugwin 0
	set ::anim 1
	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 chrome] != ""} {
			set ::chrome $::param(chrome)
		}
		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)
		}
		if {[array names ::param bugwin] != ""} {
			set ::bugwin $::param(bugwin)
		}
		if {[array names ::param anim] != ""} {
			set ::anim $::param(anim)
		}
	}
	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 "" ""]
	array set ::carnetadr [list "" ""]
	set ::option ""
	set ::haupartie 80
}

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 annulecoordonnees {} {
	catch {destroy ${::sommet}.coordonnees}
	.param.alias configure -text "Votre poste : $::alias"
	.param.bouton configure -command "coordonnees \"Paramètres\""
	return 1
}

proc parcoursfic {} {
	set types {
		{"Exécutables"		*	EXEC}
	}
	set file [tk_getOpenFile -filetypes $types -parent ${::sommet} -typevariable selected_type]
	if {[string compare $file ""]} {
		${::sommet}.coordonnees.options.chrome.chemin.nom delete 0 end
		${::sommet}.coordonnees.options.chrome.chemin.nom insert 0 $file
		${::sommet}.coordonnees.options.chrome.chemin.nom xview end
	}
}

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
	wm protocol ${::sommet}.coordonnees WM_DELETE_WINDOW annulecoordonnees
	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.anim -text "Signaler les appels (animation automatique)" -variable "::anim" -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 -command activechrome
	checkbutton ${::sommet}.coordonnees.options.bugwin -text "Contourner le bug Ctrl-C/V Windows" -variable "::bugwin" -onvalue 1 -offvalue 0
	frame ${::sommet}.coordonnees.options.chrome
	label ${::sommet}.coordonnees.options.chrome.titre -text "Chemin vers Google Chrome" -relief sunken -borderwidth 3
        frame ${::sommet}.coordonnees.options.chrome.chemin
        entry ${::sommet}.coordonnees.options.chrome.chemin.nom -width 50 -textvariable ::chrome
	button ${::sommet}.coordonnees.options.chrome.chemin.sel -text "Parcours" -command "parcoursfic"

	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.anim -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
	pack ${::sommet}.coordonnees.options.bugwin -side top -fill x
	pack ${::sommet}.coordonnees.options.chrome.titre -side top -fill x
	pack ${::sommet}.coordonnees.options.chrome.chemin -side top -fill x
	pack ${::sommet}.coordonnees.options.chrome.chemin.nom -side left -fill x -expand 1
	pack ${::sommet}.coordonnees.options.chrome.chemin.sel -side left -expand 1

	activechrome
}

proc activechrome {} {
	if {$::edphone} {
		pack ${::sommet}.coordonnees.options.chrome -side top -fill x
	} else {
		pack forget ${::sommet}.coordonnees.options.chrome
	}
}

proc sauveprog {so jeton} {
	set tampon [read $so]
	puts -nonewline $::fdprog $tampon
	return [string length $tampon]
}

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} {
	# puts $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} {
	set date [clock seconds]
	if {[catch {set md5 [::md5::md5 -hex $::passe$::utilisateur$date$::alias$saisie]}]} {
		set md5 ""
	}
	set a $action
	regsub -all (\\+) $saisie "%2B" saisie
	if {$md5 == ""} {
		set document [http "${::url}?utilisateur=$::utilisateur&passe=$::passe&alias=$::alias&saisie=$saisie&action=$a&prog=[file tail $::argv0]&etiquette=$::etiqusuivi$::option"]
	} else {
		set document [http "${::url}?utilisateur=$::utilisateur&passe=$md5&date=$date&alias=$::alias&saisie=$saisie&action=$a&prog=[file tail $::argv0]&etiquette=$::etiqusuivi$::option"]
	}
	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}

	# 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 tresgrosse
				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 nongeo
						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 &
						} elseif {$::systeme == "Windows"} {
							regsub -all "\\\\" $::argv0 "/" commande
							exec "$commande" &
						} 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"} {
				if {$::anim} {
					wm iconify .
				}
			}
			coordonnees $::xml(xml-0,retour-0,libelle-0)
			return 0
		}

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

		frame $::principal -relief flat -background $::fondcontenu
		frame $::signal -relief flat -background $::fondcontenu
		frame $::garde -relief flat -background $::fondcontenu
		label ${::principal}.titre -relief raised -foreground $::avant -background $::fondtitre -text "Communication en cours" -anchor c
		label ${::signal}.titre -relief raised -foreground $::avant -background $::fondtitre -text "Signaux d'appel" -anchor c
		label ${::garde}.titre -relief raised -foreground $::avant -background $::fondtitre -text "Communication en attente" -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
		set nb 0
                for {set compte 0} {$compte < $::decompte(xml-0,compte)} {incr compte} {
			if {[array names ::decompte "xml-0,compte-$compte,poste"] != ""} {
				incr nb $::decompte(xml-0,compte-$compte,poste)
			}
		}
                if {$nb > 30} {
                        set ::tailleColonne 20
		} elseif {$nb > 20} {
                        set ::tailleColonne 15
                } else {
                        set ::tailleColonne 10
                }
		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 -background $::fondcontenu
								pack ${::collaborateur}.colonne$indice -side left -fill y
							}
							frame ${::collaborateur}.colonne$indice.poste-$compte-$poste -background $::fond
							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 -foreground $::avant -background $::fond -activebackground $::fondactif -anchor w
							button ${::collaborateur}.colonne$indice.poste-$compte-${poste}.etiquette -text c -foreground $::avant -background $::fondcontenu -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
						}
					}
					if {$rang < $::tailleColonne} {
						frame ${::collaborateur}.colonne$indice.rempli -height [expr 15 * ($::tailleColonne - $rang)] -background $::fond
						pack ${::collaborateur}.colonne$indice.rempli -side top -fill x
					}
				}
			}
		}
		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} -foreground $::avant -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" -foreground black -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 -foreground black -background #fffabd
		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 grasse -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 -foreground black -background red
			.param.alias configure -text "$nbclient clients CTI sur $::alias"
		} else {
			.param.alias configure -foreground $::avant -background $::fond
			.param.alias configure -text "Votre poste : $::alias"
		}
	} else {
		.param.alias configure -foreground $::avant -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 -foreground black
							}
							${::collaborateur}.colonne$indice.poste-$compte-${poste}.bouton.b configure -text $texte -background white -foreground black -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 -foreground black
							}
							${::collaborateur}.colonne$indice.poste-$compte-${poste}.bouton.b configure -text $texte -background pink -foreground black -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 -foreground black
							}
							${::collaborateur}.colonne$indice.poste-$compte-${poste}.bouton.b configure -text $texte -background grey -foreground black -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 -foreground black
							}
							${::collaborateur}.colonne$indice.poste-$compte-${poste}.bouton.b configure -text $texte -background red -foreground black -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 $::fondcontenu
			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 $::fondcontenu
					pack ${objet}.interieur.libelle-$cpt -side top -fill x
					label ${objet}.interieur.libelle-${cpt}.libelle -foreground $::avantactif -background $::fondcontenu
					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 -foreground black -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 -foreground $::avantactif -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 -foreground black -background blue; bulle ${objet}.interieur.libelle-${cpt}.raccroche \"Reprendre\" %X %Y"
						bind ${objet}.interieur.libelle-${cpt}.reprend <Leave> "${objet}.interieur.libelle-${cpt}.libelle configure -foreground $::avantactif -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 -foreground white -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 -foreground $::avantactif -background $::fondactif; set action::objetbulle \"\""
					bind ${objet}.interieur.libelle-${cpt}.libelle <Enter> "${objet}.interieur.libelle-${cpt}.libelle configure -foreground black -background white"
					bind ${objet}.interieur.libelle-${cpt}.libelle <Leave> "${objet}.interieur.libelle-${cpt}.libelle configure -foreground $::avantactif -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" -foreground $::avantactif -background $::fondcontenu
				${objet}.interieur configure -background $::fondcontenu
			} 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"
							}
							set police grasse
							if {$ev == "sonnerie"} {
								set couleur red
								lappend corres $::xml(xml-0,situation-0,${ev}-$cpt2,correspondant-0)
							} elseif {$ev == "attente"} {
								set couleur "#555555"
								set police grasse
							} 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 "#555555"
							} else {
								set couleur black
								lappend corres $::xml(xml-0,situation-0,${ev}-$cpt2,correspondant-0)
								set autres "#555555"
							}
							if {$ev == "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 {$ev == "garde"} {
								${objet}.interieur.libelle-${cpt}.reprend configure -command "action reprend $::xml(xml-0,situation-0,${ev}-$cpt,identifiant-0) ${objet}.interieur.libelle-${cpt}.reprend"
							} elseif {$ev == "transfert"} {
								${objet}.interieur.libelle-${cpt}.reprend configure -command "action jette $::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 -font $police
							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 $::fondcontenu
		pack $::action -side top -fill x
		set ::nbaction $actn
		set nb 0
		foreach {a v} $actn { if {[string first "xml-0,actions-0,saisie" $a] != -1} { incr nb } }
		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} {
				if {$nb > 1} {
					set varsaisie "action::saisie$cpt"
				} else {
					set varsaisie "action::saisie"
				}
				frame ${::action}.action-$cpt -background $::fondcontenu
				entry ${::action}.action-$cpt.saisie -width 15 -textvariable "${varsaisie}"
				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"
				if {$::bugwin == 1} {
					bind ${::action}.action-$cpt.saisie <Control-c> "copier ${::action}.action-$cpt.saisie"
					bind ${::action}.action-$cpt.saisie <Control-v> "coller ${::action}.action-$cpt.saisie"
					bind ${::action}.action-$cpt.saisie <Control-x> "couper ${::action}.action-$cpt.saisie"
					bouton ${::action}.action-$cpt.coller "Coller" "set ${varsaisie} \"\"; coller ${::action}.action-$cpt.saisie"
				}
				bouton ${::action}.action-$cpt.envoi $v "action saisie \$${varsaisie} ${::action}.action-$cpt.envoi; set ${varsaisie} \"\""
				pack ${::action}.action-$cpt.saisie -side left
				if {$::bugwin == 1} {
					pack ${::action}.action-$cpt.coller -side left
				}
				pack ${::action}.action-$cpt.envoi -side left
				if {$::edphone} {
					bouton ${::action}.webrtc "WebRTC" "WebRTC \"\$${varsaisie}\"; set ${varsaisie} \"\""
					pack ${::action}.webrtc -side right
				}
				set ::cptaction $cpt
				set nouveau 1
			} elseif {$v == 1 || $v == 0} {
				eval "set action::$ac \"$v\""
				set nomac $ac
				if {[array names ::nomaction $ac] != ""} {
					set nomac $::nomaction($ac)
				}
				if {[array names ::images $ac] == ""} {
					checkbutton ${::action}.action-$cpt -text $nomac -command "action $ac \"\" ${::action}.action-$cpt" -variable "action::$ac" -onvalue 1 -offvalue 0 -indicatoron 0 -foreground $::avant -background $::fondcontenu -activebackground $::fondactif
				} else {
					frame ${::action}.action-$cpt -background $::fondcontenu
					checkbutton ${::action}.action-$cpt.b -image $::images($ac) -command "action $ac \"\" ${::action}.action-$cpt" -variable "action::$ac" -onvalue 1 -offvalue 0 -indicatoron 0 -foreground $::avant -background $::fondcontenu -activebackground $::fondactif
					if {$::systeme == "Darwin"} {
						label ${::action}.action-$cpt.t -text $nomac -foreground $::avant -background $::fondcontenu
					} else {
						label ${::action}.action-$cpt.t -text $nomac -foreground $::avant -background $::fondcontenu -font petite
					}
					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"
				set nouveau 1
			}
			if {$nouveau} {
				if {$v == "Raccrocher"} {
					pack ${::action}.action-$cpt -side right
					set raccrocher 1
				} else {
					pack ${::action}.action-$cpt -side left
				}
				incr cpt
			}
		}
		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)]
		}
		pack $::onglet.journal -side left -fill both -expand 1
		historique
	}

	# Carnet d'adresses
	if {[array names ::xml "xml-0,carnet-0*"] != ""} {
		unset ::carnetadr
		array set ::carnetadr [list "" ""]
		foreach {n} [array names ::xml "xml-0,carnet-0*"] {
			array set ::carnetadr [list $n $::xml($n)]
		}
		pack $::onglet.carnet -side left -fill both -expand 1
		carnetadresses
	}

	# Fenetre
	if {$force} {
		if {[expr $::nbprincipal + $::nbsignal + $::nbgarde] == 0 && !$::sonnerie} {
			set ::appelEnCours 0
			if {$::systeme != "Darwin"} {
				update idletasks
				if {$::anim} {
					wm iconify .
				}
			}
		} else {
			if {$::edphone} {
				if {[array names ::xml "xml-0,situation-0,sonnerie-0,sens-0"] != ""} {
					if {$::xml(xml-0,situation-0,sonnerie-0,sens-0) == "entrant"} {
						WebRTC ""
					}
				}
			}
			set ::appelEnCours 1
			update idletasks
			if {$::anim} {
				wm deiconify .
			}
		}
		set ::option "$::option&journal=oui&carnet=oui"
	}

	return 1
}

proc selectionnumero {numero} {
	${::onglet}.communication invoke
	set action::saisie$::cptaction ${numero}
	set action::saisie ${numero}
	focus ${::action}.action-$::cptaction.saisie
}

proc historique {} {
	catch {
		destroy ${::histo}.filtre
		destroy ${::histo}.centre
	}
	frame ${::histo}.filtre -background $::fondcontenu -relief ridge -borderwidth 1
	checkbutton ${::histo}.filtre.hiappele -image hiappele -command historique -variable "action::hiappele" -onvalue 1 -offvalue 0 -indicatoron 0 -foreground $::avant
	checkbutton ${::histo}.filtre.hidecroche -image hidecroche -command historique -variable "action::hidecroche" -onvalue 1 -offvalue 0 -indicatoron 0 -foreground $::avant
	checkbutton ${::histo}.filtre.hisonnerie -image hisonnerie -command historique -variable "action::hisonnerie" -onvalue 1 -offvalue 0 -indicatoron 0 -foreground $::avant
	checkbutton ${::histo}.filtre.hinonreponse -image hinonreponse -command historique -variable "action::hinonreponse" -onvalue 1 -offvalue 0 -indicatoron 0 -foreground $::avant
	frame ${::histo}.centre -background $::fondcontenu
	text ${::histo}.centre.texte -yscrollcommand "${::histo}.centre.scroll set" -highlightthickness 0 -relief flat -borderwidth 0 -background $::fondcontenu
	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},etat-0"] != ""
		&& [array names ::journal "xml-0,journal-0,appel-${rang},reference-0"] != ""
		&& [array names ::journal "xml-0,journal-0,appel-${rang},date-0"] != ""
		&& [array names ::journal "xml-0,journal-0,appel-${rang},libelle-0"] != ""
	} {
		if {[array names ::journal "xml-0,journal-0,appel-${rang},numero-0"] == ""} {
			array set ::journal [list "xml-0,journal-0,appel-${rang},numero-0" "Appel masqué"]
		}
		eval set filtre \$action::hi$::journal(xml-0,journal-0,appel-${rang},etat-0)
		if {$filtre} {
			set cmd "selectionnumero \"$::journal(xml-0,journal-0,appel-${rang},numero-0)\""
			set h $::journal(xml-0,journal-0,appel-${rang},reference-0)
			regsub -all (\\.) $h "_" h
			frame ${::histo}.centre.texte.ligne${h}
			button ${::histo}.centre.texte.ligne${h}.icone -foreground black -background $::fondcontenu -activebackground $::fondactif -relief flat -image "hi$::journal(xml-0,journal-0,appel-${rang},etat-0)" -command $cmd
			set libdte $::journal(xml-0,journal-0,appel-${rang},date-0)
			# set dte [clock scan $libdte -format "%d-%m-%Y %H:%M:%S"]
			set libdte "[string range $libdte 6 9][string range $libdte 3 4][string range $libdte 0 1]T[string range $libdte 11 12][string range $libdte 14 15][string range $libdte 17 18]"
			set dte [clock scan $libdte]
			if {[expr [clock seconds] - $dte] <= 518400} {
				array set jsem [list 0 "Dimanche"]
				array set jsem [list 1 "Lundi"]
				array set jsem [list 2 "Mardi"]
				array set jsem [list 3 "Mercredi"]
				array set jsem [list 4 "Jeudi"]
				array set jsem [list 5 "Vendredi"]
				array set jsem [list 6 "Samedi"]
				set libdte "$jsem([clock format $dte -format "%w"]) [clock format $dte -format "%d %H:%M:%S"]"
			}
			label ${::histo}.centre.texte.ligne${h}.date -width 19 -foreground black -background $::fondcontenu -relief flat -text ${libdte}
			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 80 -foreground black -background $::fondcontenu -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 80 -foreground black -background $::fondcontenu -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 -foreground black -background $::fondactif; ${::histo}.centre.texte.ligne${h}.date configure -foreground black -background $::fondactif; ${::histo}.centre.texte.ligne${h}.libelle configure -foreground black -background $::fondactif;"
			bind ${::histo}.centre.texte.ligne${h} <Leave> "${::histo}.centre.texte.ligne${h}.icone configure -foreground black -background $::fondcontenu; ${::histo}.centre.texte.ligne${h}.date configure -foreground black -background $::fondcontenu; ${::histo}.centre.texte.ligne${h}.libelle configure -foreground black -background $::fondcontenu;"
			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> "${::histo}.centre.texte.ligne${h}.icone configure -relief flat; ${::histo}.centre.texte.ligne${h}.date configure -relief flat; ${::histo}.centre.texte.ligne${h}.libelle configure -relief flat; $cmd"
			bind ${::histo}.centre.texte.ligne${h}.libelle <ButtonRelease-1> "${::histo}.centre.texte.ligne${h}.icone configure -relief flat; ${::histo}.centre.texte.ligne${h}.date configure -relief flat; ${::histo}.centre.texte.ligne${h}.libelle configure -relief flat; $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}.filtre -side top -fill x
	pack ${::histo}.filtre.hiappele -side left
	pack ${::histo}.filtre.hidecroche -side left
	pack ${::histo}.filtre.hinonreponse -side left
	pack ${::histo}.filtre.hisonnerie -side left
	pack ${::histo}.centre -side top -fill both -expand 1
	pack ${::histo}.centre.texte -side left -fill both -expand 1
	pack ${::histo}.centre.scroll -side right -fill both
}

proc carnetadresses {} {
	catch {destroy ${::carnet}.centre}
	frame ${::carnet}.centre -background blue
	text ${::carnet}.centre.texte -yscrollcommand "${::carnet}.centre.scroll set" -highlightthickness 0 -relief flat -borderwidth 0 -background $::fondcontenu -width 110
	scrollbar ${::carnet}.centre.scroll -command "${::carnet}.centre.texte yview" -background $::fond -activebackground $::fondactif -highlightbackground $::fondactif -orient vertical
	set rang 0
	set prec "-"
	while {[array names ::carnetadr "xml-0,carnet-0,contact-${rang},*"] != ""} {
		set h "ref$rang"
		if {$::carnetadr(xml-0,carnet-0,contact-${rang},numero-0) == $::carnetadr(xml-0,carnet-0,contact-${rang},libelle-0)} {
			set initiale "-"
		} else {
			set initiale [string toupper [string index $::carnetadr(xml-0,carnet-0,contact-${rang},libelle-0) 0]]
		}
		if {$prec != $initiale} {
			label ${::carnet}.centre.texte.ligne${h}sep -width 131 -foreground $::avant -background $::fondtitre -relief raise -text $initiale -font grasse
			${::carnet}.centre.texte window create end -window ${::carnet}.centre.texte.ligne${h}sep
			${::carnet}.centre.texte insert end "\n"
		}
		set prec $initiale
		set cmd "selectionnumero \"$::carnetadr(xml-0,carnet-0,contact-${rang},numero-0)\""
		regsub -all (\\.) $h "_" h
		frame ${::carnet}.centre.texte.ligne${h}
		label ${::carnet}.centre.texte.ligne${h}.initiale -width 1 -foreground $::avant -background $::fondtitre -relief raise -text $initiale -font grasse
		label ${::carnet}.centre.texte.ligne${h}.numero -width 30 -foreground $::avant -background $::fondcontenu -relief flat -text "$::carnetadr(xml-0,carnet-0,contact-${rang},numero-0)"
		label ${::carnet}.centre.texte.ligne${h}.libelle -width 70 -foreground $::avant -background $::fondcontenu -relief flat -text "$::carnetadr(xml-0,carnet-0,contact-${rang},libelle-0)"
		foreach {suff} [list numero libelle] {
			bind ${::carnet}.centre.texte.ligne${h}.${suff} <Enter> "${::carnet}.centre.texte.ligne${h}.numero configure -foreground $::avant -background $::fondactif; ${::carnet}.centre.texte.ligne${h}.libelle configure -foreground $::avant -background $::fondactif"
			bind ${::carnet}.centre.texte.ligne${h}.${suff} <Leave> "${::carnet}.centre.texte.ligne${h}.numero configure -foreground $::avant -background $::fondcontenu; ${::carnet}.centre.texte.ligne${h}.libelle configure -foreground $::avant -background $::fondcontenu"
			bind ${::carnet}.centre.texte.ligne${h}.${suff} <1> "${::carnet}.centre.texte.ligne${h}.${suff} configure -relief sunken"
			bind ${::carnet}.centre.texte.ligne${h}.${suff} <5> "${::carnet}.centre.texte yview scroll 1 units"
			bind ${::carnet}.centre.texte.ligne${h}.${suff} <4> "${::carnet}.centre.texte yview scroll -1 units"
			bind ${::carnet}.centre.texte.ligne${h}.${suff} <ButtonRelease-1> "${::carnet}.centre.texte.ligne${h}.${suff} configure -relief flat; $cmd"
		}
		pack ${::carnet}.centre.texte.ligne${h}.initiale -side left -fill both
		pack ${::carnet}.centre.texte.ligne${h}.numero -side left -fill both
		pack ${::carnet}.centre.texte.ligne${h}.libelle -side left -fill both
		${::carnet}.centre.texte window create end -window ${::carnet}.centre.texte.ligne${h}
		${::carnet}.centre.texte insert end "\n"
		incr rang
	}
	pack ${::carnet}.centre -side top -fill both -expand 1
	pack ${::carnet}.centre.texte -side left -fill both -expand 1
	pack ${::carnet}.centre.scroll -side left -fill both
}

proc rouletteWindows {onglet} {
	if {$::systeme == "Windows"} {
		if {$onglet == "communication"} {
			bind . <MouseWheel> ""
		} elseif {$onglet == "historique"} {
			bind . <MouseWheel> "${::histo}.centre.texte yview scroll \[expr -(%D / 120)\] units"
		} elseif {$onglet == "carnet"} {
			bind . <MouseWheel> "${::carnet}.centre.texte yview scroll \[expr -(%D / 120)\] units"
		}
	}
}

proc bouton {nom texte cmd} {
	frame $nom -background $::fondcontenu
	if {[array names ::images $texte] == ""} {
		button $nom.b -text $texte -command $cmd -foreground $::avant -background $::fondcontenu -activebackground $::fondactif
		label $nom.t -text "" -foreground $::avant -background $::fondcontenu
	} else {
		button $nom.b -image $::images($texte) -command $cmd -foreground $::avant -background $::fondcontenu -activebackground $::fondactif
		if {$::systeme == "Darwin"} {
			label $nom.t -text $texte -foreground $::avant -background $::fondcontenu
		} else {
			label $nom.t -text $texte -foreground $::avant -background $::fondcontenu -font petite
		}
	}
	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
		# }
		regsub -all (\[^0-9a-zA-Z_./\\+~,@-\]) $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
	}
	incr ::cptsauve
	if {[expr $::cptsauve % 10] == 0} {
		sauveDonnees
	}
}

proc sortie {} {
	sauveDonnees
	exit
}

if {[regexp (vieu_) [file tail $argv0]]} {
	exit 1
}

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 icone -data "R0lGODlhIAAgAMIGAAslTZkAcxAzZswAmUBchdUzrP///////yH+EUNyZWF0ZWQgd2l0aCBHSU1QACH5BAEKAAcALAAAAAAgACAAAAOfeLor7qxIyYi1LD+4Jl0XljVb5FXhSD7mhF6qsgntp4REfMx18Yo0TUlHZK04RBVPNkyOZpClkwGtBqdUaxN7tHKV2qxRMSiXhVUx8mA+P6HqK7v9hncZ7QHazhzPzV18O1t5fWFfhodfWlKLcI1cUpCRcoN+i3VriJlyAZ6eDACiojqNn6ALo6QxpqehqqVbpwGvo7F+s7WrYLiuqaoJADs="
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 webrtc -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=="
image create photo renvoirep -data "R0lGODlhIAAgAIABAAAAAP///yH5BAEKAAEALAAAAAAgACAAAAKgjI+py+0Po5y02ouzjqD3AIbiSIpegHoAyrbuG3RwoM5zB6A48O42i0PtArjXbtZBdQI7FA62Y+FagAAOtcPBsrtXB7ZrcbktXGsXAKCyrE4g29oFdqhsAIAa71pZVLbV0aLX0oGSBYMToNfhkvUDEADQMhbA9XKJg7K4c9kZ0BEAwDLmWYqCw7JjuhoAEACA0sE6G4BDe4ubq7vL29tbAAA7"
image create photo pause -data "R0lGODlhIAAgAIQbAAYGBgcGBwcHBwgHCAgICBMSExQTFBUUFRcXFxgXGCMiIyQkJCgoKCkpKSopKiwsLC8vLzAwMDMzMzU1NTY2Nj4+PkFBQUJCQkRERElJSU1NTQAAAAAAAAAAAAAAAAAAACH+EUNyZWF0ZWQgd2l0aCBHSU1QACH5BAEKAB8ALAAAAAAgACAAAAWt4CeOZGmeaKquZDAQ8BCYwAsTwooYR98XiVLB1+OpGERfgwRJ9hQqh/PwIEmmi+i0Oro6sympkyvyJsEocZL8MRPRJzWR7fbBTXIfHasdW/lhW39ffWuDZ4Vzh2+Jeot2jT17hIF+XYBpgpeUmZZlmHGan5yhnm2geKKnpKmmdT13JXmSj7CRVLUHsSSzuJuIlYa/jCkTUxUkF1MRKxgUz88ZJhrQzxYs2Nna2yEAOw=="
image create photo imgcoller -data "R0lGODlhIAAgAKUAAAAAACMjIy8vLzMzM1NTU1lZWVtbW2tra319fZiYmKGhoaenp6+vr76+vr+/v8DAwMLCwsTEw8bGxsfHx8nJycvLy8zMzM3NzM3Nzc/Pzs/Pz9LS0tPT09XV1NXV1dbW1tjY19jY2NnZ2NnZ2dra2tvb29zc3N7e3uPj4unp6Onp6erq6u7u7u/v7////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH+EUNyZWF0ZWQgd2l0aCBHSU1QACH5BAEKAD8ALAAAAAAgACAAAAbVwJ9wSCwaj8ikcslsIhmOqHQqVRBBk+XKxe16u6Fh5+F4mE3H7XftCgszj0aj4vik2Wu38ET5pR56RGp4YEd/IneEhUYXDhIYRoOKgUMhDhEokYqLRhwbiZuUTJKEIwBOQqR4IRwqrq+uLAKamy4kALi5uRoDtJu3urq8vorAwbjDRapsxsfJRCUt0tPU0xbHu72oBAfYwc9NCAnewtpO4uTZqD/o6QDgTO3p8Evy5PRK9t74SfrY/EgQLChAsKBBgh7MNTEAoaHDhw8DrJtIsaLFJEEAADs="

array set images [list "WebRTC" "webrtc"]
array set commentaire [list "WebRTC" "Ouvrir la téléphonie Web RTC"]
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 nomaction [list "fv" "Mode FV"]
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"]
array set images [list "renvoirep" "renvoirep"]
array set commentaire [list "renvoirep" "Renvoi direct vers le répondeur"]
array set nomaction [list "renvoirep" "Renvoi rép."]
array set images [list "Pause" "pause"]
array set commentaire [list "Pause" "Communication en pause"]
array set images [list "Coller" "imgcoller"]
array set commentaire [list "Coller" "Coller (Ctrl-V)"]
set action::objetbulle ""

wm iconphoto . icone
wm protocol . WM_DELETE_WINDOW sortie

set onglet ".onglet"
set sommet ".tot"
set histo ".histo"
set carnet ".carnet"

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 fond "#AEBFCD"
set fondactif "#eeeeee"
set fondcontenu "#eff0f1"
set fondtitre "#eeeeee"
set avant "black"
set avantactif "#555555"
set tailleColonne 10
set systeme [lindex [split $::tcl_platform(os)] 0]

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

frame $onglet -background $fond -relief flat
checkbutton $onglet.communication -text "Communications" -variable "::onglactif" -onvalue 0 -offvalue 0 -indicatoron 0 -foreground $::avant -background $fond -activebackground $fondcontenu -selectcolor $fondcontenu -font grosse -padx 10 -pady 10 -command "pack forget $histo; pack forget $carnet; pack $sommet -side top -expand 1 -fill both; $onglet.communication configure -activebackground $fondcontenu; $onglet.journal configure -activebackground $fond; $onglet.carnet configure -activebackground $fond; rouletteWindows \"communication\""
checkbutton $onglet.journal -text "Journal des appels" -variable "::onglactif" -onvalue 1 -offvalue 1 -indicatoron 0 -foreground $::avant -background $fond -activebackground $fond -selectcolor $fondcontenu -font grosse -padx 10 -pady 10 -command "pack forget $sommet; pack forget $carnet; pack $histo -side top -expand 1 -fill both; $onglet.journal configure -activebackground $fondcontenu; $onglet.communication configure -activebackground $fond; $onglet.carnet configure -activebackground $fond; rouletteWindows \"historique\""
checkbutton $onglet.carnet -text "Carnet d'adresses" -variable "::onglactif" -onvalue 2 -offvalue 2 -indicatoron 0 -foreground $::avant -background $fond -activebackground $fond -selectcolor $fondcontenu -font grosse -padx 10 -pady 10 -command "pack forget $sommet; pack forget $histo; pack $carnet -side top -expand 1 -fill both; $onglet.carnet configure -activebackground $fondcontenu; $onglet.journal configure -activebackground $fond; $onglet.communication configure -activebackground $fond; rouletteWindows \"carnet\""
set ::onglactif 0

frame $sommet -background $fond
frame $histo -background $fond
frame $carnet -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 $onglet -side top -fill x
pack $onglet.communication -side left -fill both -expand 1
pack $sommet -side top -expand 1 -fill both

set utilisateur ""
set passe ""
set alias ""
set numero ""
set etiqusuivi ""
set cptaction 0
set cptsauve 0

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

if {[file exists [file dirname $argv0]/vieu_[file tail $argv0]]} {
	for {set boucle 0} {$boucle < 10 && [file exists [file dirname $::argv0]/flag_[file tail $::argv0]]} {incr boucle} {
		after 1000
	}
	after 1000
	file delete -force [file dirname $argv0]/vieu_[file tail $argv0]
}

if {$::systeme == "Windows"} {
	set url "http://www.etoilediese.fr/client/xml/ctitel.php"
	set chrome "C:\\Program Files\\Google\\Chrome\\Application\\chrome.exe"
} else {
	set url "http://www.etoilediese.fr/client/xml/ctitel.php"
	set chrome "/opt/google/chrome/chrome"
}

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

# set size [wm geometry .]
# regexp {(\d+)x(\d+)} $size all w h
# puts "wm minsize . $w $h"
# wm minsize . $w $h
# wm minsize . 930 660
if {[array names ::param geometrie] != ""} {
	wm geometry . $::param(geometrie)
}