… | |
… | |
146 | my $w = $self->{width}; |
146 | my $w = $self->{width}; |
147 | my $h = $self->{height}; |
147 | my $h = $self->{height}; |
148 | |
148 | |
149 | my $pixmap = new Gtk2::Gdk::Pixmap $self->window, $w, $h, -1; |
149 | my $pixmap = new Gtk2::Gdk::Pixmap $self->window, $w, $h, -1; |
150 | |
150 | |
151 | my $gridcolour = 0x88444400; # black is traditional, but only with overlapping stones |
151 | #my $gridcolour = 0x88444400; # black is traditional, but only with overlapping stones |
|
|
152 | my $gridcolour = 0x44444400; # black is traditional, but only with overlapping stones |
152 | my $labelcolour = 0x88444400; |
153 | my $labelcolour = 0x88444400; |
153 | |
154 | |
154 | # we leave enough space for the shadows.. I like smaller stones, and we |
155 | # we leave enough space for the shadows.. I like smaller stones, and we |
155 | # do no need to do the nifty recursive screen updates that cgoban2 does |
156 | # do no need to do the nifty recursive screen updates that cgoban2 does |
156 | # TODO: smaller == buggy, want visual perfectness |
157 | # TODO: smaller == buggy, want visual perfectness |