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.25 by root, Fri Apr 7 20:55:32 2006 UTC vs.
Revision 1.27 by root, Fri Apr 7 21:07:29 2006 UTC

… …
48 -blue_size => 8, 48 -blue_size => 8,
49 -double_buffer => 1, 49 -double_buffer => 1,
50 -fullscreen => $CFG->{fullscreen}, 50 -fullscreen => $CFG->{fullscreen},
51 -resizeable => 0; 51 -resizeable => 0;
52 52
53 $UIFONT = SDL::TTFOpenFont Crossfire::Client::find_rcfile "uifont.ttf", $CFG->{height} / 40
54 or die "TTFOpenFont: $!";
55
53 glClearColor 0, 0, 0, 0; 56 glClearColor 0, 0, 0, 0;
54 57
55 glEnable GL_TEXTURE_2D; 58 glEnable GL_TEXTURE_2D;
56 glShadeModel GL_FLAT; 59 glShadeModel GL_FLAT;
57 glDisable GL_DEPTH_TEST; 60 glDisable GL_DEPTH_TEST;
… …
95} 98}
96 99
97sub refresh { 100sub refresh {
98 glClear GL_COLOR_BUFFER_BIT; 101 glClear GL_COLOR_BUFFER_BIT;
99 102
100 $_->draw for values %Crossfire::Client::Widget::ACTIVE_WIDGETS; 103 $_->draw for @Crossfire::Client::Widget::ACTIVE_WIDGETS;
101 104
102 SDL::GLSwapBuffers; 105 SDL::GLSwapBuffers;
103} 106}
104 107
105%SDL_CB = ( 108%SDL_CB = (
… …
264 267
265 268
266############################################################################# 269#############################################################################
267 270
268SDL::Init SDL_INIT_EVERYTHING; 271SDL::Init SDL_INIT_EVERYTHING;
272SDL::TTFInit;
269 273
270my $mapwidget = Crossfire::Client::Widget::MapWidget->new; 274my $mapwidget = Crossfire::Client::Widget::MapWidget->new;
271 275
272$mapwidget->activate; 276$mapwidget->activate;
273$mapwidget->focus_in; 277$mapwidget->focus_in;
… …
282 port => 13327, 286 port => 13327,
283}; 287};
284 288
285$FACECACHE = eval { Crossfire::load_ref "$Crossfire::VARDIR/pclient.faces" } || {}; 289$FACECACHE = eval { Crossfire::load_ref "$Crossfire::VARDIR/pclient.faces" } || {};
286 290
287SDL::TTFInit;
288
289$UIFONT = SDL::TTFOpenFont Crossfire::Client::find_rcfile "uifont.ttf", 24
290 or die "TTFOpenFont: $!";
291
292run_config_dialog 291run_config_dialog
293 login => sub { start_game }, 292 login => sub { start_game },
294 logout => sub { stop_game }; 293 logout => sub { stop_game };
295 294
296main Gtk2; 295main Gtk2;

Diff Legend

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