Bring menu up on button 3.

diff --git a/lists.tcl b/lists.tcl
index 2e106e8b5b4598a2723d9388c314145e28a1e7a7..969787a3323b63a7e5171f00e3ff535bd51725ba 100644 (file)
--- a/lists.tcl
+++ b/lists.tcl
@@ -152,6 +152,7 @@ widget tkinspect_list {
        pack $self.sb -side right -fill y
        pack $self.list -side right -fill both -expand yes
        set slot(menu) [$slot(main) add_menu $slot(title)]
+       bind $self.list <3> "tk_popup $slot(menu) %X %Y"
        $slot(menu) add command \
            -label "Show a [$self get_item_name]..." -underline 0 \
            -command "$self show_dialog"

diff --git a/value.tcl b/value.tcl
index 4ac3a560ef736c8db9e6940a2796239522120f10..95984db7f205a4be09b6f87a599a50207bfab2f9 100644 (file)
--- a/value.tcl
+++ b/value.tcl
@@ -32,6 +32,7 @@ widget value {
        bind $self.t <Control-x><Control-s> "$self send_value"
        bind $self.t <Control-s> "$self search_dialog"
        set m [$slot(main) add_menu Value]
+       bind $self.t <3> "tk_popup $m %X %Y"
        $m add command -label "Send Value" -command "$self send_value" \
            -underline 1
        $m add command -label "Find..." -command "$self search_dialog" \