| … | |
… | |
| 34 | }); |
34 | }); |
| 35 | |
35 | |
| 36 | $hpane->pack2((my $sw = new Gtk2::ScrolledWindow), 0, 1); |
36 | $hpane->pack2((my $sw = new Gtk2::ScrolledWindow), 0, 1); |
| 37 | $sw->set_policy("automatic", "always"); |
37 | $sw->set_policy("automatic", "always"); |
| 38 | |
38 | |
| 39 | $sw->add(($self->{userlist} = new gtk::userlist)->widget); |
39 | $sw->add(($self->{userlist} = new userlist)->widget); |
| 40 | |
40 | |
| 41 | $self; |
41 | $self; |
| 42 | } |
42 | } |
| 43 | |
43 | |
| 44 | sub join { |
44 | sub join { |
| … | |
… | |
| 61 | |
61 | |
| 62 | $self->{text}->append_text("\n$msg->{name}: $msg->{message}"); |
62 | $self->{text}->append_text("\n$msg->{name}: $msg->{message}"); |
| 63 | } |
63 | } |
| 64 | |
64 | |
| 65 | sub event_update_users { |
65 | sub event_update_users { |
| 66 | my ($self) = @_; |
66 | my ($self, $add, $update, $remove) = @_; |
| 67 | |
67 | |
| 68 | $self->{userlist}->update ($self->{users}); |
68 | $self->{userlist}->update ($add, $update, $remove); |
| 69 | } |
69 | } |
| 70 | |
70 | |
| 71 | sub event_update_games { |
71 | sub event_update_games { |
| 72 | my ($self) = @_; |
72 | my ($self, $add, $update, $remove) = @_; |
| 73 | |
73 | |
| 74 | $appwin::gamelist->update ($self); |
74 | $appwin::gamelist->update ($self, $add, $update, $remove); |
| 75 | } |
75 | } |
| 76 | |
76 | |
| 77 | sub event_join { |
77 | sub event_join { |
| 78 | my ($self) = @_; |
78 | my ($self) = @_; |
| 79 | $self->SUPER::event_join; |
79 | $self->SUPER::event_join; |
