ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/DC/MapWidget.pm
(Generate patch)

Comparing deliantra/Deliantra-Client/DC/MapWidget.pm (file contents):
Revision 1.42 by root, Mon May 29 18:33:23 2006 UTC vs.
Revision 1.44 by root, Tue May 30 07:13:08 2006 UTC

155 $self->{ctrl}++; 155 $self->{ctrl}++;
156 $::CONN->user_send ("run $DIR{$sym}[0]"); 156 $::CONN->user_send ("run $DIR{$sym}[0]");
157 } else { 157 } else {
158 $::CONN->user_send ("$DIR{$sym}[1]"); 158 $::CONN->user_send ("$DIR{$sym}[1]");
159 } 159 }
160 } elsif ($sym == CFClient::SDLK_INSERT && $mod & CFClient::KMOD_CTRL) {
161 CFClient::Recorder::start (1);
162 } elsif ($sym == CFClient::SDLK_INSERT && not ($mod & CFClient::KMOD_CTRL)) {
163 CFClient::Recorder::stop (1);
164 } elsif (my $bind_cmd = $::CFG->{bindings}->{$mod}->{$sym}) {
165 $::CONN->user_send ($_) for @$bind_cmd;
160 } elsif ((ord 'a') <= $uni && $uni <= (ord 'z')) { 166 } elsif ((ord 'a') <= $uni && $uni <= (ord 'z')) {
161 $self->{completer}->key_down ($ev); 167 $self->{completer}->key_down ($ev);
162 $self->{completer}->show; 168 $self->{completer}->show;
163 } 169 }
164} 170}
277# 283#
278# $label->show; 284# $label->show;
279# $label->update; 285# $label->update;
280# 286#
281# $CFClient::UI::ROOT->on_post_alloc ("$self$label" => sub { 287# $CFClient::UI::ROOT->on_post_alloc ("$self$label" => sub {
282# $label->move ( 288# $label->move_abs (
283# ($::WIDTH - $label->{w}) * 0.5, 289# ($::WIDTH - $label->{w}) * 0.5,
284# ($::HEIGHT - $label->{h}) * 0.5, 290# ($::HEIGHT - $label->{h}) * 0.5,
285# ); 291# );
286# }); 292# });
287# 293#
456 462
457sub size_allocate { 463sub size_allocate {
458 my ($self, $w, $h) = @_; 464 my ($self, $w, $h) = @_;
459 465
460 $self->SUPER::size_allocate ($w, $h); 466 $self->SUPER::size_allocate ($w, $h);
461 $self->move (($::WIDTH - $w) * 0.5, ($::HEIGHT - $h) * 0.6, 10); 467 $self->move_abs (($::WIDTH - $w) * 0.5, ($::HEIGHT - $h) * 0.6, 10);
462} 468}
463 469
464sub show { 470sub show {
465 my ($self) = @_; 471 my ($self) = @_;
466 472

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines