--- deliantra/Deliantra-Client/DC/MapWidget.pm	2006/05/29 19:30:28	1.43
+++ deliantra/Deliantra-Client/DC/MapWidget.pm	2006/05/30 14:35:09	1.45
@@ -158,9 +158,17 @@
          $::CONN->user_send ("$DIR{$sym}[1]");
       }
    } elsif ($sym == CFClient::SDLK_INSERT && $mod & CFClient::KMOD_CTRL) {
-      CFClient::Recorder::start (1);
+      $::BIND_EDITOR->set_binding (undef, undef, [],
+         sub {
+            my ($mod, $sym, $cmds) = @_;
+            $::CFG->{bindings}->{$mod}->{$sym} = $cmds;
+         });
+      $::BIND_EDITOR->start;
+      $::BIND_EDITOR->show;
    } elsif ($sym == CFClient::SDLK_INSERT && not ($mod & CFClient::KMOD_CTRL)) {
-      CFClient::Recorder::stop (1);
+      $::BIND_EDITOR->stop;
+      $::BIND_EDITOR->ask_for_bind (1);
+      $::BIND_EDITOR->hide;
    } elsif (my $bind_cmd = $::CFG->{bindings}->{$mod}->{$sym}) {
       $::CONN->user_send ($_) for @$bind_cmd;
    } elsif ((ord 'a') <= $uni && $uni <= (ord 'z')) {
@@ -285,7 +293,7 @@
 #         $label->update;
 #
 #         $CFClient::UI::ROOT->on_post_alloc ("$self$label" => sub {
-#            $label->move (
+#            $label->move_abs (
 #               ($::WIDTH  - $label->{w}) * 0.5,
 #               ($::HEIGHT - $label->{h}) * 0.5,
 #            );
@@ -464,7 +472,7 @@
    my ($self, $w, $h) = @_;
 
    $self->SUPER::size_allocate ($w, $h);
-   $self->move (($::WIDTH - $w) * 0.5, ($::HEIGHT - $h) * 0.6, 10);
+   $self->move_abs (($::WIDTH - $w) * 0.5, ($::HEIGHT - $h) * 0.6, 10);
 }
 
 sub show {