| … | |
… | |
| 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 | for (split /\n/, $text) { |
| 1038 | ::message ({ |
1038 | ::message ({ |
| 1039 | fg => $fg, |
1039 | fg => $fg, |
| 1040 | markup => $_, |
1040 | markup => $_, |
| 1041 | type => $type, |
1041 | type => $type, |
| 1042 | extra => [@extra], |
1042 | extra => [@extra], |
| 1043 | color_flags => $color |
1043 | color_flags => $color, #d# ugly, kill |
| 1044 | }); |
1044 | }); |
| 1045 | |
1045 | |
| 1046 | $color &= ~NDI_CLEAR; # only clear once for multiline messages |
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. |
| 1047 | } |
1051 | } |
| 1048 | |
1052 | |
| 1049 | $self->{statusbox}->add ($text, |
1053 | $self->{statusbox}->add ($text, |
| 1050 | group => $text, |
1054 | group => $text, |
| 1051 | fg => $fg, |
1055 | fg => $fg, |
