25/04/2014, 10:10
Pour info, voici la procédure de compatibilité présente dans le fichier compat.tcl:
tcl
proc putdccraw {idx size text} {
if {!$idx} {
putloglev o * "Warning! putdccraw is deprecated. Use putnow instead!"
putnow $text
return -code ok
}
putloglev o * "Warning! putdccraw is deprecated. Use putdcc instead!"
if {![valididx $idx]} {return -code error "invalid idx"}
putdcc $idx $text -raw
}