--- kgsueme/kgsueme/game.pl	2003/06/22 20:47:12	1.64
+++ kgsueme/kgsueme/game.pl	2003/07/21 01:41:02	1.68
@@ -229,23 +229,23 @@
    $self->{boardbox}->pack_start((my $frame = new Gtk2::Frame), 0, 1, 0);
 
    {
-      $frame->add(my $vbox = new Gtk2::VBox);
-      $vbox->add($self->{title} = new Gtk2::Label $title);
+      $frame->add (my $vbox = new Gtk2::VBox);
+      $vbox->add ($self->{title} = new Gtk2::Label $title);
+
+      $vbox->add (my $hbox = new Gtk2::HBox);
+
+      $hbox->pack_start (($self->{board_label} = new Gtk2::Label), 0, 1, 0);
 
       $self->{moveadj} = new Gtk2::Adjustment 1, 1, 1, 1, 5, 0;
 
-      $vbox->add(my $scale = new Gtk2::HScale $self->{moveadj});
+      $hbox->pack_start ((my $scale = new Gtk2::HScale $self->{moveadj}), 1, 1, 0);
       $scale->set_draw_value (0);
       $scale->set_digits (0);
 
       $self->{moveadj}->signal_connect (value_changed => sub { $self->update_board });
    }
 
-   $self->{boardbox}->pack_start((my $aspect_frame = new Gtk2::AspectFrame "", 0.5, 0.5, 1, 0), 1, 1, 0);
-   $aspect_frame->set (border_width => 0, shadow_type => 'none', label_xalign => 0.5);
-   $self->{board_label} = $aspect_frame->get_label_widget;
-
-   $aspect_frame->add($self->{board} = new board size => $self->{size});
+   $self->{boardbox}->add ($self->{board} = new Gtk2::GoBoard size => $self->{size});
 
    # RIGHT PANE
 
@@ -416,7 +416,9 @@
    my ($self) = @_;
    $self->SUPER::event_update_game;
 
-   my $title = $self->{channel} ? $self->owner->as_string . " " . $self->opponent_string : "Game Window";
+   my $title = defined $self->{channel}
+                  ? $self->owner->as_string . " " . $self->opponent_string
+                  : "Game Window";
    $self->{window}->set_title("KGS Game $title");
    $self->{title}->set_text ($title);
 
@@ -527,6 +529,13 @@
                               );
 }
 
+sub event_challenge {
+   my ($self, $challenge) = @_;
+
+   use KGS::Listener::Debug;
+   $self->{text}->append_text ("\n".KGS::Listener::Debug::dumpval($challenge));
+}
+
 sub destroy {
    my ($self) = @_;
    $self->{userpanel}[$_] && (delete $self->{userpanel}[$_])->destroy