| … | |
… | |
| 84 | $mode_label->set_text (sprintf "%dx%d", @{$SDL_MODES[$value]}); |
84 | $mode_label->set_text (sprintf "%dx%d", @{$SDL_MODES[$value]}); |
| 85 | }); |
85 | }); |
| 86 | $mode_slider->emit (changed => $mode_slider->{range}[0]); |
86 | $mode_slider->emit (changed => $mode_slider->{range}[0]); |
| 87 | |
87 | |
| 88 | $table->add (1, 1, new CFClient::UI::Button expand => 1, align => 0, text => "Apply", connect_activate => sub { |
88 | $table->add (1, 1, new CFClient::UI::Button expand => 1, align => 0, text => "Apply", connect_activate => sub { |
| 89 | warn "apply\n"; |
89 | destroy_screen (); |
|
|
90 | ($WIDTH, $HEIGHT) = @{ $SDL_MODES[$CFG->{sdl_mode}] }; |
|
|
91 | $FULLSCREEN = $CFG->{fullscreen}; |
|
|
92 | init_screen (); |
| 90 | }); |
93 | }); |
| 91 | |
94 | |
| 92 | $vbox->add (new CFClient::UI::Label align => 0, text => "Server"); |
95 | $vbox->add (new CFClient::UI::Label align => 0, text => "Server"); |
| 93 | $vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]); |
96 | $vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]); |
| 94 | $table->add (0, 2, new CFClient::UI::Label align => 1, text => "Host"); |
97 | $table->add (0, 2, new CFClient::UI::Label align => 1, text => "Host"); |
