| … | |
… | |
| 117 | sub update_tooltip { |
117 | sub update_tooltip { |
| 118 | my ($self) = @_; |
118 | my ($self) = @_; |
| 119 | my $t = $self->{text_tooltip} |
119 | my $t = $self->{text_tooltip} |
| 120 | . (defined $self->{dockbar_pos} |
120 | . (defined $self->{dockbar_pos} |
| 121 | ? "\n\n<small>Alt+" |
121 | ? "\n\n<small>Alt+" |
| 122 | . ($self->{dockbar_pos} == 10 ? '0' : $self->{dockbar_pos}) |
122 | . ($self->{dockbar_pos} == 9 ? '0' : $self->{dockbar_pos} + 1) |
| 123 | . " - activates this tab.\n" |
123 | . " - activates this tab.\n" |
| 124 | . "Return - toggles activity of the entry." |
124 | . "Return - toggles activity of the entry." |
| 125 | . "</small>" |
125 | . "</small>" |
| 126 | : ""); |
126 | : ""); |
| 127 | $self->{c_tab}->set_tooltip ($t); |
127 | $self->{c_tab}->set_tooltip ($t); |
