| … | |
… | |
| 139 | } |
139 | } |
| 140 | |
140 | |
| 141 | sub open_pick_window { |
141 | sub open_pick_window { |
| 142 | my ($self, $layout) = @_; |
142 | my ($self, $layout) = @_; |
| 143 | |
143 | |
| 144 | # XXX: Yes, also fix this, save _every_ pick window and their posistions and their |
144 | # XXX: Yes, also fix this, save _every_ pick window and their positions and their |
| 145 | # selection |
145 | # selection |
| 146 | my $p = GCE::PickWindow->new (); |
146 | my $p = GCE::PickWindow->new (); |
| 147 | |
147 | |
| 148 | push @{$self->{open_pick_windows}}, $p; |
148 | push @{$self->{open_pick_windows}}, $p; |
| 149 | |
149 | |
| … | |
… | |
| 310 | $self->{pick_view_img}->set_from_pixbuf ($self->{pick_view_pb}); |
310 | $self->{pick_view_img}->set_from_pixbuf ($self->{pick_view_pb}); |
| 311 | |
311 | |
| 312 | $self->{pick_view_lbl}->set_text ($arch->{_name}); |
312 | $self->{pick_view_lbl}->set_text ($arch->{_name}); |
| 313 | } |
313 | } |
| 314 | |
314 | |
| 315 | |
|
|
| 316 | sub INIT_INSTANCE { |
315 | sub INIT_INSTANCE { |
| 317 | my ($self) = @_; |
316 | my ($self) = @_; |
| 318 | |
317 | |
| 319 | $::MAINWIN = $self; |
318 | $::MAINWIN = $self; |
| 320 | |
319 | |
