| … | |
… | |
| 71 | gtk::state $self->{vpane}, "game::vpane", $self->{name}, position => 80; |
71 | gtk::state $self->{vpane}, "game::vpane", $self->{name}, position => 80; |
| 72 | |
72 | |
| 73 | $self->{vpane}->add(my $sw = new Gtk2::ScrolledWindow); |
73 | $self->{vpane}->add(my $sw = new Gtk2::ScrolledWindow); |
| 74 | $sw->set_policy("automatic", "always"); |
74 | $sw->set_policy("automatic", "always"); |
| 75 | |
75 | |
| 76 | $sw->add(($self->{userlist} = new gtk::userlist)->widget); |
76 | $sw->add(($self->{userlist} = new userlist)->widget); |
| 77 | |
77 | |
| 78 | $self->{vpane}->add(my $vbox = new Gtk2::VBox); |
78 | $self->{vpane}->add(my $vbox = new Gtk2::VBox); |
| 79 | |
79 | |
| 80 | $vbox->pack_start((my $sw = new Gtk2::ScrolledWindow), 1, 1, 0); |
80 | $vbox->pack_start((my $sw = new Gtk2::ScrolledWindow), 1, 1, 0); |
| 81 | $sw->set_policy("never", "always"); |
81 | $sw->set_policy("never", "always"); |
| … | |
… | |
| 91 | |
91 | |
| 92 | $self; |
92 | $self; |
| 93 | } |
93 | } |
| 94 | |
94 | |
| 95 | sub event_update_users { |
95 | sub event_update_users { |
| 96 | my ($self) = @_; |
96 | my ($self, $add, $update, $remove) = @_; |
| 97 | |
97 | |
| 98 | $self->{userlist}->update($self->{users}); |
98 | $self->{userlist}->update ($add, $update, $remove); |
| 99 | } |
99 | } |
| 100 | |
100 | |
| 101 | sub join { |
101 | sub join { |
| 102 | my ($self) = @_; |
102 | my ($self) = @_; |
| 103 | $self->SUPER::join; |
103 | $self->SUPER::join; |
