… | |
… | |
2755 | $self->{height} = 0; |
2755 | $self->{height} = 0; |
2756 | $self->{children}[1]->set_range ([0, 0, 0, 1, 1]); |
2756 | $self->{children}[1]->set_range ([0, 0, 0, 1, 1]); |
2757 | } |
2757 | } |
2758 | |
2758 | |
2759 | sub add_paragraph { |
2759 | sub add_paragraph { |
2760 | my ($self, $color, $para, $indent) = @_; |
2760 | my $self = shift; |
2761 | |
2761 | |
2762 | my ($text, @w) = ref $para ? @$para : $para; |
2762 | for my $para (@_) { |
2763 | |
|
|
2764 | $para = { |
2763 | $para = { |
|
|
2764 | fg => [1, 1, 1, 1], |
|
|
2765 | indent => 0, |
|
|
2766 | markup => "", |
|
|
2767 | widget => [], |
|
|
2768 | ref $para ? %$para : (markup => $para), |
2765 | w => 1e10, |
2769 | w => 1e10, |
2766 | wrapped => 1, |
2770 | wrapped => 1, |
2767 | fg => $color, |
|
|
2768 | indent => $indent, |
|
|
2769 | markup => $text, |
|
|
2770 | widget => \@w, |
|
|
2771 | }; |
2771 | }; |
2772 | |
2772 | |
2773 | $self->add (@w) if @w; |
2773 | $self->add (@{ $para->{widget} }) if @{ $para->{widget} }; |
2774 | push @{$self->{par}}, $para; |
2774 | push @{$self->{par}}, $para; |
|
|
2775 | } |
2775 | |
2776 | |
2776 | $self->{need_reflow}++; |
2777 | $self->{need_reflow}++; |
2777 | $self->update; |
2778 | $self->update; |
2778 | } |
2779 | } |
2779 | |
2780 | |