| … | … | ||
|---|---|---|---|
| 197 | } | 197 | } |
| 198 | 198 | ||
| 199 | # close current tab | 199 | # close current tab |
| 200 | sub close_current_tab { | 200 | sub close_current_tab { |
| 201 | my ($self) = @_; | 201 | my ($self) = @_; |
| 202 | $self->remove_dock ($self->{notebook}->get_current_page); | 202 | my $curdock = $self->{notebook}->get_current_page; |
| 203 | $curdock->emit ('close_dock'); | ||
| 203 | } | 204 | } |
| 204 | 205 | ||
| 205 | # "activates" the current page | 206 | # "activates" the current page |
| 206 | sub activate_current { | 207 | sub activate_current { |
| 207 | my ($self) = @_; | 208 | my ($self) = @_; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |