From ea55962e550e65cf30b372cab7e69f4df54e7035 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Fri, 11 Nov 2011 23:43:03 +0000 Subject: create [delete] object, but no handling of -force or lists of files yet svn path=/trunk/externals/tclfile/; revision=15728 --- delete-help.pd | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 delete-help.pd (limited to 'delete-help.pd') diff --git a/delete-help.pd b/delete-help.pd new file mode 100644 index 0000000..667cfd5 --- /dev/null +++ b/delete-help.pd @@ -0,0 +1,23 @@ +#N canvas 186 203 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 +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; -- cgit v1.2.1