ça c'est inutile aussi (ça risque même de foutre le bordel)
tcl
bind evnt - restart restart2
proc restart2 {arg} {
xconnect:serv
}
C'est en reconnaissant ses erreurs que l'on progresse