From e58f6b3236f51c06e53c407a46d41f5e898c3b3c Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
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_item_to_popup_menu-plugin.tcl | 6 ++++++
 1 file changed, 6 insertions(+)
 create mode 100644 add_item_to_popup_menu-plugin.tcl

(limited to 'add_item_to_popup_menu-plugin.tcl')

diff --git a/add_item_to_popup_menu-plugin.tcl b/add_item_to_popup_menu-plugin.tcl
new file mode 100644
index 0000000..04ebd55
--- /dev/null
+++ b/add_item_to_popup_menu-plugin.tcl
@@ -0,0 +1,6 @@
+
+
+# for more info: http://tcl.tk/man/tcl8.5/TkCmd/menu.htm
+.popup add separator
+.popup add command -label "My Favorite Object" \
+    -command {pdsend "$::focused_window obj $::popup_xcanvas $::popup_ycanvas osc~"}
-- 
cgit v1.2.1