| … | |
… | |
| 256 | $hbox->add ($self->{userpanel}[$_] = new game::userpanel colour => $_) |
256 | $hbox->add ($self->{userpanel}[$_] = new game::userpanel colour => $_) |
| 257 | for COLOUR_WHITE, COLOUR_BLACK; |
257 | for COLOUR_WHITE, COLOUR_BLACK; |
| 258 | |
258 | |
| 259 | $vbox->pack_start (($self->{chat} = new superchat), 1, 1, 0); |
259 | $vbox->pack_start (($self->{chat} = new superchat), 1, 1, 0); |
| 260 | |
260 | |
| 261 | $self->{rules_inlay} = $self->{chat}->new_switchable_inlay ("Game Rules", sub { $self->draw_rules (@_) }, 1); |
261 | $self->{rules_inlay} = $self->{chat}->new_switchable_inlay ("Game Setup:", sub { $self->draw_rules (@_) }, 1); |
| 262 | $self->{users_inlay} = $self->{chat}->new_switchable_inlay ("Users:", sub { $self->draw_users (@_) }, 0); |
262 | $self->{users_inlay} = $self->{chat}->new_switchable_inlay ("Users:", sub { $self->draw_users (@_) }, 0); |
| 263 | |
263 | |
| 264 | $self->{chat}->signal_connect (command => sub { |
264 | $self->{chat}->signal_connect (command => sub { |
| 265 | my ($chat, $cmd, $arg) = @_; |
265 | my ($chat, $cmd, $arg) = @_; |
| 266 | if ($cmd eq "rsave") { |
266 | if ($cmd eq "rsave") { |
