… | |
… | |
1032 | |
1032 | |
1033 | ## try to create single paragraphs of multiple lines sent by the server |
1033 | ## try to create single paragraphs of multiple lines sent by the server |
1034 | # no longer neecssary with TRT servers |
1034 | # no longer neecssary with TRT servers |
1035 | #$text =~ s/(?<=\S)\n(?=\w)/ /g; |
1035 | #$text =~ s/(?<=\S)\n(?=\w)/ /g; |
1036 | |
1036 | |
|
|
1037 | for (split /\n/, $text) { |
1037 | ::message ({ |
1038 | ::message ({ |
1038 | fg => $fg, |
1039 | fg => $fg, |
1039 | markup => $_, |
1040 | markup => $_, |
1040 | type => $type, |
1041 | type => $type, |
1041 | extra => [@extra], |
1042 | extra => [@extra], |
1042 | color_flags => $color |
1043 | color_flags => $color, #d# ugly, kill |
1043 | }) for split /\n/, $text; |
1044 | }); |
|
|
1045 | |
|
|
1046 | $color &= ~NDI_CLEAR; # only clear once for multiline messages |
|
|
1047 | # actually, this is an ugly design. _we_ should control the channels, |
|
|
1048 | # not some random other widget, as the channels are clearly protocol-specific. |
|
|
1049 | # then we could also react to flags such as CLEAR without resorting to |
|
|
1050 | # hacks such as color_flags, above. |
|
|
1051 | } |
1044 | |
1052 | |
1045 | $self->{statusbox}->add ($text, |
1053 | $self->{statusbox}->add ($text, |
1046 | group => $text, |
1054 | group => $text, |
1047 | fg => $fg, |
1055 | fg => $fg, |
1048 | timeout => $color >= 2 ? 180 : 10, |
1056 | timeout => $color >= 2 ? 180 : 10, |