From: sls <sls>
Date: Wed, 21 Jun 1995 08:57:58 +0000 (+0000)
Subject: Bring menu up on button 3.
X-Git-Tag: r_5_1_4~38
X-Git-Url: http://privyetmir.co.uk/gitweb?a=commitdiff_plain;h=9f9564a933e10832789b03dcd3b188c87dfe0c99;p=tkinspect

Bring menu up on button 3.
---

diff --git a/lists.tcl b/lists.tcl
index 2e106e8..969787a 100644
--- 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 4ac3a56..95984db 100644
--- 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" \