aboutsummaryrefslogtreecommitdiff
path: root/add_item_to_popup_menu-plugin.tcl
blob: 04ebd55ab97baa87d556470173a52f767e3029af (plain)
1
2
3
4
5
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~"}