From 9f9564a933e10832789b03dcd3b188c87dfe0c99 Mon Sep 17 00:00:00 2001 From: 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 "$self send_value" bind $self.t "$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