diff options
| author | mescalinum <mescalinum@users.sourceforge.net> | 2011-10-15 20:50:44 +0000 |
|---|---|---|
| committer | mescalinum <mescalinum@users.sourceforge.net> | 2011-10-15 20:50:44 +0000 |
| commit | 3c88981ad7f4ffbdf61f5e186e5237320c8acbc9 (patch) | |
| tree | ac13e6437066f58a28c0c5e9cfe7952c8fa8996f /examples/properties.tcl | |
| parent | b43ebdb4ebbe583218d5e7802835b8d7a56c7292 (diff) | |
slider2 still can't save send/recvsymbols properly
svn path=/trunk/externals/loaders/tclpd/; revision=15606
Diffstat (limited to 'examples/properties.tcl')
| -rw-r--r-- | examples/properties.tcl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/examples/properties.tcl b/examples/properties.tcl index 6579389..dc199de 100644 --- a/examples/properties.tcl +++ b/examples/properties.tcl @@ -9,6 +9,8 @@ proc propertieswindow {gfxstub_id {options {}} {title {}}} { set ::id($win.p) $gfxstub_id set ::optkeys($win.p) [list] foreach {k v} $options { + if {$v eq "empty"} {set v {}} + set v [string map {\\$ $} $v] set ::config($win.p:$k) $v lappend ::optkeys($win.p) $k } |