… | |
… | |
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 { |