Contrer la double subsitution

[djkenny]

salut,
ta proc n est pas tout a fait bonne

Code :

proc charfilter {arg} {
  string map {"\\" "\\\\" "\{" "\\\{" "\}" "\\\}" "\[" "\\\[" "\]" "\\\]" "\"" "\\\""} $arg
}

celle la debug les " [ { ] }
dans l absolut la tienne doit fonctionner mais elle est trés mal codé.
++