| … | |
… | |
| 18 | gtk::state $self->{window}, "game::window", undef, window_size => [600, 500]; |
18 | gtk::state $self->{window}, "game::window", undef, window_size => [600, 500]; |
| 19 | |
19 | |
| 20 | $self->{window}->signal_connect(delete_event => sub { $self->part; 1 }); |
20 | $self->{window}->signal_connect(delete_event => sub { $self->part; 1 }); |
| 21 | |
21 | |
| 22 | $self->{window}->add(my $hpane = new Gtk2::HPaned); |
22 | $self->{window}->add(my $hpane = new Gtk2::HPaned); |
| 23 | gtk::state $hpane, "game::hpane", undef, hpane_position => 500; |
23 | gtk::state $hpane, "game::hpane", undef, position => 500; |
| 24 | |
24 | |
| 25 | $hpane->pack1((my $vbox = new Gtk2::VBox), 1, 1); |
25 | $hpane->pack1((my $vbox = new Gtk2::VBox), 1, 1); |
| 26 | |
26 | |
| 27 | $vbox->pack_start((my $frame = new Gtk2::Frame), 0, 1, 0); |
27 | $vbox->pack_start((my $frame = new Gtk2::Frame), 0, 1, 0); |
| 28 | |
28 | |
| … | |
… | |
| 58 | |
58 | |
| 59 | $self->{canvas}->signal_connect(configure_event => \&configure_event, $self); |
59 | $self->{canvas}->signal_connect(configure_event => \&configure_event, $self); |
| 60 | $self->{canvas}->signal_connect(expose_event => \&expose_event, $self); |
60 | $self->{canvas}->signal_connect(expose_event => \&expose_event, $self); |
| 61 | |
61 | |
| 62 | $hpane->pack2((my $vpane = new Gtk2::VPaned), 0, 0); |
62 | $hpane->pack2((my $vpane = new Gtk2::VPaned), 0, 0); |
|
|
63 | $hpane->set(position_set => 1); |
| 63 | gtk::state $vpane, "game", $self->{name}, vpane_position => 80; |
64 | gtk::state $vpane, "game", $self->{name}, position => 80; |
| 64 | |
65 | |
| 65 | $vpane->add(my $sw = new Gtk2::ScrolledWindow); |
66 | $vpane->add(my $sw = new Gtk2::ScrolledWindow); |
| 66 | $sw->set_policy("automatic", "always"); |
67 | $sw->set_policy("automatic", "always"); |
| 67 | |
68 | |
| 68 | if (0) { |
69 | if (0) { |
| … | |
… | |
| 418 | |
419 | |
| 419 | my $area = $event->area; |
420 | my $area = $event->area; |
| 420 | my ($ox, $oy, $s) = @{$self->{offsets}}; |
421 | my ($ox, $oy, $s) = @{$self->{offsets}}; |
| 421 | |
422 | |
| 422 | $self->redraw ( |
423 | $self->redraw ( |
| 423 | (new Gtk2::Gdk::Rectangle $area->x - $ox, $area->x - $oy, $area->width, $area->height) |
424 | (new Gtk2::Gdk::Rectangle $area->x - $ox, $area->y - $oy, $area->width, $area->height) |
| 424 | ->intersect(new Gtk2::Gdk::Rectangle 0, 0, $s, $s) |
425 | ->intersect(new Gtk2::Gdk::Rectangle 0, 0, $s, $s) |
| 425 | ); |
426 | ); |
| 426 | |
427 | |
| 427 | 1; |
428 | 1; |
| 428 | } |
429 | } |
