[ViewVC] Diff of: cvs/kgsueme/kgsueme/game.pl

Comparing kgsueme/kgsueme/game.pl (file contents):
Revision 1.87 by pcg, Fri May 21 15:32:02 2004 UTC vs.
Revision 1.88 by pcg, Fri May 21 16:13:41 2004 UTC

    $hpane->pack2 (($self->{vpane} = new Gtk2::VPaned), 1, 1);
    $hpane->set (position_set => 1);
    gtk::state $self->{vpane}, "game::vpane", $self->{name}, position => 80;
-   $self->{vpane}->add (my $sw = new Gtk2::ScrolledWindow);
+#   $self->{vpane}->add (my $sw = new Gtk2::ScrolledWindow);
-   $sw->set_policy ("automatic", "always");
+#   $sw->set_policy ("automatic", "always");
-   $sw->add ($self->{userlist} = new userlist);
+#   $sw->add ($self->{userlist} = new userlist);
    $self->{vpane}->add (my $vbox = new Gtk2::VBox);
    $vbox->pack_start ((my $hbox = new Gtk2::HBox 1), 0, 1, 0);
       for COLOUR_WHITE, COLOUR_BLACK;
    $vbox->pack_start (($self->{chat} = new superchat), 1, 1, 0);
    $self->{rules_inlay} = $self->{chat}->new_switchable_inlay ("Game Rules", sub { $self->draw_rules (@_) }, 1);
+   $self->{users_inlay} = $self->{chat}->new_switchable_inlay ("Users:", sub { $self->draw_users (@_) }, 0);
    $self->{chat}->signal_connect (command => sub {
       my ($chat, $cmd, $arg) = @_;
       if ($cmd eq "rsave") {
          Storable::nstore { tree => $self->{tree}, curnode => $self->{curnode}, move => $self->{move} }, $arg;#d#
 }
 sub event_update_users {
    my ($self, $add, $update, $remove) = @_;
-   return unless $self->{userlist};
-   $self->{userlist}->update ($add, $update, $remove);
+#   $self->{userlist}->update ($add, $update, $remove);
+   $self->{users_inlay}->refresh;
    my %important;
    $important{$self->{user1}{name}}++;
    $important{$self->{user2}{name}}++;
    $important{$self->{user3}{name}}++;
    } elsif ($rules->{timesys} == TIMESYS_CANADIAN) {
       $text .= util::format_time $rules->{time};
       $text .= sprintf " + %s/%d CAN", util::format_time $rules->{interval}, $rules->{count};
    }
-   $inlay->clear;
    $inlay->append_text ("<infoblock>$text</infoblock>");
 }
 sub event_update_rules {
    my ($self, $rules) = @_;
    my $rules     = $challenge->{rules};
    my $as_black = $challenge->{user1}{name} eq $self->{conn}{name};
    my $opponent = $as_black ? $challenge->{user2} : $challenge->{user1};
-   $inlay->clear;
    $inlay->append_text ("\n<challenge>Challenge to <user>" . $opponent->as_string . "</user></challenge>");
    $inlay->append_text ("\nHandicap: $rules->{handicap}");
 #bless( (
 #                gametype => 3,
 #                                  name => 'Nerdamus'
 #                                }, 'KGS::User' )
 #              ), 'KGS::Challenge' )
 }
+sub draw_users {
+   my ($self, $inlay) = @_;
+   for (sort keys %{$self->{users}}) {
+      $inlay->append_text (" <user>" . $self->{users}{$_}->as_string . "</user>");
+   }
+}
 sub event_challenge {
    my ($self, $challenge) = @_;
    my $as_black = $challenge->{user1}{name} eq $self->{conn}{name};
    my $opponent = $as_black ? $challenge->{user2} : $challenge->{user1};

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing kgsueme/kgsueme/game.pl (file contents): Revision 1.87 by pcg, Fri May 21 15:32:02 2004 UTC vs. Revision 1.88 by pcg, Fri May 21 16:13:41 2004 UTC

Diff Legend

Comparing kgsueme/kgsueme/game.pl (file contents):
Revision 1.87 by pcg, Fri May 21 15:32:02 2004 UTC vs.
Revision 1.88 by pcg, Fri May 21 16:13:41 2004 UTC