From e58f6b3236f51c06e53c407a46d41f5e898c3b3c Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Tue, 30 Nov 2010 21:18:47 +0000 Subject: added the simple plugins from the pd-gui-rewrite/0.43/startup branch svn path=/trunk/scripts/guiplugins/simple_examples/; revision=14540 --- add_my_patches_to_media_menu-plugin.tcl | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 add_my_patches_to_media_menu-plugin.tcl (limited to 'add_my_patches_to_media_menu-plugin.tcl') 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" +} -- cgit v1.2.1