From 6f0f6fb5c0fe8ab2548c84a65fb6d1ee9363e317 Mon Sep 17 00:00:00 2001
From: "N.N." <krzyszcz@users.sourceforge.net>
Date: Tue, 23 Mar 2004 12:07:22 +0000
Subject: toxy alpha9

svn path=/trunk/externals/miXed/; revision=1470
---
 test/toxy/kb.wid       |  2 ++
 test/toxy/setup.wid    |  3 +--
 test/toxy/tot-query.pd | 29 ++++++++++++++---------------
 3 files changed, 17 insertions(+), 17 deletions(-)

(limited to 'test/toxy')

diff --git a/test/toxy/kb.wid b/test/toxy/kb.wid
index bfba5ac..8a081d7 100644
--- a/test/toxy/kb.wid
+++ b/test/toxy/kb.wid
@@ -1,4 +1,6 @@
 proc ::toxy::kb {path target remote noctaves size} {
+# guard against BadAlloc crashes
+    if {$size > 10} {set size 10}
     set lft [expr {round(5 * $size)}]
     set top [expr {round(5 * $size)}]
     set bot [expr {round(100 * $size)}]
diff --git a/test/toxy/setup.wid b/test/toxy/setup.wid
index f5aff1c..9da8775 100644
--- a/test/toxy/setup.wid
+++ b/test/toxy/setup.wid
@@ -98,8 +98,7 @@ proc ::toxy::item_visconfig {path target name varname cvpath px py} {
 # FIXME explicit traces
 	set needtraces 0
     } else {
-#	set needtraces 1
-	set needtraces 0
+	set needtraces 1
     }
 
     if {$needtraces != 0} {
diff --git a/test/toxy/tot-query.pd b/test/toxy/tot-query.pd
index d646f78..36286b3 100644
--- a/test/toxy/tot-query.pd
+++ b/test/toxy/tot-query.pd
@@ -1,4 +1,4 @@
-#N canvas 421 109 778 551 12;
+#N canvas 210 60 778 551 12;
 #X msg 21 8 symbol pinecone;
 #X obj 455 142 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
 1;
@@ -15,9 +15,6 @@ r];
 \, qpush;
 #X msg 21 44 tot global ans .: regsub cone \$1 apple ans \, query global
 ans .: concat set $ans;
-#X msg 60 369 tot global ch .: set ch [open ~/.pdrc] \, query global
-ch .: concat set [read $ch] \, tot global ch .: close $ch .: unset
-ch;
 #X msg 199 266 tot global txt ch .: set txt [gets $ch] \, query global
 txt .: concat set $txt;
 #N canvas 0 0 578 346 more 0;
@@ -41,22 +38,24 @@ txt .: concat set $txt;
 #X obj 21 468 tot .;
 #X obj 67 238 tot .;
 #X msg 67 202 tot eval .< [global ch .: info exists ch] .>;
+#X msg 54 376 tot set ::ch [open ~/.pdrc] \, query concat set [read
+$::ch] \, after 0 .(tot close $::ch .: unset ::ch.);
 #X msg 21 502;
 #X connect 0 0 11 0;
 #X connect 1 0 3 0;
 #X connect 2 0 11 0;
-#X connect 3 0 17 0;
+#X connect 3 0 16 0;
 #X connect 3 1 6 0;
 #X connect 4 0 7 0;
 #X connect 4 1 6 0;
-#X connect 6 0 13 0;
+#X connect 6 0 12 0;
 #X connect 7 0 5 0;
-#X connect 8 0 15 0;
-#X connect 9 0 15 0;
-#X connect 10 0 15 0;
-#X connect 11 0 15 0;
-#X connect 12 0 15 0;
-#X connect 13 0 15 0;
-#X connect 15 0 18 0;
-#X connect 16 1 4 0;
-#X connect 17 0 16 0;
+#X connect 8 0 14 0;
+#X connect 9 0 14 0;
+#X connect 10 0 14 0;
+#X connect 11 0 14 0;
+#X connect 12 0 14 0;
+#X connect 14 0 18 0;
+#X connect 15 1 4 0;
+#X connect 16 0 15 0;
+#X connect 17 0 14 0;
-- 
cgit v1.2.1