… | |
… | |
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 | |
|
|
203 | if ($self->{notebook}->get_current_page) { |
202 | my $curdock = $self->{notebook}->get_current_page; |
204 | my $curdock = $self->{notebook}->get_current_page; |
203 | $curdock->emit ('close_dock'); |
205 | $curdock->close; |
|
|
206 | } |
204 | } |
207 | } |
205 | |
208 | |
206 | # "activates" the current page |
209 | # "activates" the current page |
207 | sub activate_current { |
210 | sub activate_current { |
208 | my ($self) = @_; |
211 | my ($self) = @_; |
|
|
212 | |
|
|
213 | if ($self->{notebook}->get_current_page) { |
209 | $self->{notebook}->get_current_page->activate |
214 | $self->{notebook}->get_current_page->activate |
|
|
215 | } |
210 | } |
216 | } |
211 | |
217 | |
212 | 1 |
218 | 1 |