diff options
| author | mescalinum <mescalinum@users.sourceforge.net> | 2009-09-19 20:33:52 +0000 |
|---|---|---|
| committer | mescalinum <mescalinum@users.sourceforge.net> | 2009-09-19 20:33:52 +0000 |
| commit | 185622c1b3152dc53e3659b3d8191216df283b6a (patch) | |
| tree | c891a9bfa1b4242379c3efd3f2397ef823d02fa7 | |
| parent | f2d8b84196804e13edc69bebd02d070e9b0aa194 (diff) | |
properly send atoms with spaces
svn path=/trunk/externals/tclpd/; revision=12405
| -rw-r--r-- | properties.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/properties.tcl b/properties.tcl index addb624..d225d74 100644 --- a/properties.tcl +++ b/properties.tcl @@ -415,7 +415,7 @@ proc propertiespanel_apply {w} { lappend newconf $key $v } set newconf [string map {$ \\$} $newconf] - pd [concat $::id($w) config {*}$newconf \;] + pd [linsert $newconf 0 $::id($w) config]\; } proc propertiespanel_close {w} { |