… | |
… | |
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, #d# ugly, kill |
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, |
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. |
1048 | # not some random other widget, as the channels are clearly protocol-specific. |