From 9f9564a933e10832789b03dcd3b188c87dfe0c99 Mon Sep 17 00:00:00 2001
From: sls <sls>
Date: Wed, 21 Jun 1995 08:57:58 +0000
Subject: [PATCH] Bring menu up on button 3.

---
 lists.tcl | 1 +
 value.tcl | 1 +
 2 files changed, 2 insertions(+)

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" \
-- 
2.23.0