| … | |
… | |
| 525 | if $self->{parent}; |
525 | if $self->{parent}; |
| 526 | } |
526 | } |
| 527 | |
527 | |
| 528 | sub reconfigure { |
528 | sub reconfigure { |
| 529 | my ($self) = @_; |
529 | my ($self) = @_; |
|
|
530 | |
|
|
531 | # some widgets cache req_w and req_h |
|
|
532 | delete $self->{req_w}; |
|
|
533 | delete $self->{req_h}; |
| 530 | |
534 | |
| 531 | $self->realloc; |
535 | $self->realloc; |
| 532 | $self->update; |
536 | $self->update; |
| 533 | } |
537 | } |
| 534 | |
538 | |
| … | |
… | |
| 1554 | return if $self->{text} eq "T$text"; |
1558 | return if $self->{text} eq "T$text"; |
| 1555 | $self->{text} = "T$text"; |
1559 | $self->{text} = "T$text"; |
| 1556 | |
1560 | |
| 1557 | $self->{layout} = new CFClient::Layout if $self->{layout}->is_rgba; |
1561 | $self->{layout} = new CFClient::Layout if $self->{layout}->is_rgba; |
| 1558 | $self->{layout}->set_text ($text); |
1562 | $self->{layout}->set_text ($text); |
|
|
1563 | |
| 1559 | delete $self->{req_h}; |
1564 | delete $self->{req_h}; |
| 1560 | |
|
|
| 1561 | $self->realloc; |
1565 | $self->realloc; |
| 1562 | $self->update; |
1566 | $self->update; |
| 1563 | } |
1567 | } |
| 1564 | |
1568 | |
| 1565 | sub set_markup { |
1569 | sub set_markup { |
| … | |
… | |
| 1570 | |
1574 | |
| 1571 | my $rgba = $markup =~ /span.*(?:foreground|background)/; |
1575 | my $rgba = $markup =~ /span.*(?:foreground|background)/; |
| 1572 | |
1576 | |
| 1573 | $self->{layout} = new CFClient::Layout $rgba if $self->{layout}->is_rgba != $rgba; |
1577 | $self->{layout} = new CFClient::Layout $rgba if $self->{layout}->is_rgba != $rgba; |
| 1574 | $self->{layout}->set_markup ($markup); |
1578 | $self->{layout}->set_markup ($markup); |
|
|
1579 | |
| 1575 | delete $self->{req_h}; |
1580 | delete $self->{req_h}; |
| 1576 | |
|
|
| 1577 | $self->realloc; |
1581 | $self->realloc; |
| 1578 | $self->update; |
1582 | $self->update; |
| 1579 | } |
1583 | } |
| 1580 | |
1584 | |
| 1581 | sub size_request { |
1585 | sub size_request { |
