… | |
… | |
73 | }); |
73 | }); |
74 | }; |
74 | }; |
75 | |
75 | |
76 | $hb->pack_start (my $elemhdl = new Gtk2::Button, 0, 0, 0); |
76 | $hb->pack_start (my $elemhdl = new Gtk2::Button, 0, 0, 0); |
77 | $elemhdl->add (my $hb2 = Gtk2::HBox->new); |
77 | $elemhdl->add (my $hb2 = Gtk2::HBox->new); |
|
|
78 | $elemhdl->signal_connect (clicked => sub { |
|
|
79 | $::MAINWIN->update_attr_editor ($a, sub { |
|
|
80 | $mapedit->change_begin (ref $self); |
|
|
81 | $mapedit->change_stack ($x, $y, $stack); |
|
|
82 | # XXX: Put this into a generic function!!! See also EditTools.pm |
|
|
83 | # FIXME: Fix the automatic update on undo here! |
|
|
84 | if (my $changeset = $mapedit->change_end) { |
|
|
85 | splice @{ $mapedit->{undo_stack} ||= [] }, |
|
|
86 | $mapedit->{undo_stack_pos}++, 1e6, |
|
|
87 | $changeset; |
|
|
88 | } |
|
|
89 | }); |
|
|
90 | }); |
78 | |
91 | |
79 | $hb2->pack_start (my $img = (new_from_pixbuf Gtk2::Image $pb), 0, 0, 0); |
92 | $hb2->pack_start (my $img = (new_from_pixbuf Gtk2::Image $pb), 0, 0, 0); |
80 | $img->set_alignment (0, 0.5); |
93 | $img->set_alignment (0, 0.5); |
81 | |
94 | |
82 | $hb2->pack_start (my $lbl = Gtk2::Label->new ($a->{_name}), 0, 0, 0); |
95 | $hb2->pack_start (my $lbl = Gtk2::Label->new ($a->{_name}), 0, 0, 0); |