… | |
… | |
131 | my ($self) = @_; |
131 | my ($self) = @_; |
132 | |
132 | |
133 | my $vb = new Gtk2::VBox; |
133 | my $vb = new Gtk2::VBox; |
134 | $self->{widget} = $vb; |
134 | $self->{widget} = $vb; |
135 | } |
135 | } |
|
|
136 | |
|
|
137 | # Pick does not change the stack |
|
|
138 | sub begin {} |
|
|
139 | sub end {} |
136 | |
140 | |
137 | sub edit { |
141 | sub edit { |
138 | my ($self, $map, $x, $y) = @_; |
142 | my ($self, $map, $x, $y) = @_; |
139 | |
143 | |
140 | my $cstack = $map->get ($x, $y); |
144 | my $cstack = $map->get ($x, $y); |
… | |
… | |
170 | ); |
174 | ); |
171 | |
175 | |
172 | $::MAINWIN->update_attr_editor ($aref); |
176 | $::MAINWIN->update_attr_editor ($aref); |
173 | $::MAINWIN->update_stack_view ($map, $ox, $oy); |
177 | $::MAINWIN->update_stack_view ($map, $ox, $oy); |
174 | } |
178 | } |
175 | |
|
|
176 | sub end {} |
|
|
177 | |
179 | |
178 | package GCE::EditAction::Perl; |
180 | package GCE::EditAction::Perl; |
179 | |
181 | |
180 | use GCE::Util; |
182 | use GCE::Util; |
181 | use Gtk2; |
183 | use Gtk2; |