| … | |
… | |
| 38 | $w->add (my $hb = Gtk2::VBox->new); |
38 | $w->add (my $hb = Gtk2::VBox->new); |
| 39 | |
39 | |
| 40 | $hb->pack_start (my $cb = Gtk2::ComboBox->new_text, 0, 1, 0); |
40 | $hb->pack_start (my $cb = Gtk2::ComboBox->new_text, 0, 1, 0); |
| 41 | |
41 | |
| 42 | for (sort keys %{$self->{toplevel_archs}}) { |
42 | for (sort keys %{$self->{toplevel_archs}}) { |
|
|
43 | |
| 43 | $cb->append_text ($_); |
44 | $cb->append_text ($_); |
| 44 | } |
45 | } |
| 45 | |
46 | |
| 46 | $cb->signal_connect (changed => sub { |
47 | $cb->signal_connect (changed => sub { |
| 47 | |
48 | |
| … | |
… | |
| 50 | arch2pickmap |
51 | arch2pickmap |
| 51 | sort { |
52 | sort { |
| 52 | ${$a}->{_name} cmp ${$b}->{_name} |
53 | ${$a}->{_name} cmp ${$b}->{_name} |
| 53 | } $self->{toplevel_archs}->{$arch} |
54 | } $self->{toplevel_archs}->{$arch} |
| 54 | ); |
55 | ); |
|
|
56 | |
|
|
57 | $self->{map}->enable_tooltip; |
| 55 | }); |
58 | }); |
| 56 | |
59 | |
| 57 | $hb->pack_start (my $map = $self->{map} = new Crossfire::MapWidget, 1, 1, 0); |
60 | $hb->pack_start (my $map = $self->{map} = new Crossfire::MapWidget, 1, 1, 0); |
| 58 | $map->signal_connect (button_press_event => sub { |
61 | $map->signal_connect (button_press_event => sub { |
| 59 | my ($f, $event) = @_; |
62 | my ($f, $event) = @_; |
