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

Comparing kgsueme/bin/kgsueme (file contents):
Revision 1.4 by pcg, Wed May 28 23:40:41 2003 UTC vs.
Revision 1.11 by pcg, Thu May 29 12:19:10 2003 UTC

1#!/opt/bin/perl 1#!/usr/bin/perl -I../lib/
2 2
3use PApp::Util qw(dumpval); # debug only 3#use PApp::Util qw(dumpval); # debug only
4 4
5use Gtk; 5use Gtk;
6use Gtk::Gdk; 6use Gtk::Gdk;
7#use Gtk::Gdk::Pixbuf;
8use Gtk::Gdk::ImlibImage;
9
10use Gnome;
7 11
8use KGS::Protocol; 12use KGS::Protocol;
9use KGS::Listener::Debug; 13use KGS::Listener::Debug;
10 14
11use IO::Socket::INET; 15use IO::Socket::INET;
12 16
13use Errno; 17use Errno;
14 18
15init Gtk; 19init Gnome "kgsueme";
16 20
17$HACK = 1; # do NEVER enable. ;) 21$HACK = 1; # do NEVER enable. ;)
18 22
19our $config; 23our $config;
24our $IMGDIR = "images";
25
26sub load_img {
27# new_from_file Gtk::Gdk::Pixbuf "$IMGDIR/$_[0]"
28 load_image Gtk::Gdk::ImlibImage "$IMGDIR/$_[0]"
29 or die "$IMGDIR/$_[0]: $!";
30}
31
32our @black_img = load_img "b-01.png";
33our @white_img = map +(load_img "w-0$_.png"), 1,2,3,4,5;
34our $board_img = load_img "woodgrain-01.jpg";
20 35
21{ 36{
22 use Storable (); 37 use Storable ();
23 use Scalar::Util (); 38 use Scalar::Util ();
24 39
… …
71 86
72 sub save_state { 87 sub save_state {
73 for (@widgets) { 88 for (@widgets) {
74 if ($_->[0]) { 89 if ($_->[0]) {
75 my ($widget, $class, $instance, $attr) = @$_; 90 my ($widget, $class, $instance, $attr) = @$_;
91
92 $widget->realize;
93
76 while (my ($k, $v) = each %$attr) { 94 while (my ($k, $v) = each %$attr) {
77 my ($set, $get) = $k =~ /=/ ? split /=/, $k : ($k, $k); 95 my ($set, $get) = $k =~ /=/ ? split /=/, $k : ($k, $k);
78 $v = $get{$get} ? $get{$get}->($widget) : $widget->get($get); 96 $v = $get{$get} ? $get{$get}->($widget) : $widget->get($get);
79 97
80 $state->{$class}{"*"}{$get} = $v; 98 $state->{$class}{"*"}{$get} = $v;
… …
142 $self->{roomlist} = new roomlist conn => $self->{conn}; 160 $self->{roomlist} = new roomlist conn => $self->{conn};
143 161
144 $self->{window} = new Gtk::Window 'toplevel'; 162 $self->{window} = new Gtk::Window 'toplevel';
145 $self->{window}->set_title('kgsueme'); 163 $self->{window}->set_title('kgsueme');
146 ::state $self->{window}, "main::window", undef, window_size => [400, 100]; 164 ::state $self->{window}, "main::window", undef, window_size => [400, 100];
147 $self->{window}->signal_connect(delete_event => sub { main_quit Gtk }); 165 $self->{window}->signal_connect(delete_event => sub { main_quit Gtk; 1 });
148 166
149 $self->{window}->add(my $vbox = new Gtk::VBox); 167 $self->{window}->add(my $vbox = new Gtk::VBox);
150 168
151 $vbox->pack_start(($buttonbox = new Gtk::HButtonBox), 0, 1, 0); 169 $vbox->pack_start(($buttonbox = new Gtk::HButtonBox), 0, 1, 0);
152 $buttonbox->set_spacing(0); 170 $buttonbox->set_spacing(0);
… …
244 262
245 $self->{window} = new Gtk::Window 'toplevel'; 263 $self->{window} = new Gtk::Window 'toplevel';
246 $self->{window}->set_title('KGS Rooms'); 264 $self->{window}->set_title('KGS Rooms');
247 ::state $self->{window}, "roomlist::window", undef, window_size => [400, 200]; 265 ::state $self->{window}, "roomlist::window", undef, window_size => [400, 200];
248 266
249 $self->{window}->signal_connect(delete_event => sub { hide $self->{window} }); 267 $self->{window}->signal_connect(delete_event => sub { $self->{window}->hide; 1 });
250 268
251 $self->{window}->add(my $vbox = new Gtk::VBox); 269 $self->{window}->add(my $vbox = new Gtk::VBox);
252 270
253 $vbox->pack_start((my $sw = new Gtk::ScrolledWindow), 1, 1, 0); 271 $vbox->pack_start((my $sw = new Gtk::ScrolledWindow), 1, 1, 0);
254 $sw->set_policy("automatic", "always"); 272 $sw->set_policy("automatic", "always");
… …
280 298
281 $self->msg(list_rooms => group => $_) for 0..5; # fetch all room names (should not!) 299 $self->msg(list_rooms => group => $_) for 0..5; # fetch all room names (should not!)
282 $self->{window}->show_all; 300 $self->{window}->show_all;
283} 301}
284 302
285sub event_update { 303sub event_update_rooms {
286 my ($self) = @_; 304 my ($self) = @_;
287 305
288 $self->{event_update} ||= Gtk->timeout_add(200, sub { 306 $self->{event_update} ||= Gtk->timeout_add(200, sub {
289 my $l = $self->{roomlist}; 307 my $l = $self->{roomlist};
290 308
… …
320 338
321 $self->{window} = new Gtk::Window 'toplevel'; 339 $self->{window} = new Gtk::Window 'toplevel';
322 $self->{window}->set_title("KGS Room $self->{name}"); 340 $self->{window}->set_title("KGS Room $self->{name}");
323 ::state $self->{window}, "room::window", $self->{name}, window_size => [600, 400]; 341 ::state $self->{window}, "room::window", $self->{name}, window_size => [600, 400];
324 342
325 $self->{window}->signal_connect(delete_event => sub { $self->part }); 343 $self->{window}->signal_connect(delete_event => sub { $self->part; 1 });
326 344
327 $self->{window}->add(my $hpane = new Gtk::HPaned); 345 $self->{window}->add(my $hpane = new Gtk::HPaned);
328 ::state $hpane, "room::hpane", $self->{name}, hpane_position => 200; 346 ::state $hpane, "room::hpane", $self->{name}, hpane_position => 200;
329 347
330 $hpane->add(my $vpane = new Gtk::VPaned); 348 $hpane->add(my $vpane = new Gtk::VPaned);
… …
367 ::state $self->{userlist}, "room::userlist", $self->{name}, clist_column_widths => [120, 30]; 385 ::state $self->{userlist}, "room::userlist", $self->{name}, clist_column_widths => [120, 30];
368 386
369 $self; 387 $self;
370} 388}
371 389
372sub event_update { 390sub event_update_users {
373 my ($self) = @_; 391 my ($self) = @_;
374 392
375 $self->{event_update} ||= Gtk->timeout_add(200, sub { 393 $self->{event_update} ||= Gtk->timeout_add(200, sub {
376 my $l = $self->{userlist}; 394 my $l = $self->{userlist};
377 395
… …
442} 460}
443 461
444sub event_update_roominfo { 462sub event_update_roominfo {
445 my ($self) = @_; 463 my ($self) = @_;
446 464
447 $self->{text}->insert(undef, undef, undef, "$self->{owner}: $self->{description}\n\n"); 465 $self->{text}->insert(undef, undef, undef, "\n$self->{owner}: $self->{description}\n");
448} 466}
449 467
450sub inject_msg_room { 468sub inject_msg_room {
451 my ($self, $msg) = @_; 469 my ($self, $msg) = @_;
452 return unless $self->{channel} == $msg->{channel}; 470 return unless $self->{channel} == $msg->{channel};
453 471
454 $self->{text}->insert(undef, undef, undef, "$msg->{name}: $msg->{message}\n"); 472 $self->{text}->insert(undef, undef, undef, "\n$msg->{name}: $msg->{message}");
455} 473}
456 474
457############################################################################# 475#############################################################################
458 476
459package game; 477package game;
478
479use KGS::Constants;
480use KGS::Game::Board;
460 481
461use base KGS::Listener::Game; 482use base KGS::Listener::Game;
462use base KGS::Game; 483use base KGS::Game;
463 484
464sub new { 485sub new {
… …
469 490
470 $self->{window} = new Gtk::Window 'toplevel'; 491 $self->{window} = new Gtk::Window 'toplevel';
471 $self->{window}->set_title("KGS Game ".$self->user0." ".$self->user1); 492 $self->{window}->set_title("KGS Game ".$self->user0." ".$self->user1);
472 ::state $self->{window}, "game::window", undef, window_size => [600, 500]; 493 ::state $self->{window}, "game::window", undef, window_size => [600, 500];
473 494
474 $self->{window}->signal_connect(delete_event => sub { $self->part }); 495 $self->{window}->signal_connect(delete_event => sub { $self->part; 1 });
475 496
476 $self->{window}->add(my $hpane = new Gtk::HPaned); 497 $self->{window}->add(my $hpane = new Gtk::HPaned);
477 ::state $hpane, "game::hpane", undef, hpane_position => 500; 498 ::state $hpane, "game::hpane", undef, hpane_position => 500;
478 499
479 $hpane->add(my $board = new Gtk::Table $self->{size}, $self->{size}, 1); 500 $::config{aa} = 0;
501 $self->{canvas} = $::config{aa} ? new_aa Gnome::Canvas : new Gnome::Canvas;
502 $hpane->pack1($self->{canvas}, 1, 1);
480 503
481 for my $x (0 .. $self->{size} - 1) { 504 {
505 my $line_colour = $::config{line_colour} || "darkbrown";
506 my $border = 0.1;
507 my $ofs = 0.5 / $self->{size};
508
509 $self->{canvas}->set_pixels_per_unit(1000);
510 $self->{canvas}->set_scroll_region(-$border,-$border,1+$border,1+$border);
511
512 $self->{canvas}->signal_connect(size_allocate => sub {
513 my ($w, $h) = @{$_[1]}[2,3];
514
515 $self->{canvas}->set_pixels_per_unit(($w > $h ? $h : $w)/(1+$border*2));
516
517 1;
518 });
519
520 my $croot = $self->{canvas}->root;
521 my $cgroup = $croot; #->new($croot, "Gnome::CanvasGroup");
522
523 if ($::board_img) {
524 $cgroup->new($cgroup, "Gnome::CanvasImage",
525 x => -$border, y => -$border,
526 width => 1+$border*2, height => 1+$border*2,
527 image => $::board_img,
528 anchor => "nw"
529 );
530 } else {
531 $cgroup->new($cgroup, "Gnome::CanvasRect",
532 x1 => -$border, x2 => 1+$border,
533 y1 => -$border, y2 => 1+$border,
534 outline_color => "black",
535 fill_color => "brown",
536 width_pixels => 2,
537 );
538 }
539
540 my $a = "A";
541 for my $i (1 .. $self->{size}) { # one more iteration for the last lines
542 my $k = $i / $self->{size} - $ofs;
543
544 $cgroup->new($cgroup, "Gnome::CanvasLine",
545 points => [ $k,$ofs, $k,1-$ofs ],
546 fill_color => $line_colour,
547 width_pixels => 1);
548
549 $cgroup->new($cgroup, "Gnome::CanvasLine",
550 points => [ $ofs,$k, 1-$ofs,$k ],
551 fill_color => $line_colour,
552 width_pixels => 1);
553
554 for ( [$k,-$border*0.5,$a], [$k,1+$border*0.5,$a],
555 [-$border*0.5,$k,$self->{size} - $i + 1], [1+$border*0.5,$k,$self->{size} - $i + 1] ) {
556 my ($x, $y, $text) = @$_;
557
558 my $text = $cgroup->new($cgroup, "Gnome::CanvasText",
559 x => 0, y => 0, text => $text,
560 justification => "center",
561 anchor => "center",
562 font => $::config{aa} ? "-*-helvetica-medium-r-*--34-*" : "-*-helvetica-bold-r-*--17-*",
563 fill_color => $line_colour);
564
565 $text->affine_relative($border*0.015,0, 0,$border*0.015, $x,$y);
566 }
567
568 $a++;
569 $a++ if $a eq "I";
570 }
571
572 my $stones = [[]];
573
482 for my $y (0 .. $self->{size} - 1) { 574 for my $x (1 .. $self->{size}) {
483 my $cell = new Gtk::Label; 575 my $xk = $x / $self->{size} - $ofs;
484 $board->attach_defaults($cell, $x, $x + 1, $y, $y + 1); 576 for my $y (1 .. $self->{size}) {
485 $self->{board}[$x][$y] = $cell; 577 my $yk = $y / $self->{size} - $ofs;
578
579 my $col = $stones->[$x-1][$y-1] = [];
580
581 if (1) {
582 $col->[0] =
583 $cgroup->new($cgroup, "Gnome::CanvasImage",
584 x => $xk, y => $yk,
585 width => $ofs*2, height => $ofs*2,
586 image => $::black_img[int rand @::black_img],
587 anchor => "center");
588 $col->[1] =
589 $cgroup->new($cgroup, "Gnome::CanvasImage",
590 x => $xk, y => $yk,
591 width => $ofs*2, height => $ofs*2,
592 image => $::white_img[int rand @::white_img],
593 anchor => "center");
594 } else {
595 die "need pixmaps\n";
596 # too large, scale has NO effect
597 $col->[0] =
598 $cgroup->new($cgroup, "Gnome::CanvasEllipse",
599 x1 => $xk, x2 => $xk + 0.001,
600 y1 => $yk, y2 => $yk + 0.001,
601 outline_color => "black", width_pixels => 2,
602 fill_color => "black");
603 $col->[1] =
604 $cgroup->new($cgroup, "Gnome::CanvasEllipse",
605 x1 => $xk, x2 => $xk + 0.001,
606 y1 => $yk, y2 => $yk + 0.001,
607 outline_color => "black", width_pixels => 2,
608 fill_color => "white");
609 }
486 } 610 }
487 } 611 }
488 612
613 $self->{board_gfx}{stones} = $stones;
614 }
615
489 $hpane->add(my $vpane = new Gtk::VPaned); 616 $hpane->pack2((my $vpane = new Gtk::VPaned), 0, 0);
490 ::state $vpane, "game", $self->{name}, vpane_position => 80; 617 ::state $vpane, "game", $self->{name}, vpane_position => 80;
491 618
492 $vpane->add(my $sw = new Gtk::ScrolledWindow); 619 $vpane->add(my $sw = new Gtk::ScrolledWindow);
493 $sw->set_policy("automatic", "always"); 620 $sw->set_policy("automatic", "always");
494 621
… …
511 }); 638 });
512 639
513 $self; 640 $self;
514} 641}
515 642
516sub event_update { 643sub event_update_users {
517 my ($self) = @_; 644 my ($self) = @_;
518 645
519 $self->{event_update} ||= Gtk->timeout_add(200, sub { 646 room::event_update_users $self;
520 my $l = $self->{userlist};
521
522 $l->freeze;
523 my $pos = $l->get_vadjustment->get_value;
524 $l->clear;
525
526 my $row = 0;
527 for (values %{$self->{users}}) {
528 $l->append($_->{name});
529 $l->set_row_data($row++, $_);
530 }
531 $l->sort;
532 $l->get_vadjustment->set_value($pos);
533 $l->thaw;
534
535 delete $self->{event_update};
536 0;
537 });
538} 647}
539 648
540sub join { 649sub join {
541 my ($self) = @_; 650 my ($self) = @_;
542 $self->SUPER::join; 651 $self->SUPER::join;
… …
546 655
547sub part { 656sub part {
548 my ($self) = @_; 657 my ($self) = @_;
549 $self->SUPER::part; 658 $self->SUPER::part;
550 659
551 $self->{window}->hide_all; 660 $self->{window}->hide;
552 $self->event_update;
553} 661}
554 662
555sub event_update_tree { 663sub event_update_tree {
556 my ($self) = @_; 664 my ($self) = @_;
665
666 my $board = new KGS::Game::Board $self->{size};
667 $board->interpret_path ($self->get_path);
557 668
558 for my $x (0 .. $self->{size} - 1) { 669 for my $x (0 .. $self->{size} - 1) {
559 for my $y (0 .. $self->{size} - 1) { 670 for my $y (0 .. $self->{size} - 1) {
560 $self->{board}[$x][$y]->set_text(""); 671 my $v = $board->{board}[$x][$y];
561 }
562 }
563 672
564 for (0..$self->{node}) { 673 $v & MARK_B
565 while (my ($k, $v) = each %{$self->{tree}[$_]}) { 674 ? $self->{board_gfx}->{stones}->[$x][$y][0]->show
566 if ($k eq "move7") { 675 : $self->{board_gfx}->{stones}->[$x][$y][0]->hide;
567 if ($v->[1] < 255) { 676 $v & MARK_W
568 $self->{board}[$v->[1]][$v->[2]]->set_text(("X", "O", "-")[$v->[0]]); 677 ? $self->{board_gfx}->{stones}->[$x][$y][1]->show
569 } 678 : $self->{board_gfx}->{stones}->[$x][$y][1]->hide;
570 } 679 }
571 }
572 } 680 }
681
682 $self->{text}->backward_delete($self->{text}->get_length);
683 $self->{text}->insert(undef, undef, undef, $board->{comment}.PApp::Util::dumpval([$board->{time},$board->{captures}]));
573} 684}
574 685
5751; 6861;
576 687
577 688

Diff Legend

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