| … | |
… | |
| 168 | } |
168 | } |
| 169 | |
169 | |
| 170 | sub at_end { |
170 | sub at_end { |
| 171 | my ($self) = @_; |
171 | my ($self) = @_; |
| 172 | |
172 | |
|
|
173 | # this is, maybe, a bad hack :/ |
| 173 | my $adj = $self->{widget}->get_vadjustment; |
174 | my $adj = $self->{widget}->get_vadjustment; |
| 174 | # this is, maybe, a bad hack :/ |
|
|
| 175 | warn $adj->value . "+" . $adj->page_size . ">= ". $adj->upper; |
|
|
| 176 | $adj->value + $adj->page_size >= $adj->upper - 0.5; |
175 | $adj->value + $adj->page_size >= $adj->upper - 0.5; |
| 177 | } |
176 | } |
| 178 | |
177 | |
| 179 | sub append_text { |
178 | sub append_text { |
| 180 | my ($self, $text) = @_; |
179 | my ($self, $text) = @_; |
