| … | |
… | |
| 931 | sub video_init { |
931 | sub video_init { |
| 932 | sdl_init; |
932 | sdl_init; |
| 933 | |
933 | |
| 934 | $CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} >= @SDL_MODES; |
934 | $CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} >= @SDL_MODES; |
| 935 | |
935 | |
|
|
936 | my ($old_w, $old_h) = ($WIDTH, $HEIGHT); |
|
|
937 | |
| 936 | ($WIDTH, $HEIGHT) = @{ $SDL_MODES[$CFG->{sdl_mode}] }; |
938 | ($WIDTH, $HEIGHT) = @{ $SDL_MODES[$CFG->{sdl_mode}] }; |
| 937 | $FULLSCREEN = $CFG->{fullscreen}; |
939 | $FULLSCREEN = $CFG->{fullscreen}; |
| 938 | $FAST = $CFG->{fast}; |
940 | $FAST = $CFG->{fast}; |
| 939 | |
941 | |
| 940 | CFClient::SDL_SetVideoMode $WIDTH, $HEIGHT, $FULLSCREEN |
942 | CFClient::SDL_SetVideoMode $WIDTH, $HEIGHT, $FULLSCREEN |
| … | |
… | |
| 949 | |
951 | |
| 950 | $CFClient::UI::ROOT->configure (0, 0, $WIDTH, $HEIGHT);#d# |
952 | $CFClient::UI::ROOT->configure (0, 0, $WIDTH, $HEIGHT);#d# |
| 951 | |
953 | |
| 952 | ############################################################################# |
954 | ############################################################################# |
| 953 | |
955 | |
| 954 | unless ($DEBUG_STATUS) { |
956 | if ($DEBUG_STATUS) { |
|
|
957 | CFClient::UI::rescale_widgets $WIDTH / $old_w, $HEIGHT / $old_h; |
|
|
958 | } else { |
| 955 | # create the widgets |
959 | # create the widgets |
| 956 | |
960 | |
| 957 | $DEBUG_STATUS = new CFClient::UI::Label padding => 0, z => 100, req_x => -1; |
961 | $DEBUG_STATUS = new CFClient::UI::Label padding => 0, z => 100, req_x => -1; |
| 958 | $DEBUG_STATUS->show; |
962 | $DEBUG_STATUS->show; |
| 959 | |
963 | |
