diff options
| -rw-r--r-- | examples/properties.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/examples/properties.tcl b/examples/properties.tcl index d225d74..6579389 100644 --- a/examples/properties.tcl +++ b/examples/properties.tcl @@ -415,9 +415,9 @@ proc propertiespanel_apply {w} { lappend newconf $key $v } set newconf [string map {$ \\$} $newconf] - pd [linsert $newconf 0 $::id($w) config]\; + pdsend "$::id($w) config $newconf" } proc propertiespanel_close {w} { - pd [concat $::id($w) cancel \;] + pdsend "$::id($w) cancel" } |