| … | |
… | |
| 149 | |
149 | |
| 150 | my $arch = $cstack->[-1]; |
150 | my $arch = $cstack->[-1]; |
| 151 | |
151 | |
| 152 | # virtual... grmbl.... |
152 | # virtual... grmbl.... |
| 153 | # FIXME: I have to patch the stack of the real arch??? argl.. how?? |
153 | # FIXME: I have to patch the stack of the real arch??? argl.. how?? |
|
|
154 | my ($ox, $oy) = ($x, $y); |
| 154 | if ($arch->{_virtual}) { |
155 | if ($arch->{_virtual}) { |
| 155 | $x = $arch->{virtual_x}; |
156 | $x = $arch->{virtual_x}; |
| 156 | $y = $arch->{virtual_y}; |
157 | $y = $arch->{virtual_y}; |
| 157 | $arch = $arch->{_virtual}; |
158 | $arch = $arch->{_virtual}; |
| 158 | $cstack = $map->get ($x, $y); |
159 | $cstack = $map->get ($x, $y); |
| … | |
… | |
| 185 | # $map->{undo_stack_pos}++, 1e6, |
186 | # $map->{undo_stack_pos}++, 1e6, |
| 186 | # $changeset; |
187 | # $changeset; |
| 187 | # } |
188 | # } |
| 188 | # }); |
189 | # }); |
| 189 | |
190 | |
| 190 | $::MAINWIN->update_stack_view ($map, $x, $y); |
191 | $::MAINWIN->update_stack_view ($map, $ox, $oy); |
| 191 | } |
192 | } |
| 192 | |
193 | |
| 193 | sub end {} |
194 | sub end {} |
| 194 | |
195 | |
| 195 | package GCE::EditAction::Perl; |
196 | package GCE::EditAction::Perl; |
