diff options
author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2010-11-30 21:18:47 +0000 |
---|---|---|
committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2010-11-30 21:18:47 +0000 |
commit | e58f6b3236f51c06e53c407a46d41f5e898c3b3c (patch) | |
tree | 0f591563a53ca78869729ec022f76de692306885 /add_item_to_popup_menu-plugin.tcl |
added the simple plugins from the pd-gui-rewrite/0.43/startup branchsvn2git-root
svn path=/trunk/scripts/guiplugins/simple_examples/; revision=14540
Diffstat (limited to 'add_item_to_popup_menu-plugin.tcl')
-rw-r--r-- | add_item_to_popup_menu-plugin.tcl | 6 |
1 files changed, 6 insertions, 0 deletions
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~"} |