| … | |
… | |
| 23 | use GCE::DragHelper; |
23 | use GCE::DragHelper; |
| 24 | |
24 | |
| 25 | use Glib::Object::Subclass |
25 | use Glib::Object::Subclass |
| 26 | Gtk2::Window; |
26 | Gtk2::Window; |
| 27 | |
27 | |
| 28 | use strict; |
28 | use common::sense; |
| 29 | |
29 | |
| 30 | sub INIT_INSTANCE { |
30 | sub INIT_INSTANCE { |
| 31 | my ($self) = @_; |
31 | my ($self) = @_; |
| 32 | |
32 | |
| 33 | $self->{earchs} = editor_archs (); |
33 | $self->{earchs} = editor_archs; |
| 34 | |
34 | |
| 35 | for (keys %{$self->{earchs}}) { |
35 | while (my ($k, $v) = each %{ $self->{earchs} }) { |
| 36 | my @a = split /\//; |
36 | $k =~ /^([^\/]+)/ or next; |
| 37 | push @{$self->{toplevel_archs}->{$a[0]}}, @{$self->{earchs}->{$_}}; |
37 | push @{$self->{toplevel_archs}->{$1}}, @$v; |
| 38 | } |
38 | } |
| 39 | |
39 | |
| 40 | $self->set_title ("gce - picker"); |
40 | $self->set_title ("gce - picker"); |
| 41 | |
41 | |
| 42 | $self->add (my $hb = Gtk2::VBox->new); |
42 | $self->add (my $hb = Gtk2::VBox->new); |
