… | |
… | |
34 | use Crossfire::Protocol; |
34 | use Crossfire::Protocol; |
35 | |
35 | |
36 | use Compress::LZF; |
36 | use Compress::LZF; |
37 | |
37 | |
38 | use CFClient; |
38 | use CFClient; |
|
|
39 | use CFClient::OpenGL (); |
39 | use CFClient::UI; |
40 | use CFClient::UI; |
40 | use CFClient::MapWidget; |
41 | use CFClient::MapWidget; |
41 | |
42 | |
42 | $Event::DIED = sub { |
43 | $Event::DIED = sub { |
43 | # TODO: display dialog box or so |
44 | # TODO: display dialog box or so |
… | |
… | |
966 | or die "SDL_SetVideoMode failed: " . (CFClient::SDL_GetError) . "\n"; |
967 | or die "SDL_SetVideoMode failed: " . (CFClient::SDL_GetError) . "\n"; |
967 | |
968 | |
968 | $SDL_ACTIVE = 1; |
969 | $SDL_ACTIVE = 1; |
969 | $LAST_REFRESH = time - 0.01; |
970 | $LAST_REFRESH = time - 0.01; |
970 | |
971 | |
971 | CFClient::gl_init; |
972 | CFClient::OpenGL::init; |
972 | |
973 | |
973 | $FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize}; |
974 | $FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize}; |
974 | |
975 | |
975 | $CFClient::UI::ROOT->configure (0, 0, $WIDTH, $HEIGHT);#d# |
976 | $CFClient::UI::ROOT->configure (0, 0, $WIDTH, $HEIGHT);#d# |
976 | |
977 | |