ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/kgsueme/kgsueme/room.pl
(Generate patch)

Comparing kgsueme/kgsueme/room.pl (file contents):
Revision 1.12 by pcg, Tue Jun 3 04:45:43 2003 UTC vs.
Revision 1.13 by pcg, Tue Jun 3 07:35:08 2003 UTC

… …
49 49
50sub part { 50sub part {
51 my ($self) = @_; 51 my ($self) = @_;
52 $self->SUPER::part; 52 $self->SUPER::part;
53 53
54 delete $::config->{rooms}{$self->{channel}}; 54 $self->destroy; # yeaha
55 (remove Glib::Source delete $self->{gameupdate}) if $self->{gameupdate};
56 $self->{window}->hide_all;
57} 55}
58 56
59sub inject_msg_room { 57sub inject_msg_room {
60 my ($self, $msg) = @_; 58 my ($self, $msg) = @_;
61 59
… …
89 }; 87 };
90} 88}
91 89
92sub event_part { 90sub event_part {
93 my ($self) = @_; 91 my ($self) = @_;
92
93 delete $::config->{rooms}{$self->{channel}};
94 delete $appwin::self->{roomlist}{room}{$self->{channel}};
95 (remove Glib::Source delete $self->{gameupdate}) if $self->{gameupdate};
96 $self->unlisten;
97
94 $self->SUPER::event_part; 98 $self->SUPER::event_part;
95} 99}
96 100
97sub event_update_roominfo { 101sub event_update_roominfo {
98 my ($self) = @_; 102 my ($self) = @_;
… …
101 . "<description>" . (util::toxml $self->{description}) . "</description>\n"); 105 . "<description>" . (util::toxml $self->{description}) . "</description>\n");
102} 106}
103 107
104sub destroy { 108sub destroy {
105 my ($self) = @_; 109 my ($self) = @_;
106 $self->destroy;
107 110
108 (remove Glib::Source delete $self->{gameupdate}) if $self->{gameupdate}; 111 $self->event_part;
112
113 $self->SUPER::destroy;
109} 114}
110 115
1111; 1161;
112 117

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines