From db1798affd224390db5f7c260ab7c898646da65e Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Wed, 12 Oct 2011 15:18:39 +0000
Subject: use 0.43's pdsend command in place of <0.43's pd

svn path=/trunk/externals/loaders/tclpd/; revision=15574
---
 examples/properties.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'examples')

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