added the simple plugins from the pd-gui-rewrite/0.43/startup branchsvn2git-root

svn path=/trunk/scripts/guiplugins/simple_examples/; revision=14540

1 files changed, 11 insertions, 0 deletions

diff --git a/add_my_patches_to_media_menu-plugin.tcl b/add_my_patches_to_media_menu-plugin.tcl
new file mode 100644
index 0000000..bf9f3ab
--- /dev/null
+++ b/add_my_patches_to_media_menu-plugin.tcl
@@ -0,0 +1,11 @@
+# this script searches a folder for Pd patches, then adds them to the bottom
+# of the Media menu for quick opening
+
+# you probably want to set this to something that makes sense for you:
+set mypatch_dir ~/Documents/Pd
+
+.menubar.media add separator
+
+foreach filename [glob -directory $mypatch_dir -nocomplain -types {f} -- *.pd] {
+    .menubar.media add command -label [file tail $filename] -command "open_file $filename"
+}