0.3.0 - typemaps support complete

svn path=/trunk/externals/loaders/tclpd/; revision=15738

1 files changed, 5 insertions, 3 deletions

diff --git a/examples/properties.tcl b/examples/properties.tcl
index dc199de..cdbfc1d 100644
--- a/examples/properties.tcl
+++ b/examples/properties.tcl
@@ -8,9 +8,10 @@ proc propertieswindow {gfxstub_id {options {}} {title {}}} {
     set win $gfxstub_id
     set ::id($win.p) $gfxstub_id
     set ::optkeys($win.p) [list]
+    set options [string map {@ $} $options]
     foreach {k v} $options {
         if {$v eq "empty"} {set v {}}
-        set v [string map {\\$ $} $v]
+        #set v [string map {\\$ $} $v]
         set ::config($win.p:$k) $v
         lappend ::optkeys($win.p) $k
     }
@@ -416,8 +417,9 @@ proc propertiespanel_apply {w} {
         if {$v == ""} {set v "empty"}
         lappend newconf $key $v
     }
-    set newconf [string map {$ \\$} $newconf]
-    pdsend "$::id($w) config $newconf"
+    #set newconf [string map {$ \\$} $newconf]
+    set newconf [string map {$ @} $newconf]
+    pdsend "$::id($w) config2 $newconf"
 }
 
 proc propertiespanel_close {w} {