--- kgsueme/bin/kgsueme	2003/05/29 08:02:31	1.8
+++ kgsueme/bin/kgsueme	2003/05/29 10:32:06	1.9
@@ -300,7 +300,7 @@
    $self->{window}->show_all;
 }
 
-sub event_update {
+sub event_update_rooms {
    my ($self) = @_;
 
    $self->{event_update} ||= Gtk->timeout_add(200, sub {
@@ -387,7 +387,7 @@
    $self;
 }
 
-sub event_update {
+sub event_update_users {
    my ($self) = @_;
 
    $self->{event_update} ||= Gtk->timeout_add(200, sub {
@@ -477,6 +477,7 @@
 package game;
 
 use KGS::Constants;
+use KGS::Game::Board;
 
 use base KGS::Listener::Game;
 use base KGS::Game;
@@ -496,7 +497,7 @@
    $self->{window}->add(my $hpane = new Gtk::HPaned);
    ::state $hpane, "game::hpane", undef, hpane_position => 500;
 
-   $::config{aa} = 1;
+   $::config{aa} = 0;
    $self->{canvas} = $::config{aa} ? new_aa Gnome::Canvas : new Gnome::Canvas;
    $hpane->add($self->{canvas});
 
@@ -637,28 +638,10 @@
    $self;
 }
 
-sub event_update {
+sub event_update_users {
    my ($self) = @_;
 
-   $self->{event_update} ||= Gtk->timeout_add(200, sub {
-      my $l = $self->{userlist};
-
-      $l->freeze;
-      my $pos = $l->get_vadjustment->get_value;
-      $l->clear;
-
-      my $row = 0;
-      for (values %{$self->{users}}) {
-         $l->append($_->{name});
-         $l->set_row_data($row++, $_);
-      }
-      $l->sort;
-      $l->get_vadjustment->set_value($pos);
-      $l->thaw;
-
-      delete $self->{event_update};
-      0;
-   });
+   room::event_update_users $self;
 }
 
 sub join {
@@ -682,16 +665,6 @@
    my $board = new KGS::Game::Board $self->{size};
    $board->interpret_path ($self->get_path);
 
-#   if (not defined $self->{board_pm}) {
-#     $self->{board_pm} = new Gtk::Gdk::Pixmap ($self->{board}->window, 100, 100, -1);
-#     $self->{board_pm}->draw_rectangle($self->{board}->style->white_gc, 1, 0, 0, 100, 100);
-#   }
-#   my $red = $self->{board}->window->get_colormap->color_alloc( { red => 65000, green => 0, blue => 0 } );
-#   my $red_gc = new Gtk::Gdk::GC ( $self->{board}->window );
-#   $red_gc->set_foreground( $red );
-#
-#   my $px = $self->{board_pm};
-
    for my $x (0 .. $self->{size} - 1) {
       for my $y (0 .. $self->{size} - 1) {
          my $v = $board->{board}[$x][$y];
@@ -704,6 +677,9 @@
             : $self->{board_gfx}->{stones}->[$x][$y][1]->hide;
       }
    }
+
+   $self->{text}->backward_delete($self->{text}->get_length);
+   $self->{text}->insert(undef, undef, undef, $board->{comment}.PApp::Util::dumpval([$board->{time},$board->{captures}]));
 }
 
 1;