ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/bin/pclient
(Generate patch)

Comparing deliantra/Deliantra-Client/bin/pclient (file contents):
Revision 1.121 by root, Mon Apr 17 09:33:12 2006 UTC vs.
Revision 1.122 by root, Mon Apr 17 19:21:00 2006 UTC

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
783init_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
790init_screen;
791
792Event::loop; 792Event::loop;
793 793
794 794

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines