Soucis avec un tcl de Dj_Kenny

[djkenny]

tclcopier

proc putbox {idx nb arg} {
global box
  foreach id [array names box] {
    if {[valididx $id] && $id!=$idx} {
      putdcc $id "<\002[idx2hand $idx]@Box n°$nb\002> $arg"
    }
  }
}