| … | |
… | |
| 497 | $self->{window}->add(my $hpane = new Gtk::HPaned); |
497 | $self->{window}->add(my $hpane = new Gtk::HPaned); |
| 498 | ::state $hpane, "game::hpane", undef, hpane_position => 500; |
498 | ::state $hpane, "game::hpane", undef, hpane_position => 500; |
| 499 | |
499 | |
| 500 | $::config{aa} = 0; |
500 | $::config{aa} = 0; |
| 501 | $self->{canvas} = $::config{aa} ? new_aa Gnome::Canvas : new Gnome::Canvas; |
501 | $self->{canvas} = $::config{aa} ? new_aa Gnome::Canvas : new Gnome::Canvas; |
| 502 | $hpane->add($self->{canvas}); |
502 | $hpane->pack1($self->{canvas}, 1, 1); |
| 503 | |
503 | |
| 504 | { |
504 | { |
| 505 | my $line_colour = $::config{line_colour} || "darkbrown"; |
505 | my $line_colour = $::config{line_colour} || "darkbrown"; |
| 506 | my $border = 0.1; |
506 | my $border = 0.1; |
| 507 | my $ofs = 0.5 / $self->{size}; |
507 | my $ofs = 0.5 / $self->{size}; |
| … | |
… | |
| 549 | $cgroup->new($cgroup, "Gnome::CanvasLine", |
549 | $cgroup->new($cgroup, "Gnome::CanvasLine", |
| 550 | points => [ $ofs,$k, 1-$ofs,$k ], |
550 | points => [ $ofs,$k, 1-$ofs,$k ], |
| 551 | fill_color => $line_colour, |
551 | fill_color => $line_colour, |
| 552 | width_pixels => 1); |
552 | width_pixels => 1); |
| 553 | |
553 | |
| 554 | for ( [$k,-$border*0.5,$a], [$k,1+$border*0.5,$a], [-$border*0.5,$k,$i], [1+$border*0.5,$k,$i] ) { |
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] ) { |
| 555 | my ($x, $y, $text) = @$_; |
556 | my ($x, $y, $text) = @$_; |
| 556 | |
557 | |
| 557 | my $text = $cgroup->new($cgroup, "Gnome::CanvasText", |
558 | my $text = $cgroup->new($cgroup, "Gnome::CanvasText", |
| 558 | x => 0, y => 0, text => $text, |
559 | x => 0, y => 0, text => $text, |
| 559 | justification => "center", |
560 | justification => "center", |
| … | |
… | |
| 563 | |
564 | |
| 564 | $text->affine_relative($border*0.015,0, 0,$border*0.015, $x,$y); |
565 | $text->affine_relative($border*0.015,0, 0,$border*0.015, $x,$y); |
| 565 | } |
566 | } |
| 566 | |
567 | |
| 567 | $a++; |
568 | $a++; |
|
|
569 | $a++ if $a eq "I"; |
| 568 | } |
570 | } |
| 569 | |
571 | |
| 570 | my $stones = [[]]; |
572 | my $stones = [[]]; |
| 571 | |
573 | |
| 572 | for my $x (1 .. $self->{size}) { |
574 | for my $x (1 .. $self->{size}) { |
| … | |
… | |
| 609 | } |
611 | } |
| 610 | |
612 | |
| 611 | $self->{board_gfx}{stones} = $stones; |
613 | $self->{board_gfx}{stones} = $stones; |
| 612 | } |
614 | } |
| 613 | |
615 | |
| 614 | $hpane->add(my $vpane = new Gtk::VPaned); |
616 | $hpane->pack2((my $vpane = new Gtk::VPaned), 0, 0); |
| 615 | ::state $vpane, "game", $self->{name}, vpane_position => 80; |
617 | ::state $vpane, "game", $self->{name}, vpane_position => 80; |
| 616 | |
618 | |
| 617 | $vpane->add(my $sw = new Gtk::ScrolledWindow); |
619 | $vpane->add(my $sw = new Gtk::ScrolledWindow); |
| 618 | $sw->set_policy("automatic", "always"); |
620 | $sw->set_policy("automatic", "always"); |
| 619 | |
621 | |
