| … | |
… | |
| 167 | $table->add (1, $row++, new CFClient::UI::Slider range => [$CFG->{stat_fontsize}, 0.7, 1.7, 0.1], connect_changed => sub { |
167 | $table->add (1, $row++, new CFClient::UI::Slider range => [$CFG->{stat_fontsize}, 0.7, 1.7, 0.1], connect_changed => sub { |
| 168 | $CFG->{stat_fontsize} = 0.1 * int $_[1] * 10; |
168 | $CFG->{stat_fontsize} = 0.1 * int $_[1] * 10; |
| 169 | &set_stats_window_fontsize; |
169 | &set_stats_window_fontsize; |
| 170 | }); |
170 | }); |
| 171 | |
171 | |
| 172 | $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge height"); |
172 | $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gaugesize"); |
| 173 | $table->add (1, $row++, new CFClient::UI::Slider range => [$CFG->{gauge_size}, 0.2, 0.8, 0.02], connect_changed => sub { |
173 | $table->add (1, $row++, new CFClient::UI::Slider range => [$CFG->{gauge_size}, 0.2, 0.8, 0.02], connect_changed => sub { |
| 174 | $CFG->{gauge_size} = $_[1]; |
174 | $CFG->{gauge_size} = $_[1]; |
| 175 | my $h = int ($HEIGHT * $CFG->{gauge_size}); |
175 | my $h = int ($HEIGHT * $CFG->{gauge_size}); |
| 176 | $GAUGES->{win}->set_size ($WIDTH, $h); |
176 | $GAUGES->{win}->set_size ($WIDTH, $h); |
| 177 | $GAUGES->{win}->{y} = $HEIGHT - $h; |
177 | $GAUGES->{win}->{y} = $HEIGHT - $h; |
