| … | |
… | |
| 232 | |
232 | |
| 233 | delete $self->{visible}; |
233 | delete $self->{visible}; |
| 234 | |
234 | |
| 235 | undef $GRAB if $GRAB == $self; |
235 | undef $GRAB if $GRAB == $self; |
| 236 | undef $HOVER if $HOVER == $self; |
236 | undef $HOVER if $HOVER == $self; |
|
|
237 | |
|
|
238 | CFClient::UI::check_tooltip |
|
|
239 | if $CFClient::UI::TOOLTIP->{owner} == $self; |
| 237 | |
240 | |
| 238 | $self->focus_out; |
241 | $self->focus_out; |
| 239 | } |
242 | } |
| 240 | |
243 | |
| 241 | sub hide { |
244 | sub hide { |
| … | |
… | |
| 1562 | my ($self) = @_; |
1565 | my ($self) = @_; |
| 1563 | |
1566 | |
| 1564 | my ($w, $h) = $self->SUPER::size_request; |
1567 | my ($w, $h) = $self->SUPER::size_request; |
| 1565 | |
1568 | |
| 1566 | ($w + 1, $h) # add 1 for cursor |
1569 | ($w + 1, $h) # add 1 for cursor |
| 1567 | } |
|
|
| 1568 | |
|
|
| 1569 | sub size_allocate { |
|
|
| 1570 | my ($self, $w, $h) = @_; |
|
|
| 1571 | |
|
|
| 1572 | $self->_set_text (delete $self->{text});#d# don't check for == inside _set_text |
|
|
| 1573 | } |
1570 | } |
| 1574 | |
1571 | |
| 1575 | sub key_down { |
1572 | sub key_down { |
| 1576 | my ($self, $ev) = @_; |
1573 | my ($self, $ev) = @_; |
| 1577 | |
1574 | |
