| 1 | package Gtk2::GoBoard; |
1 | package Gtk2::GoBoard; |
| 2 | |
2 | |
| 3 | use Scalar::Util; |
3 | use Scalar::Util; |
| 4 | |
4 | |
|
|
5 | use KGS::Constants; |
|
|
6 | use KGS::Game::Board; |
|
|
7 | |
|
|
8 | use POSIX qw(ceil); |
|
|
9 | |
| 5 | use Gtk2; |
10 | use Gtk2; |
|
|
11 | |
| 6 | use Glib::Object::Subclass |
12 | use Glib::Object::Subclass |
| 7 | Gtk2::AspectFrame, |
13 | Gtk2::AspectFrame, |
| 8 | properties => [ |
14 | properties => [ |
| 9 | Glib::ParamSpec->IV ( |
15 | Glib::ParamSpec->IV ( |
| 10 | "size", |
16 | "size", |
| … | |
… | |
| 13 | 2, 38, 19, |
19 | 2, 38, 19, |
| 14 | [qw(construct-only writable readable)], |
20 | [qw(construct-only writable readable)], |
| 15 | ), |
21 | ), |
| 16 | ]; |
22 | ]; |
| 17 | |
23 | |
| 18 | use KGS::Constants; |
|
|
| 19 | use KGS::Game::Board; |
|
|
| 20 | |
|
|
| 21 | use POSIX qw(ceil); |
|
|
| 22 | |
|
|
| 23 | sub TRAD_WIDTH (){ 42.42 } # traditional board width |
24 | sub TRAD_WIDTH (){ 42.42 } # traditional board width |
| 24 | sub TRAD_HEIGHT (){ 45.45 } # traditional board height |
25 | sub TRAD_HEIGHT (){ 45.45 } # traditional board height |
| 25 | sub TRAD_SIZE_B (){ 2.18 } # traditional black stone size |
26 | sub TRAD_SIZE_B (){ 2.18 } # traditional black stone size |
| 26 | sub TRAD_SIZE_W (){ 2.12 } # traditional white stone size |
27 | sub TRAD_SIZE_W (){ 2.12 } # traditional white stone size |
| 27 | |
28 | |
