| … | |
… | |
| 325 | connect_activate => sub { |
325 | connect_activate => sub { |
| 326 | my ($input, $text) = @_; |
326 | my ($input, $text) = @_; |
| 327 | $input->set_text (''); |
327 | $input->set_text (''); |
| 328 | |
328 | |
| 329 | if ($text =~ /^\/(.*)/) { |
329 | if ($text =~ /^\/(.*)/) { |
| 330 | $::CONN->user_send ("command $1"); |
330 | $::CONN->user_send ($1); |
| 331 | } else { |
331 | } else { |
| 332 | my $say_cmd = $::CFG->{say_command} || 'say'; |
332 | my $say_cmd = $::CFG->{say_command} || 'say'; |
| 333 | $::CONN->user_send ("command $say_cmd $text"); |
333 | $::CONN->user_send ("$say_cmd $text"); |
| 334 | } |
334 | } |
| 335 | if ($input->{refocus_map}) { |
335 | if ($input->{refocus_map}) { |
| 336 | delete $input->{refocus_map}; |
336 | delete $input->{refocus_map}; |
| 337 | $MAPWIDGET->focus_in |
337 | $MAPWIDGET->focus_in |
| 338 | } |
338 | } |
| … | |
… | |
| 404 | padding => 0, |
404 | padding => 0, |
| 405 | y => $HEIGHT * 44 / 45 - $FONTSIZE; |
405 | y => $HEIGHT * 44 / 45 - $FONTSIZE; |
| 406 | $CFClient::UI::ROOT->add ($STATUS_LINE); |
406 | $CFClient::UI::ROOT->add ($STATUS_LINE); |
| 407 | |
407 | |
| 408 | $ALT_ENTER_MESSAGE = new CFClient::UI::Label |
408 | $ALT_ENTER_MESSAGE = new CFClient::UI::Label |
| 409 | padding => 0, |
409 | padding => 0, |
| 410 | y => $HEIGHT * 44 / 45, |
410 | y => $HEIGHT * 44 / 45, |
| 411 | height => $HEIGHT / 45, |
411 | fontsize => $HEIGHT / 45, |
| 412 | text => "Use <b>Alt-Enter</b> to toggle fullscreen mode"; |
412 | markup => "Use <b>Alt-Enter</b> to toggle fullscreen mode"; |
| 413 | $CFClient::UI::ROOT->add ($ALT_ENTER_MESSAGE); |
413 | $CFClient::UI::ROOT->add ($ALT_ENTER_MESSAGE); |
| 414 | |
414 | |
| 415 | $CFClient::UI::ROOT->add ($MAPWIDGET = new CFClient::UI::MapWidget); |
415 | $CFClient::UI::ROOT->add ($MAPWIDGET = new CFClient::UI::MapWidget); |
| 416 | $MAPWIDGET->focus_in; |
416 | $MAPWIDGET->focus_in; |
| 417 | $MAPWIDGET->connect (activate_console => sub { |
417 | $MAPWIDGET->connect (activate_console => sub { |
| … | |
… | |
| 505 | @conn::ISA = Crossfire::Protocol::; |
505 | @conn::ISA = Crossfire::Protocol::; |
| 506 | |
506 | |
| 507 | sub conn::user_send { |
507 | sub conn::user_send { |
| 508 | my ($self, $command) = @_; |
508 | my ($self, $command) = @_; |
| 509 | |
509 | |
| 510 | $self->send ($command); |
510 | $self->send_command ($command); |
| 511 | status $command; |
511 | status $command; |
| 512 | } |
512 | } |
| 513 | |
513 | |
| 514 | sub conn::map_scroll { |
514 | sub conn::map_scroll { |
| 515 | my ($self, $dx, $dy) = @_; |
515 | my ($self, $dx, $dy) = @_; |
