| … | |
… | |
| 1096 | |
1096 | |
| 1097 | ## try to create single paragraphs of multiple lines sent by the server |
1097 | ## try to create single paragraphs of multiple lines sent by the server |
| 1098 | # no longer neecssary with TRT servers |
1098 | # no longer neecssary with TRT servers |
| 1099 | #$text =~ s/(?<=\S)\n(?=\w)/ /g; |
1099 | #$text =~ s/(?<=\S)\n(?=\w)/ /g; |
| 1100 | |
1100 | |
| 1101 | for (split /\n/, $text) { |
|
|
| 1102 | ::message ({ |
1101 | ::message ({ |
| 1103 | fg => $fg, |
1102 | fg => $fg, |
| 1104 | markup => $_, |
1103 | markup => $text, |
| 1105 | type => $type, |
1104 | type => $type, |
| 1106 | extra => [@extra], |
1105 | extra => [@extra], |
| 1107 | color_flags => $color, #d# ugly, kill |
1106 | color_flags => $color, #d# ugly, kill |
| 1108 | }); |
1107 | }); |
| 1109 | |
1108 | |
| 1110 | $color &= ~NDI_CLEAR; # only clear once for multiline messages |
1109 | # $color &= ~NDI_CLEAR; # only clear once for multiline messages |
| 1111 | # actually, this is an ugly design. _we_ should control the channels, |
1110 | # # actually, this is an ugly design. _we_ should control the channels, |
| 1112 | # not some random other widget, as the channels are clearly protocol-specific. |
1111 | # # not some random other widget, as the channels are clearly protocol-specific. |
| 1113 | # then we could also react to flags such as CLEAR without resorting to |
1112 | # # then we could also react to flags such as CLEAR without resorting to |
| 1114 | # hacks such as color_flags, above. |
1113 | # # hacks such as color_flags, above. |
| 1115 | } |
|
|
| 1116 | |
1114 | |
| 1117 | $self->{statusbox}->add ($text, |
1115 | $self->{statusbox}->add ($text, |
| 1118 | group => $text, |
1116 | group => $text, |
| 1119 | fg => $fg, |
1117 | fg => $fg, |
| 1120 | timeout => $color >= 2 ? 180 : 10, |
1118 | timeout => $color >= 2 ? 180 : 10, |
