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

Comparing kgsueme/kgsueme/game.pl (file contents):
Revision 1.4 by pcg, Sat May 31 13:58:31 2003 UTC vs.
Revision 1.15 by pcg, Sun Jun 1 02:30:00 2003 UTC

 use base KGS::Listener::Game;
 use base KGS::Game;
 use base gtk::widget;
+use POSIX qw(ceil);
 sub new {
    my $self = shift;
    $self = $self->SUPER::new(@_);
    $self->listen($self->{conn});
    $self->{window} = new Gtk2::Window 'toplevel';
-   my $title = $self->{channel} ? $self->owner->{name}." ".$self->opponent_string : "Game Window";
+   my $title = $self->{channel} ? $self->owner->as_string." ".$self->opponent_string : "Game Window";
    $self->{window}->set_title("KGS Game $title");
    gtk::state $self->{window}, "game::window", undef, window_size => [600, 500];
    $self->{window}->signal_connect(delete_event => sub {
       if ($self->{joined}) {
    $self->{hpane}->pack1((my $vbox = new Gtk2::VBox), 1, 1);
    $vbox->pack_start((my $frame = new Gtk2::Frame), 0, 1, 0);
-   # grrr...
    {
+      # grrr...
       $frame->add(my $vbox = new Gtk2::VBox);
       $vbox->add($self->{title} = new Gtk2::Label $title);
-      $self->{moveadj} = new Gtk2::Adjustment 0, 0, 1, 0.01, 0.1, 0;
+      $self->{moveadj} = new Gtk2::Adjustment 1, 0, 1, 0.001, 0.05, 0;
       $vbox->add(my $scale = new Gtk2::HScale $self->{moveadj});
       $scale->set_draw_value (0);
       $self->{moveadj}->signal_connect (value_changed => sub {
          $self->{text}->set_text(KGS::Listener::Debug::dumpval([$self->{board}{time},$self->{board}{captures}]). $self->{board}{comment});
       });
    }
-   #Gtk2::Widget->push_visual (Gtk2::Gdk::Rgb->get_visual); #d# gdk_rgb_* not yet implemented(?)
-   #Gtk2::Widget->push_colormap (Gtk2::Gdk::Rgb->get_cmap);
    $vbox->pack_start(($self->{canvas} = new Gtk2::DrawingArea), 1, 1, 0);
-   #Gtk2::Widget->pop_colormap;
-   #Gtk2::Widget->pop_visual;
    $self->{canvas}->signal_connect(configure_event => \&configure_event, $self);
    $self->{canvas}->signal_connect(expose_event    => \&expose_event,    $self);
    $self->{hpane}->pack2(($self->{vpane} = new Gtk2::VPaned), 0, 0);
    $sw->add(($self->{userlist} = new gtk::userlist)->widget);
    $self->{vpane}->add(my $vbox = new Gtk2::VBox);
    $vbox->pack_start((my $sw = new Gtk2::ScrolledWindow), 1, 1, 0);
-   $sw->set_policy("automatic", "always");
+   $sw->set_policy("never", "always");
    $sw->add(($self->{text} = new gtk::text)->widget);
    $vbox->pack_start(($self->{entry} = new Gtk2::Entry), 0, 1, 0);
    $self->{entry}->signal_connect(activate => sub {
       my $text = $self->{entry}->get_text;
-      # add message
+      $self->say($text) if $text =~ /\S/;
       $self->{entry}->set_text("");
    });
    $self;
 }
    delete $self->{stack};
    delete $self->{pixbuf};
    delete $self->{board_shown};
    delete $self->{background};
    $self->repaint_board;
-   1;
+   0;
+}
+sub expose_event {
+   my ($widget, $event, $self) = @_;
+   $self->{pixbuf} or return;
+   my $area = $event->area;
+   my ($ox, $oy, $s) = @{$self->{offsets}};
+   $self->redraw (
+             (new Gtk2::Gdk::Rectangle $area->x - $ox, $area->y - $oy, $area->width, $area->height)
+                ->intersect(new Gtk2::Gdk::Rectangle 0, 0, $s, $s)
+          );
+   0;
 }
 # something Gtk2 fixed
 sub INTERP_NEAREST  (){ 'nearest'  }
 sub INTERP_TILES    (){ 'tiles'    }
       for my $stone ($mark & (MARK_W | MARK_GRAY_W) ? @::white_img : @::black_img) {
          my $base = new_pixbuf $size + $shadow, $size + $shadow, 1, 0x00000000;
          # zeroeth the shadow
          if ($mark & (MARK_B | MARK_W)) {
-            $::black_img[0]->composite (
+            $::shadow_img->composite (
-               $base, $shadow, $shadow, $size, $size, $shadow-0.5, $shadow-0.5,
+               $base, $shadow, $shadow, $size, $size, $shadow - 0.5, $shadow - 0.5,
                $size / $stone->get_width, $size / $stone->get_height,
-               $::config->{speed} ? INTERP_NEAREST : INTERP_BILINEAR, 128
+               $::config->{speed} ? INTERP_NEAREST : INTERP_BILINEAR, 192
             );
          }
          # first the big stones (handicap stones different for effect)
          for ([MARK_B,      $mark & MARK_MOVE ? 255 : 192],
               [MARK_GRAY_B, 128],
               [MARK_GRAY_W, 128]) {
             my ($mask, $alpha) = @$_;
             if ($mark & $mask) {
                $stone->composite (
-                  $base, 0, 0, $size, $size, -0.5, -0.5,
+                  $base, 0, 0, $size, $size, 0, 0,
                   $size / $stone->get_width, $size / $stone->get_height,
                   $::config->{speed} ? INTERP_NEAREST : INTERP_BILINEAR, $alpha
                );
             }
          }
-         # then the samll stones
+         # then the small stones
          for ([MARK_SMALL_B, $::black_img[$rand % @::black_img]],
               [MARK_SMALL_W, $::white_img[$rand % @::white_img]]) {
             my ($mask, $img) = @$_;
             if ($mark & $mask) {
                $img->composite (
-                  $base, ($size / 4) x2, (int ($size / 2 + 0.5)) x2, ($size / 4 - 0.5) x 2,
+                  $base, (ceil ($size / 4)) x2, (ceil ($size / 2)) x2, (ceil ($size / 4)) x2,
                   $size / $img->get_width / 2, $size / $img->get_height / 2,
-                  $::config->{speed} ? INTERP_NEAREST : INTERP_BILINEAR, 192
+                  $::config->{speed} ? INTERP_NEAREST : INTERP_BILINEAR, 224
                );
             }
          }
          # and lastly any markers
       $y -= $height * 0.5;
       for (@c) {
          my $w = $_->get_width * $s;
          $_->composite ($pixbuf,
-               $x, $y, $w+0.999, $height+0.999, $x, $y, $s, $s,
+               $x, $y, $w+1, $height+1, $x, $y, $s, $s,
                $::config->{speed} ? INTERP_NEAREST : INTERP_BILINEAR, 255);
          $x += $w + $spacing;
       }
    }
    return $expose_area unless $self->{board};
    my ($w, $h) = ($canvas->allocation->values)[2,3];
    my $s = $w > $h ? $h : $w;
+   return unless $s > 128;
    $self->{offsets} = [int (($w - $s) / 2), int (($h - $s) / 2), $s];
    my $size = $self->{size};
    my $border = int ($s / ($size + 3) * 0.5);
    my $s2     = $s - $border * 2;
-   my $edge   = int ($s2 / ($size + 1) * 0.95) - ($::config->{randomize} ? 3 : 0);
+   my $edge   = int ($s2 / ($size + 1) * 0.96) - ($::config->{randomize} ? 3 : 0);
    my $ofs    = int ($edge / 2);
    my @k = map int ($s2 * $_ / ($size+1) + $border + 0.5), 0 .. $size;
    my $pixbuf;
    if ($self->{background}) {
       if ($oldboard = $self->{board_shown}) {
          $pixbuf = $self->{pixbuf};
       } else {
          $pixbuf = $self->{background}->copy;
-         $expose_area = [0, 0, $s, $s];
+         $expose_area = new Gtk2::Gdk::Rectangle 0, 0, $s, $s;
       }
    } else {
-      $expose_area = [0, 0, $s, $s];
+      $expose_area = new Gtk2::Gdk::Rectangle 0, 0, $s, $s;
       my ($bw, $bh) = ($::board_img->get_width, $::board_img->get_height);
       if ($s < $bw && $s < $bh) {
          $pixbuf = new_pixbuf $s, $s, 0;
       $self->{canvas}->window->draw_rectangle ($self->{canvas}->style->black_gc, 0,
                          $x + $ox - 1, $y + $oy - 1, $w + 2, $h + 2) if $::DEBUG_EXPOSE;
    }
 }
-sub expose_event {
-   my ($widget, $event, $self) = @_;
-   $self->{pixbuf} or return;
-   my $area = $event->area;
-   my ($ox, $oy, $s) = @{$self->{offsets}};
-   $self->redraw (
-             (new Gtk2::Gdk::Rectangle $area->x - $ox, $area->y - $oy, $area->width, $area->height)
-                ->intersect(new Gtk2::Gdk::Rectangle 0, 0, $s, $s)
-          );
-   1;
-}
 sub event_update_tree {
    my ($self) = @_;
    $self->{path} = $self->get_path;
-   $self->{moveadj}->value_changed ();
+   $self->{moveadj}->value_changed if $self->{moveadj};
 }
 sub event_part {
    my ($self) = @_;
    $self->SUPER::event_part;

Diff Legend

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

Comparing kgsueme/kgsueme/game.pl (file contents): Revision 1.4 by pcg, Sat May 31 13:58:31 2003 UTC vs. Revision 1.15 by pcg, Sun Jun 1 02:30:00 2003 UTC

Diff Legend

Comparing kgsueme/kgsueme/game.pl (file contents):
Revision 1.4 by pcg, Sat May 31 13:58:31 2003 UTC vs.
Revision 1.15 by pcg, Sun Jun 1 02:30:00 2003 UTC