… | |
… | |
148 | |
148 | |
149 | $::MAINWIN->set_pick ($arch) |
149 | $::MAINWIN->set_pick ($arch) |
150 | if @$cstack && $btn == 1; |
150 | if @$cstack && $btn == 1; |
151 | |
151 | |
152 | $::MAINWIN->update_attr_editor ($arch, sub { |
152 | $::MAINWIN->update_attr_editor ($arch, sub { |
153 | my ($arch) = @_; |
153 | $map->change_begin (ref $self); |
154 | print "UPD: $arch\n"; #d# |
|
|
155 | |
|
|
156 | $map->change_stack ($x, $y, $cstack); |
154 | $map->change_stack ($x, $y, $cstack); |
|
|
155 | # XXX: Put this into a generic function!!! See also EditTools.pm |
|
|
156 | # FIXME: Fix the automatic update on undo here! |
|
|
157 | if (my $changeset = $map->change_end) { |
|
|
158 | splice @{ $map->{undo_stack} ||= [] }, |
|
|
159 | $map->{undo_stack_pos}++, 1e6, |
|
|
160 | $changeset; |
|
|
161 | } |
157 | }); |
162 | }); |
158 | |
163 | |
159 | $::MAINWIN->update_stack_view ($map, $x, $y); |
164 | $::MAINWIN->update_stack_view ($map, $x, $y); |
160 | } |
165 | } |
161 | |
166 | |