--- deliantra/Deliantra-Client/DC/MapWidget.pm 2006/05/27 20:46:54 1.40 +++ deliantra/Deliantra-Client/DC/MapWidget.pm 2006/05/30 07:13:08 1.44 @@ -41,9 +41,7 @@ (my $data = $command) =~ s/\\//g; $tooltip =~ s/^\s+//; - $tooltip = "$data\n\n$tooltip"; - $tooltip =~ s/\s+$//; $self->{completer}{command}{$command} = [$data, $tooltip, $widget, $cb, ++$self->{command_id}]; @@ -138,7 +136,7 @@ $::CONN->user_send ($self->{completer}{last_command}) if exists $self->{completer}{last_command}; } elsif ($uni == ord "\t") { - # TODO: toggle inventory + $::INV_WINDOW->toggle_visibility; } elsif ($sym == CFClient::SDLK_KP_PLUS || $uni == ord "+") { $::CONN->user_send ("rotateshoottype +"); } elsif ($sym == CFClient::SDLK_KP_MINUS || $uni == ord "-") { @@ -159,7 +157,13 @@ } else { $::CONN->user_send ("$DIR{$sym}[1]"); } - } elsif ($ev->{unicode}) { + } elsif ($sym == CFClient::SDLK_INSERT && $mod & CFClient::KMOD_CTRL) { + CFClient::Recorder::start (1); + } elsif ($sym == CFClient::SDLK_INSERT && not ($mod & CFClient::KMOD_CTRL)) { + CFClient::Recorder::stop (1); + } elsif (my $bind_cmd = $::CFG->{bindings}->{$mod}->{$sym}) { + $::CONN->user_send ($_) for @$bind_cmd; + } elsif ((ord 'a') <= $uni && $uni <= (ord 'z')) { $self->{completer}->key_down ($ev); $self->{completer}->show; } @@ -281,7 +285,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, # ); @@ -460,7 +464,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 {