--- deliantra/Deliantra-Client/DC/Protocol.pm 2007/09/01 08:01:08 1.170 +++ deliantra/Deliantra-Client/DC/Protocol.pm 2007/09/02 03:55:03 1.172 @@ -1036,14 +1036,18 @@ for (split /\n/, $text) { ::message ({ - fg => $fg, - markup => $_, - type => $type, - extra => [@extra], - color_flags => $color + fg => $fg, + markup => $_, + type => $type, + extra => [@extra], + color_flags => $color, #d# ugly, kill }); $color &= ~NDI_CLEAR; # only clear once for multiline messages + # actually, this is an ugly design. _we_ should control the channels, + # not some random other widget, as the channels are clearly protocol-specific. + # then we could also react to flags such as CLEAR without resorting to + # hacks such as color_flags, above. } $self->{statusbox}->add ($text,