| … | |
… | |
| 230 | $self->{binding} = [$mod, $sym]; |
230 | $self->{binding} = [$mod, $sym]; |
| 231 | $self->update_binding_widgets; |
231 | $self->update_binding_widgets; |
| 232 | $self->commit if $commit; |
232 | $self->commit if $commit; |
| 233 | $end_cb->() if $end_cb; |
233 | $end_cb->() if $end_cb; |
| 234 | |
234 | |
|
|
235 | if (my $binder = delete $self->{binder}) { |
| 235 | (delete $self->{binder})->destroy; |
236 | $binder->destroy; |
|
|
237 | } |
| 236 | 1 |
238 | 1 |
| 237 | }, |
239 | }, |
| 238 | on_focus_out => sub { |
240 | on_focus_out => sub { |
| 239 | # segfaults and worse :() |
241 | # segfaults and worse :() |
| 240 | #(delete $self->{binder})->destroy if $self->{binder}; |
242 | #(delete $self->{binder})->destroy if $self->{binder}; |
