From 4af100ae51803d44af9d7e52da4f9454b4721715 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Tue, 6 Mar 2012 15:31:25 +0000
Subject: use pdsend proc to support Pd >= 0.43

svn path=/trunk/externals/unauthorized/; revision=16049
---
 audience~.tcl   | 4 ++--
 cooled~.tcl     | 4 ++--
 exciter.tcl     | 4 ++--
 filterbank~.tcl | 4 ++--
 grid.tcl        | 4 ++--
 pianoroll.tcl   | 4 ++--
 playlist.tcl    | 4 ++--
 probalizer.tcl  | 4 ++--
 scratcher~.tcl  | 4 ++--
 scrolllist.tcl  | 4 ++--
 10 files changed, 20 insertions(+), 20 deletions(-)

diff --git a/audience~.tcl b/audience~.tcl
index fcf7458..49ea0bd 100644
--- a/audience~.tcl
+++ b/audience~.tcl
@@ -17,13 +17,13 @@ proc audience_apply {id} {
      	[eval concat $$var_graph_nboutputs] \
  	\;]
      #puts stderr $cmd
-     pd $cmd
+     pdsend $cmd
 }
  
 proc audience_cancel {id} {
      set cmd [concat $id cancel \;]
      #puts stderr $cmd
-     pd $cmd
+     pdsend $cmd
 }
  
 proc audience_ok {id} {
diff --git a/cooled~.tcl b/cooled~.tcl
index ebd7699..5965164 100644
--- a/cooled~.tcl
+++ b/cooled~.tcl
@@ -17,13 +17,13 @@ proc cooled_apply {id} {
      	[eval concat $$var_graph_draw] \
  	\;]
      #puts stderr $cmd
-     pd $cmd
+     pdsend $cmd
 }
  
 proc cooled_cancel {id} {
      set cmd [concat $id cancel \;]
      #puts stderr $cmd
-     pd $cmd
+     pdsend $cmd
 }
  
 proc cooled_ok {id} {
diff --git a/exciter.tcl b/exciter.tcl
index c0280e6..11b94e4 100644
--- a/exciter.tcl
+++ b/exciter.tcl
@@ -25,13 +25,13 @@ proc exciter_apply {id} {
          [eval concat $$var_graph_loop] \
          [eval concat $$var_graph_save] \;]
      #puts stderr $cmd
-     pd $cmd
+     pdsend $cmd
 }
  
 proc exciter_cancel {id} {
      set cmd [concat $id cancel \;]
      #puts stderr $cmd
-     pd $cmd
+     pdsend $cmd
 }
  
 proc exciter_ok {id} {
diff --git a/filterbank~.tcl b/filterbank~.tcl
index 4143802..4e0e75e 100644
--- a/filterbank~.tcl
+++ b/filterbank~.tcl
@@ -14,13 +14,13 @@ proc filterbank_apply {id} {
      	[eval concat $$var_graph_highfreq] \
  	\;]
      #puts stderr $cmd
-     pd $cmd
+     pdsend $cmd
 }
  
 proc filterbank_cancel {id} {
      set cmd [concat $id cancel \;]
      #puts stderr $cmd
-     pd $cmd
+     pdsend $cmd
 }
  
 proc filterbank_ok {id} {
diff --git a/grid.tcl b/grid.tcl
index fb8d403..6a739e5 100644
--- a/grid.tcl
+++ b/grid.tcl
@@ -44,13 +44,13 @@ proc grid_apply {id} {
      	[eval concat $$var_graph_ylines] \
  	\;]
      #puts stderr $cmd
-     pd $cmd
+     pdsend $cmd
 }
  
 proc grid_cancel {id} {
      set cmd [concat $id cancel \;]
      #puts stderr $cmd
-     pd $cmd
+     pdsend $cmd
 }
  
 proc grid_ok {id} {
diff --git a/pianoroll.tcl b/pianoroll.tcl
index eccadce..b3bec53 100644
--- a/pianoroll.tcl
+++ b/pianoroll.tcl
@@ -34,13 +34,13 @@ proc pianoroll_apply {id} {
          [eval concat $$var_graph_defvalue] \
          [eval concat $$var_graph_save] \;]
      #puts stderr $cmd
-     pd $cmd
+     pdsend $cmd
 }
  
 proc pianoroll_cancel {id} {
      set cmd [concat $id cancel \;]
      #puts stderr $cmd
-     pd $cmd
+     pdsend $cmd
 }
  
 proc pianoroll_ok {id} {
diff --git a/playlist.tcl b/playlist.tcl
index 5a22a05..a4ce6b5 100644
--- a/playlist.tcl
+++ b/playlist.tcl
@@ -32,13 +32,13 @@ proc playlist_apply {id} {
      	[eval concat $$var_graph_secolor] \
  	\;]
      #puts stderr $cmd
-     pd $cmd
+     pdsend $cmd
 }
  
 proc playlist_cancel {id} {
      set cmd [concat $id cancel \;]
      #puts stderr $cmd
-     pd $cmd
+     pdsend $cmd
 }
  
 proc playlist_ok {id} {
diff --git a/probalizer.tcl b/probalizer.tcl
index 2f069e9..bee7d26 100644
--- a/probalizer.tcl
+++ b/probalizer.tcl
@@ -22,13 +22,13 @@ proc probalizer_apply {id} {
          [eval concat $$var_graph_noccurrences] \
          [eval concat $$var_graph_save] \;]
      #puts stderr $cmd
-     pd $cmd
+     pdsend $cmd
 }
  
 proc probalizer_cancel {id} {
      set cmd [concat $id cancel \;]
      #puts stderr $cmd
-     pd $cmd
+     pdsend $cmd
 }
  
 proc probalizer_ok {id} {
diff --git a/scratcher~.tcl b/scratcher~.tcl
index bc8ad6f..34f1909 100644
--- a/scratcher~.tcl
+++ b/scratcher~.tcl
@@ -14,13 +14,13 @@ proc scratcher_apply {id} {
      	[eval concat $$var_graph_height] \
  	\;]
      #puts stderr $cmd
-     pd $cmd
+     pdsend $cmd
 }
  
 proc scratcher_cancel {id} {
      set cmd [concat $id cancel \;]
      #puts stderr $cmd
-     pd $cmd
+     pdsend $cmd
 }
  
 proc scratcher_ok {id} {
diff --git a/scrolllist.tcl b/scrolllist.tcl
index 79ca61c..b971cf3 100644
--- a/scrolllist.tcl
+++ b/scrolllist.tcl
@@ -29,13 +29,13 @@ proc scrolllist_apply {id} {
      	[eval concat $$var_graph_secolor] \
  	\;]
      #puts stderr $cmd
-     pd $cmd
+     pdsend $cmd
 }
  
 proc scrolllist_cancel {id} {
      set cmd [concat $id cancel \;]
      #puts stderr $cmd
-     pd $cmd
+     pdsend $cmd
 }
  
 proc scrolllist_ok {id} {
-- 
cgit v1.2.1