… | |
… | |
263 | |
263 | |
264 | $vbox->pack_start((my $hbox = new Gtk2::HBox 1), 0, 1, 0); |
264 | $vbox->pack_start((my $hbox = new Gtk2::HBox 1), 0, 1, 0); |
265 | $hbox->add (($self->{userpanel}[WHITE] = new game::userpanel colour => WHITE)->widget); |
265 | $hbox->add (($self->{userpanel}[WHITE] = new game::userpanel colour => WHITE)->widget); |
266 | $hbox->add (($self->{userpanel}[BLACK] = new game::userpanel colour => BLACK)->widget); |
266 | $hbox->add (($self->{userpanel}[BLACK] = new game::userpanel colour => BLACK)->widget); |
267 | |
267 | |
268 | $vbox->pack_start(($self->{text} = new gtk::text)->widget, 1, 1, 0); |
268 | $vbox->pack_start(($self->{text} = new chat), 1, 1, 0); |
269 | |
|
|
270 | $vbox->pack_start(($self->{entry} = new Gtk2::Entry), 0, 1, 0); |
|
|
271 | $self->{entry}->signal_connect(activate => sub { |
|
|
272 | my $text = $self->{entry}->get_text; |
|
|
273 | $self->say($text) if $text =~ /\S/; |
|
|
274 | $self->{entry}->set_text(""); |
|
|
275 | }); |
|
|
276 | |
269 | |
277 | $self->event_update_game; |
270 | $self->event_update_game; |
278 | $self; |
271 | $self; |
279 | } |
272 | } |
280 | |
273 | |