From c80ad601728139c16c4903f5ed08680f7e5f203c Mon Sep 17 00:00:00 2001
From: mescalinum <mescalinum@users.sourceforge.net>
Date: Sun, 13 Nov 2011 22:52:33 +0000
Subject: 0.3.0 - typemaps support complete

svn path=/trunk/externals/loaders/tclpd/; revision=15738
---
 examples/properties.tcl | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'examples/properties.tcl')

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} {
-- 
cgit v1.2.1