… | |
… | |
309 | $vbox->add ($LOGVIEW = new CFClient::UI::TextView |
309 | $vbox->add ($LOGVIEW = new CFClient::UI::TextView |
310 | expand => 1, |
310 | expand => 1, |
311 | fontsize => $::CFG->{log_fontsize}, |
311 | fontsize => $::CFG->{log_fontsize}, |
312 | ); |
312 | ); |
313 | |
313 | |
314 | $vbox->add (my $input = new CFClient::UI::LineEntry |
314 | $vbox->add (my $input = new CFClient::UI::Entry |
315 | connect_focus_in => sub { |
315 | connect_focus_in => sub { |
316 | my ($input, $prev_focus) = @_; |
316 | my ($input, $prev_focus) = @_; |
317 | |
317 | |
318 | delete $input->{refocus_map}; |
318 | delete $input->{refocus_map}; |
319 | |
319 | |
… | |
… | |
579 | my $neigh = $self->{neigh}{$hash} ||= []; |
579 | my $neigh = $self->{neigh}{$hash} ||= []; |
580 | |
580 | |
581 | $self->send_mapinfo ("spatial $path$tile", sub { |
581 | $self->send_mapinfo ("spatial $path$tile", sub { |
582 | my ($mode, $flags, $x, $y, $w, $h, $hash) = @_; |
582 | my ($mode, $flags, $x, $y, $w, $h, $hash) = @_; |
583 | |
583 | |
584 | warn "map<$path>_$tile=<$mode,$x,$y,$w,$h,$hash>\n";#d# |
584 | #warn "map<$path>_$tile=<$mode,$x,$y,$w,$h,$hash>\n";#d# |
585 | return if $mode ne "spatial"; |
585 | return if $mode ne "spatial"; |
586 | |
586 | |
587 | $x += $MAP->ox; |
587 | $x += $MAP->ox; |
588 | $y += $MAP->oy; |
588 | $y += $MAP->oy; |
589 | |
589 | |
… | |
… | |
778 | |
778 | |
779 | @SDL_MODES or CFClient::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)"; |
779 | @SDL_MODES or CFClient::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)"; |
780 | |
780 | |
781 | $CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES; |
781 | $CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES; |
782 | |
782 | |
783 | init_screen; |
|
|
784 | |
|
|
785 | { |
783 | { |
786 | my @fonts = map CFClient::find_rcfile $_, qw(uifont.ttf uifontb.ttf uifonti.ttf uifontbi.ttf); |
784 | my @fonts = map CFClient::find_rcfile $_, qw(uifont.ttf uifontb.ttf uifonti.ttf uifontbi.ttf); |
787 | |
785 | |
788 | CFClient::add_font $_ for @fonts; |
786 | CFClient::add_font $_ for @fonts; |
789 | CFClient::set_font $fonts[0]; |
787 | CFClient::set_font $fonts[0]; |
790 | } |
788 | } |
791 | |
789 | |
|
|
790 | init_screen; |
|
|
791 | |
792 | Event::loop; |
792 | Event::loop; |
793 | |
793 | |
794 | |
794 | |