… | |
… | |
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", |