--- deliantra/Deliantra-Client/DC/MapWidget.pm	2006/06/12 13:26:14	1.56
+++ deliantra/Deliantra-Client/DC/MapWidget.pm	2006/06/13 11:01:04	1.57
@@ -465,6 +465,19 @@
       on_changed => sub {
          $self->update_labels;
       },
+      on_button_down => sub {
+         my ($entry, $ev, $x, $y) = @_;
+
+         if ($ev->{button} == 3) {
+            (new CFClient::UI::Menu
+               items => [
+                  ["bind to a key" => sub { $::BIND_EDITOR->do_quick_binding ([$self->{select}], sub { $entry->focus_in }) }]
+               ],
+            )->popup ($ev);
+            return 1;
+         }
+         0
+      },
       on_key_down => sub {
          my ($entry, $ev) = @_;