Bug TCL sur un bind raw

[djkenny]

tclcopier

set text [split $arg]
# a remplacer par:
set text [string map {"\\" "\\\\" "\{" "\\\{" "\}" "\\\}" "\[" "\\\[" "\]" "\\\]" "\"" "\\\""} $arg]

qui a pour effet de déboguer les "{ [ " ] }"


édit: a parement le forum n aime pas mon code
set text [string map {"\\" "\\\\" "\{" "\\\{" "\}" "\\\}" "\[" "\\\[" "\]" "\\\]" "\"" "\\\""} $arg]