From 6d3a518ce3393a2c00b4795d13d7c420ce8b441d Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Mon, 14 Nov 2011 05:43:13 +0000
Subject: move shared function to a Tcl package, now that tclpd supports a
 local package

svn path=/trunk/externals/tclfile/; revision=15742
---
 delete-help.pd | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

(limited to 'delete-help.pd')

diff --git a/delete-help.pd b/delete-help.pd
index 667cfd5..5a25fb8 100644
--- a/delete-help.pd
+++ b/delete-help.pd
@@ -1,23 +1,23 @@
-#N canvas 186 203 501 349 10;
+#N canvas 657 79 501 349 10;
 #X obj 297 261 mkdir;
-#X msg 298 232 symbol /tmp/blah;
 #X obj 202 160 exists;
-#X msg 202 114 symbol /tmp/blah;
-#X obj 202 181 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+#X obj 202 181 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
 1;
 #X obj 202 201 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
 -1 -1;
 #X msg 209 133 symbol /tmp/created_after_bang;
 #X text 28 294 this is a clone of this command:;
-#X msg 48 63 symbol /tmp/blah;
 #X obj 48 115 delete;
 #X text 25 20 delete a file or empty folder;
 #X text 253 209 make a new one:;
 #X obj 120 306 pddp/pddplink http://tcl.tk/man/tcl8.5/TclCmd/file.htm#M12
 ;
-#X connect 1 0 0 0;
-#X connect 2 0 4 0;
-#X connect 3 0 2 0;
-#X connect 4 0 5 0;
-#X connect 6 0 2 0;
-#X connect 8 0 9 0;
+#X msg 48 63 this is a test;
+#X msg 298 233 this is a test;
+#X msg 202 114 this is a test;
+#X connect 1 0 2 0;
+#X connect 2 0 3 0;
+#X connect 4 0 1 0;
+#X connect 10 0 6 0;
+#X connect 11 0 0 0;
+#X connect 12 0 1 0;
-- 
cgit v1.2.1