… | |
… | |
972 | |
972 | |
973 | my $lbl = join "; ", @$cmds; |
973 | my $lbl = join "; ", @$cmds; |
974 | my $nam = CFClient::Recorder::keycombo_to_name ($mod, $sym); |
974 | my $nam = CFClient::Recorder::keycombo_to_name ($mod, $sym); |
975 | $binding_list->add (my $hb = new CFClient::UI::HBox); |
975 | $binding_list->add (my $hb = new CFClient::UI::HBox); |
976 | $hb->add (new CFClient::UI::Button |
976 | $hb->add (new CFClient::UI::Button |
977 | text => "del", |
977 | text => "delete", |
978 | on_activate => sub { |
978 | on_activate => sub { |
979 | $binding_list->remove ($hb); |
979 | $binding_list->remove ($hb); |
980 | delete $::CFG->{bindings}->{$mod}->{$sym}; |
980 | delete $::CFG->{bindings}->{$mod}->{$sym}; |
981 | }); |
981 | }); |
982 | $hb->add (new CFClient::UI::Label text => "($nam)"); |
982 | $hb->add (new CFClient::UI::Label text => "($nam)"); |