… | |
… | |
22 | sub INIT_INSTANCE { |
22 | sub INIT_INSTANCE { |
23 | my ($self) = @_; |
23 | my ($self) = @_; |
24 | |
24 | |
25 | $self->pack_start (my $sw = Gtk2::ScrolledWindow->new, 1, 1, 0); |
25 | $self->pack_start (my $sw = Gtk2::ScrolledWindow->new, 1, 1, 0); |
26 | $sw->add_with_viewport ($self->{stackbox} = Gtk2::VBox->new); |
26 | $sw->add_with_viewport ($self->{stackbox} = Gtk2::VBox->new); |
|
|
27 | $sw->set_policy ('automatic', 'automatic'); |
27 | } |
28 | } |
28 | |
29 | |
29 | sub set_stack { |
30 | sub set_stack { |
30 | my ($self, $mapedit, $x, $y) = @_; |
31 | my ($self, $mapedit, $x, $y) = @_; |
31 | |
32 | |