… | |
… | |
112 | $self->{input}->{tooltip} = $self->{entry_tooltip}; |
112 | $self->{input}->{tooltip} = $self->{entry_tooltip}; |
113 | $self->set_title ($self->{title}); |
113 | $self->set_title ($self->{title}); |
114 | } |
114 | } |
115 | } |
115 | } |
116 | |
116 | |
|
|
117 | sub update_tooltip { |
|
|
118 | my ($self) = @_; |
|
|
119 | my $t = $self->{text_tooltip} |
|
|
120 | . (defined $self->{dockbar_pos} |
|
|
121 | ? "\n\n<small>Alt+" |
|
|
122 | . ($self->{dockbar_pos} == 10 ? '0' : $self->{dockbar_pos}) |
|
|
123 | . " - activates this tab.\n" |
|
|
124 | . "Return - toggles activity of the entry." |
|
|
125 | . "</small>" |
|
|
126 | : ""); |
|
|
127 | $self->{c_tab}->set_tooltip ($t); |
|
|
128 | } |
|
|
129 | |
|
|
130 | sub set_dockbar_pos { |
|
|
131 | my ($self, @a) = @_; |
|
|
132 | $self->SUPER::set_dockbar_pos (@a); |
|
|
133 | $self->update_tooltip; |
|
|
134 | } |
|
|
135 | |
117 | # (private) This method overloads the set_dockbar_tab_active method of |
136 | # (private) This method overloads the set_dockbar_tab_active method of |
118 | # the Dockbar to capture the activation event of the tab. Mainly used |
137 | # the Dockbar to capture the activation event of the tab. Mainly used |
119 | # to remove highlightin. |
138 | # to remove highlightin. |
120 | sub set_dockbar_tab_active { |
139 | sub set_dockbar_tab_active { |
121 | my ($self, $active) = @_; |
140 | my ($self, $active) = @_; |