--- deliantra/Deliantra-Client/DC/Macro.pm	2007/09/02 08:31:53	1.11
+++ deliantra/Deliantra-Client/DC/Macro.pm	2007/10/14 20:08:26	1.14
@@ -24,6 +24,7 @@
    "f9"         => "!toggle-setup",
    (map +("LAlt-$_" => "!switch-tab $_"), 0..9),
    (map +("RAlt-$_" => "!switch-tab $_"), 0..9),
+   "LAlt-x"     => "!close-current-tab",
    "return"     => "!activate-chat",
    "."          => "!repeat-command",
 
@@ -32,6 +33,7 @@
    "enter"	=> "examine",
    "[+]"        => "rotateshoottype +",
    "[-]"        => "rotateshoottype -",
+   "LAlt-e"	=> "examine",
    "LAlt-s"	=> "ready_skill find traps",
    "LAlt-d"	=> "ready_skill disarm traps",
    "LAlt-p"	=> "ready_skill praying",
@@ -89,6 +91,7 @@
    "toggle-setup"         => sub { $::SETUP_DIALOG->toggle_visibility },
    "toggle-setup"         => sub { $::SETUP_DIALOG->toggle_visibility },
    "switch-tab"           => sub { $::MESSAGE_WINDOW->user_switch_to_page (0 + shift) },
+   "close-current-tab"    => sub { $::MESSAGE_WINDOW->close_current_tab },
    "activate-chat"        => sub { $::MESSAGE_WINDOW->activate_current },
    "repeat-command"       => sub {
       $::CONN->user_send ($::COMPLETER->{last_command})
@@ -246,10 +249,6 @@
 sub find_default($) {
    my ($ev) = @_;
 
-   if (my $cmd = $DEFAULT_KEYMAP->{U}{$ev->{unicode}}) {
-      return $cmd;
-   }
-
    for my $m (reverse grep $_, @{ $DEFAULT_KEYMAP->{K} }) {
       for (keys %$m) {
          if ($_ == ($ev->{mod} & $_)) {
@@ -260,6 +259,10 @@
       }
    }
 
+   if (my $cmd = $DEFAULT_KEYMAP->{U}{$ev->{unicode}}) {
+      return $cmd;
+   }
+
    ()
 }