diff options
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 } |