… | |
… | |
1328 | for my $sym (keys %{$::CFG->{profile}{default}{bindings}{$mod}}) { |
1328 | for my $sym (keys %{$::CFG->{profile}{default}{bindings}{$mod}}) { |
1329 | my $cmds = $::CFG->{profile}{default}{bindings}{$mod}{$sym}; |
1329 | my $cmds = $::CFG->{profile}{default}{bindings}{$mod}{$sym}; |
1330 | next unless ref $cmds eq 'ARRAY' and @$cmds > 0; |
1330 | next unless ref $cmds eq 'ARRAY' and @$cmds > 0; |
1331 | |
1331 | |
1332 | my $lbl = join "; ", @$cmds; |
1332 | my $lbl = join "; ", @$cmds; |
1333 | my $nam = CFClient::Binder::keycombo_to_name ($mod, $sym); |
1333 | my $nam = CFClient::BindingEditor::keycombo_to_name ($mod, $sym); |
1334 | $binding_list->add (my $hb = new CFClient::UI::HBox); |
1334 | $binding_list->add (my $hb = new CFClient::UI::HBox); |
1335 | $hb->add (new CFClient::UI::Button |
1335 | $hb->add (new CFClient::UI::Button |
1336 | text => "delete", |
1336 | text => "delete", |
1337 | tooltip => "Deletes the binding", |
1337 | tooltip => "Deletes the binding", |
1338 | on_activate => sub { |
1338 | on_activate => sub { |