| … | |
… | |
| 92 | $GCE::MainWindow::MAINWIN->update_stack_view ($map, $x, $y); |
92 | $GCE::MainWindow::MAINWIN->update_stack_view ($map, $x, $y); |
| 93 | } |
93 | } |
| 94 | |
94 | |
| 95 | package GCE::EditAction::Place; |
95 | package GCE::EditAction::Place; |
| 96 | |
96 | |
|
|
97 | use GCE::Util; |
|
|
98 | |
| 97 | our @ISA = qw/GCE::EditAction/; |
99 | our @ISA = qw/GCE::EditAction/; |
| 98 | |
100 | |
| 99 | sub want_cursor { 0 } |
101 | sub want_cursor { 0 } |
| 100 | |
102 | |
| 101 | sub begin { |
103 | sub begin { |
| … | |
… | |
| 123 | my $pick = $GCE::MainWindow::MAINWIN->get_pick; |
125 | my $pick = $GCE::MainWindow::MAINWIN->get_pick; |
| 124 | my $as = $map->get ($x, $y); |
126 | my $as = $map->get ($x, $y); |
| 125 | |
127 | |
| 126 | my $arch = { _name => $pick->{_name} }; |
128 | my $arch = { _name => $pick->{_name} }; |
| 127 | |
129 | |
|
|
130 | $map->set ($x, $y, insert_arch_stack_layer ($as, $arch)); |
| 128 | push @$as, $arch |
131 | # push @$as, $arch |
| 129 | unless @$as && $as->[-1]->{_name} eq $arch->{_name}; |
132 | # unless @$as && $as->[-1]->{_name} eq $arch->{_name}; |
| 130 | |
133 | |
| 131 | $map->set ($x, $y, $as); |
134 | #$map->set ($x, $y, $as); |
| 132 | } |
135 | } |
| 133 | } |
136 | } |
| 134 | |
137 | |
| 135 | package GCE::EditAction::Erase; |
138 | package GCE::EditAction::Erase; |
| 136 | |
139 | |
