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

Comparing kgsueme/kgsueme/game.pl (file contents):
Revision 1.71 by pcg, Wed Jul 23 02:03:37 2003 UTC vs.
Revision 1.72 by pcg, Fri Jul 25 03:50:33 2003 UTC

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

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines