| … | … | ||
|---|---|---|---|
| 116 | 116 | ||
| 117 | sub event_msg { | 117 | sub event_msg { |
| 118 | my ($self, $name, $message) = @_; | 118 | my ($self, $name, $message) = @_; |
| 119 | 119 | ||
| 120 | $self->{chat}->append_text ("\n<user>$name</user>: $message"); | 120 | $self->{chat}->append_text ("\n<user>$name</user>: $message"); |
| 121 | warn "MSG($name => $message)\n";#d# | ||
| 122 | } | 121 | } |
| 123 | 122 | ||
| 124 | sub destroy { | 123 | sub destroy { |
| 125 | my ($self) = @_; | 124 | my ($self) = @_; |
| 126 | 125 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |