… | |
… | |
3151 | $rec = $::CONN->stop_record if $::CONN; |
3151 | $rec = $::CONN->stop_record if $::CONN; |
3152 | return unless ref $rec eq 'ARRAY'; |
3152 | return unless ref $rec eq 'ARRAY'; |
3153 | $self->set_command_list ($rec); |
3153 | $self->set_command_list ($rec); |
3154 | } |
3154 | } |
3155 | |
3155 | |
3156 | # if $commit is true, the binding will be set after the user entered a key combo |
3156 | |
|
|
3157 | sub ask_for_bind_and_commit { |
|
|
3158 | my ($self) = @_; |
|
|
3159 | $self->ask_for_bind (1); |
|
|
3160 | } |
|
|
3161 | |
3157 | sub ask_for_bind { |
3162 | sub ask_for_bind { |
3158 | my ($self, $commit) = @_; |
3163 | my ($self, $commit) = @_; |
3159 | |
3164 | |
3160 | CFClient::Binder::open_binding_dialog (sub { |
3165 | CFClient::Binder::open_binding_dialog (sub { |
3161 | my ($mod, $sym) = @_; |
3166 | my ($mod, $sym) = @_; |