| … | |
… | |
| 190 | $vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]); |
190 | $vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]); |
| 191 | |
191 | |
| 192 | $table->add (0, 0, new CFClient::UI::Label valign => 0, align => 1, text => "Video Mode"); |
192 | $table->add (0, 0, new CFClient::UI::Label valign => 0, align => 1, text => "Video Mode"); |
| 193 | $table->add (1, 0, my $hbox = new CFClient::UI::HBox); |
193 | $table->add (1, 0, my $hbox = new CFClient::UI::HBox); |
| 194 | |
194 | |
| 195 | $hbox->add (my $mode_slider = new CFClient::UI::Slider expand => 1, force_w => 100, range => [$CFG->{sdl_mode}, 0, $#SDL_MODES, 0, 1]); |
195 | $hbox->add (my $mode_slider = new CFClient::UI::Slider force_w => $WIDTH * 0.1, expand => 1, range => [$CFG->{sdl_mode}, 0, $#SDL_MODES, 0, 1]); |
| 196 | $hbox->add (my $mode_label = new CFClient::UI::Label align => 0, valign => 0, height => 0.8, template => "9999x9999"); |
196 | $hbox->add (my $mode_label = new CFClient::UI::Label align => 0, valign => 0, height => 0.8, template => "9999x9999"); |
| 197 | |
197 | |
| 198 | $mode_slider->connect (changed => sub { |
198 | $mode_slider->connect (changed => sub { |
| 199 | my ($self, $value) = @_; |
199 | my ($self, $value) = @_; |
| 200 | |
200 | |
| … | |
… | |
| 921 | $QUIT_DIALOG->show; |
921 | $QUIT_DIALOG->show; |
| 922 | } |
922 | } |
| 923 | |
923 | |
| 924 | sub make_inventory_window { |
924 | sub make_inventory_window { |
| 925 | my $invwin = $INV_WINDOW = new CFClient::UI::FancyFrame |
925 | my $invwin = $INV_WINDOW = new CFClient::UI::FancyFrame |
| 926 | x => "center", |
926 | x => "center", |
| 927 | y => "center", |
927 | y => "center", |
| 928 | def_w => $WIDTH * 9/10, |
928 | force_w => $WIDTH * 9/10, |
| 929 | def_h => $HEIGHT * 9/10, |
929 | force_h => $HEIGHT * 9/10, |
| 930 | title => "Inventory", |
930 | title => "Inventory", |
| 931 | name => "inventory_window", |
931 | name => "inventory_window", |
| 932 | ; |
932 | ; |
| 933 | |
933 | |
| 934 | $invwin->add (my $hb = new CFClient::UI::HBox homogeneous => 1); |
934 | $invwin->add (my $hb = new CFClient::UI::HBox homogeneous => 1); |
| 935 | |
935 | |
| 936 | $hb->add (my $vb1 = new CFClient::UI::VBox); |
936 | $hb->add (my $vb1 = new CFClient::UI::VBox); |
| … | |
… | |
| 1246 | |
1246 | |
| 1247 | my %demo;#d# |
1247 | my %demo;#d# |
| 1248 | |
1248 | |
| 1249 | sub force_refresh { |
1249 | sub force_refresh { |
| 1250 | $fps = $fps * 0.95 + 1 / (($NOW - $LAST_REFRESH) || 0.1) * 0.05; |
1250 | $fps = $fps * 0.95 + 1 / (($NOW - $LAST_REFRESH) || 0.1) * 0.05; |
| 1251 | debug sprintf "%3.2f", $fps; |
1251 | debug sprintf "%3.2f", $fps if $ENV{CFPLUS_DEBUG} & 4; |
| 1252 | |
1252 | |
| 1253 | $CFClient::UI::ROOT->draw; |
1253 | $CFClient::UI::ROOT->draw; |
| 1254 | |
1254 | |
| 1255 | $WANT_REFRESH = 0; |
1255 | $WANT_REFRESH = 0; |
| 1256 | $CAN_REFRESH = 0; |
1256 | $CAN_REFRESH = 0; |
