| … | … | ||
|---|---|---|---|
| 60 | 60 | ||
| 61 | sub clr_commands { | 61 | sub clr_commands { |
| 62 | my ($self) = @_; | 62 | my ($self) = @_; |
| 63 | 63 | ||
| 64 | %{$self->{completer}{command}} = (); | 64 | %{$self->{completer}{command}} = (); |
| 65 | |||
| 66 | $self->{completer}->hide | ||
| 67 | if $self->{completer}; | ||
| 65 | } | 68 | } |
| 66 | 69 | ||
| 67 | sub invoke_button_down { | 70 | sub invoke_button_down { |
| 68 | my ($self, $ev, $x, $y) = @_; | 71 | my ($self, $ev, $x, $y) = @_; |
| 69 | 72 | ||
| … | … | ||
| 616 | } | 619 | } |
| 617 | 620 | ||
| 618 | sub hide { | 621 | sub hide { |
| 619 | my ($self) = @_; | 622 | my ($self) = @_; |
| 620 | 623 | ||
| 624 | $self->{hist_ptr} = 0; | ||
| 625 | |||
| 621 | $self->SUPER::hide; | 626 | $self->SUPER::hide; |
| 622 | $self->{entry}->set_text (""); | 627 | $self->{entry}->set_text (""); |
| 623 | } | 628 | } |
| 624 | 629 | ||
| 625 | sub invoke_key_down { | 630 | sub invoke_key_down { |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |