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

Comparing kgsueme/kgsueme/app.pl (file contents):
Revision 1.13 by pcg, Sat May 29 02:01:43 2004 UTC vs.
Revision 1.14 by pcg, Sat May 29 06:38:27 2004 UTC

… …
27 27
28 Scalar::Util::weaken ($::self = $self); # singleton... 28 Scalar::Util::weaken ($::self = $self); # singleton...
29 29
30 $self->{conn} = new KGS::Protocol::Client; 30 $self->{conn} = new KGS::Protocol::Client;
31 31
32 $self->listen ($self->{conn}, qw(login userpic idle_warn msg_chat)); 32 $self->listen ($self->{conn}, qw(login userpic idle_warn msg_chat chal_defaults));
33 33
34 $self->{roomlist} = new roomlist conn => $self->{conn}, app => $self; 34 $self->{roomlist} = new roomlist conn => $self->{conn}, app => $self;
35 35
36 $self->set_title ('kgsueme'); 36 $self->set_title ('kgsueme');
37 gtk::state $self, "main::window", undef, window_size => [400, 500]; 37 gtk::state $self, "main::window", undef, window_size => [400, 500];
… …
151 $self->open_user (name => $msg->{name})->inject ($msg); 151 $self->open_user (name => $msg->{name})->inject ($msg);
152 } 152 }
153 } 153 }
154} 154}
155 155
156sub inject_chal_defaults {
157 my ($self, $msg) = @_;
158
159 $self->{defaults} = $msg->{defaults};
160}
161
156my %userpic; 162my %userpic;
157my %userpic_cb; 163my %userpic_cb;
158 164
159# static method to request the userimage and call the cb when it's available. 165# static method to request the userimage and call the cb when it's available.
160sub userpic { 166sub userpic {

Diff Legend

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