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