| … | |
… | |
| 114 | |
114 | |
| 115 | $self->SUPER::event_part; |
115 | $self->SUPER::event_part; |
| 116 | $self->destroy; |
116 | $self->destroy; |
| 117 | } |
117 | } |
| 118 | |
118 | |
|
|
119 | sub event_quit { |
|
|
120 | my ($self) = @_; |
|
|
121 | |
|
|
122 | $self->SUPER::event_quit; |
|
|
123 | $self->destroy; |
|
|
124 | } |
|
|
125 | |
| 119 | sub event_update_roominfo { |
126 | sub event_update_roominfo { |
| 120 | my ($self) = @_; |
127 | my ($self) = @_; |
| 121 | |
128 | |
| 122 | $self->{chat}->append_text("\n<user>" . (util::toxml $self->{owner}) . "</user>\n" |
129 | $self->{chat}->append_text("\n<user>" . (util::toxml $self->{owner}) . "</user>\n" |
| 123 | . "<description>" . (util::toxml $self->{description}) . "</description>\n"); |
130 | . "<description>" . (util::toxml $self->{description}) . "</description>\n"); |
