| … | |
… | |
| 1353 | } |
1353 | } |
| 1354 | } |
1354 | } |
| 1355 | }; |
1355 | }; |
| 1356 | |
1356 | |
| 1357 | my $vb = new CFClient::UI::VBox; |
1357 | my $vb = new CFClient::UI::VBox; |
|
|
1358 | $vb->add (my $hb = new CFClient::UI::HBox); |
|
|
1359 | $hb->add (new CFClient::UI::Label text => "only shift-up stops fire"); |
|
|
1360 | $hb->add (new CFClient::UI::CheckBox |
|
|
1361 | expand => 1, |
|
|
1362 | state => $CFG->{shift_fire_stop}, |
|
|
1363 | tooltip => "If this checkbox is enabled you will stop fire only if you stop pressing shift", |
|
|
1364 | on_changed => sub { |
|
|
1365 | my ($cbox, $value) = @_; |
|
|
1366 | $CFG->{shift_fire_stop} = $value; |
|
|
1367 | }); |
|
|
1368 | |
| 1358 | $vb->add ($binding_list); |
1369 | $vb->add ($binding_list); |
| 1359 | $vb->add (my $hb = new CFClient::UI::HBox); |
1370 | $vb->add (my $hb = new CFClient::UI::HBox); |
| 1360 | |
1371 | |
| 1361 | $hb->add (new CFClient::UI::Button |
1372 | $hb->add (new CFClient::UI::Button |
| 1362 | text => "record new", |
1373 | text => "record new", |
