| 1 | package DC::UI::Dockbar; |
1 | package DC::UI::Dockbar; |
|
|
2 | |
| 2 | use DC::UI::Dockable; |
3 | use DC::UI::Dockable; |
| 3 | |
4 | |
| 4 | use strict; |
5 | use strict; |
| 5 | use utf8; |
6 | use utf8; |
| 6 | |
7 | |
| … | |
… | |
| 174 | sub is_docked { |
175 | sub is_docked { |
| 175 | my ($self, $dockable) = @_; |
176 | my ($self, $dockable) = @_; |
| 176 | return not exists $self->{dock_windows}->{"$dockable"}; |
177 | return not exists $self->{dock_windows}->{"$dockable"}; |
| 177 | } |
178 | } |
| 178 | |
179 | |
| 179 | # switiching to a page |
180 | # switching to a page |
| 180 | sub user_switch_to_page { |
181 | sub user_switch_to_page { |
| 181 | my ($self, $page) = @_; |
182 | my ($self, $page) = @_; |
| 182 | $page = $page eq '0' ? 10 : $page; |
183 | $page = $page eq '0' ? 10 : $page; |
| 183 | |
184 | |
| 184 | my @tabs = $self->{notebook}->pages; |
185 | my @tabs = $self->{notebook}->pages; |
