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.107 by root, Sat Apr 15 00:04:59 2006 UTC vs.
Revision 1.110 by root, Sat Apr 15 12:30:53 2006 UTC

… …
245 245
246 $window 246 $window
247} 247}
248 248
249sub sdl_init { 249sub sdl_init {
250 #SDL::Init SDL_INIT_AUDIO | SDL_INIT_VIDEO | SDL_INIT_NOPARACHUTE
250 SDL::Init SDL_INIT_AUDIO | SDL_INIT_VIDEO 251 SDL::Init SDL_INIT_AUDIO | SDL_INIT_VIDEO
251 and die "SDL::Init failed!\n"; 252 and die "SDL::Init failed!\n";
252} 253}
253 254
254sub init_screen { 255sub init_screen {
… …
321 } 322 }
322 }); 323 });
323 324
324 $CFClient::UI::TOPLEVEL->add ($BUTTONBAR = new CFClient::UI::HBox); 325 $CFClient::UI::TOPLEVEL->add ($BUTTONBAR = new CFClient::UI::HBox);
325 326
326 $BUTTONBAR->add (my $setup = new CFClient::UI::Flopper x => 0, y => 0, text => "Setup", other => config_dialog, state => 1); 327 $BUTTONBAR->add (my $setup = new CFClient::UI::Flopper text => "Client Setup", other => config_dialog, state => 1);
328 $BUTTONBAR->add (my $setup = new CFClient::UI::Flopper text => "Server", other => config_dialog, state => 1);
327 $BUTTONBAR->add (my $setup = new CFClient::UI::Flopper x => 0, y => 0, text => "Console", other => console_window); 329 $BUTTONBAR->add (my $setup = new CFClient::UI::Flopper text => "Console", other => console_window);
330 $BUTTONBAR->add (my $setup = new CFClient::UI::Button text => "Save Config", other => console_window);
328} 331}
329 332
330sub destroy_screen { 333sub destroy_screen {
331 $CFClient::UI::TOPLEVEL->{children} = []; 334 $CFClient::UI::TOPLEVEL->{children} = [];
332 undef $SDL_ACTIVE; 335 undef $SDL_ACTIVE;
… …
430sub conn::face_update { 433sub conn::face_update {
431 my ($self, $facenum, $face) = @_; 434 my ($self, $facenum, $face) = @_;
432 435
433 $FACECACHE->{"$face->{chksum},$face->{name}"} = $face->{image}; 436 $FACECACHE->{"$face->{chksum},$face->{name}"} = $face->{image};
434 437
435 my $tex = $face->{texture} = new_from_image CFClient::Texture delete $face->{image}; 438 my $tex = $face->{texture} =
439 new_from_image CFClient::Texture
440 delete $face->{image}, minify => 1;
436 441
437 $MAP->set_texture ($facenum, @$tex{qw(name w h s t)}, @{$tex->{minified}}); 442 $MAP->set_texture ($facenum, @$tex{qw(name w h s t)}, @{$tex->{minified}});
438 $MAPWIDGET->update; 443 $MAPWIDGET->update;
439} 444}
440 445

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines