proc proc_serv {} {
.....
}
set client_id [thread::create -preserved {source client.tcl;
thread::wait}]
thread::send -async $client_id {set master_id [thread::id]}
thread::send -async $client_id {procedure proc_cli}
dans le client (client.tcl)
proc proc_cli {} {
global master_id
....
thread::send -async $master_id {procedure proc_serv}
....
}
ca a un peu de mal a fonctionner...
a l'initialisation (bind READY) cela va, via un bouton, il ne se passe
rien...
Merci pour votre aide!
--
David Zolli