… | |
… | |
1236 | ++$y; |
1236 | ++$y; |
1237 | |
1237 | |
1238 | my $mask = $_->[1]; |
1238 | my $mask = $_->[1]; |
1239 | $table->add ($x , $y, new CFClient::UI::Label text => $_->[0], align => 1, expand => 1); |
1239 | $table->add ($x , $y, new CFClient::UI::Label text => $_->[0], align => 1, expand => 1); |
1240 | $table->add ($x+1, $y, new CFClient::UI::CheckBox |
1240 | $table->add ($x+1, $y, new CFClient::UI::CheckBox |
1241 | state => $CFG->{pickup} & $mask, |
1241 | state => $::CFG->{pickup} & $mask, |
1242 | on_changed => sub { |
1242 | on_changed => sub { |
1243 | my ($box, $value) = @_; |
1243 | my ($box, $value) = @_; |
1244 | |
1244 | |
1245 | if ($value) { |
1245 | if ($value) { |
1246 | $::CFG->{pickup} |= $mask; |
1246 | $::CFG->{pickup} |= $mask; |
… | |
… | |
1255 | }); |
1255 | }); |
1256 | } |
1256 | } |
1257 | } |
1257 | } |
1258 | |
1258 | |
1259 | $table->add (2, 18, new CFClient::UI::ValSlider |
1259 | $table->add (2, 18, new CFClient::UI::ValSlider |
1260 | range => [0, 0, 16, 1, 1], |
1260 | range => [$::CFG->{pickup} & 0xF, 0, 16, 1, 1], |
|
|
1261 | template => ">= 99", |
1261 | to_value => sub { ">= " . 5 * $_[0] }, |
1262 | to_value => sub { ">= " . 5 * $_[0] }, |
1262 | on_changed => sub { |
1263 | on_changed => sub { |
1263 | my ($slider, $value) = @_; |
1264 | my ($slider, $value) = @_; |
1264 | |
1265 | |
1265 | $::CFG->{pickup} &= ~0x7; |
1266 | $::CFG->{pickup} &= ~0xF; |
1266 | $::CFG->{pickup} |= int $value |
1267 | $::CFG->{pickup} |= int $value |
1267 | if $value; |
1268 | if $value; |
1268 | 1; |
1269 | 1; |
1269 | }); |
1270 | }); |
|
|
1271 | |
1270 | $table->add (3, 18, new CFClient::UI::Button |
1272 | $table->add (3, 18, new CFClient::UI::Button |
1271 | text => "set", |
1273 | text => "set", |
1272 | on_activate => sub { |
1274 | on_activate => sub { |
1273 | $::CONN->send_command ("pickup $::CFG->{pickup}") |
1275 | $::CONN->send_command ("pickup $::CFG->{pickup}") |
1274 | if defined $::CONN; |
1276 | if defined $::CONN; |
… | |
… | |
1326 | for my $sym (keys %{$::CFG->{profile}{default}{bindings}{$mod}}) { |
1328 | for my $sym (keys %{$::CFG->{profile}{default}{bindings}{$mod}}) { |
1327 | my $cmds = $::CFG->{profile}{default}{bindings}{$mod}{$sym}; |
1329 | my $cmds = $::CFG->{profile}{default}{bindings}{$mod}{$sym}; |
1328 | next unless ref $cmds eq 'ARRAY' and @$cmds > 0; |
1330 | next unless ref $cmds eq 'ARRAY' and @$cmds > 0; |
1329 | |
1331 | |
1330 | my $lbl = join "; ", @$cmds; |
1332 | my $lbl = join "; ", @$cmds; |
1331 | my $nam = CFClient::Binder::keycombo_to_name ($mod, $sym); |
1333 | my $nam = CFClient::BindingEditor::keycombo_to_name ($mod, $sym); |
1332 | $binding_list->add (my $hb = new CFClient::UI::HBox); |
1334 | $binding_list->add (my $hb = new CFClient::UI::HBox); |
1333 | $hb->add (new CFClient::UI::Button |
1335 | $hb->add (new CFClient::UI::Button |
1334 | text => "delete", |
1336 | text => "delete", |
1335 | tooltip => "Deletes the binding", |
1337 | tooltip => "Deletes the binding", |
1336 | on_activate => sub { |
1338 | on_activate => sub { |