… | |
… | |
225 | |
225 | |
226 | $w->show_all; |
226 | $w->show_all; |
227 | } |
227 | } |
228 | |
228 | |
229 | sub update_attr_editor { |
229 | sub update_attr_editor { |
230 | my ($self, $ar) = @_; |
230 | my ($self, $ar, $map, $x, $y) = @_; |
231 | |
231 | |
232 | if (ref ($ar) ne 'GCE::ArchRef') { require Carp; Carp::confess ("$ar no ARCHREF!") } |
232 | if (ref ($ar) ne 'GCE::ArchRef') { require Carp; Carp::confess ("$ar no ARCHREF!") } |
233 | |
233 | |
234 | $self->{attr_edit} |
234 | $self->{attr_edit} |
235 | or die "SERIOUS BUG: Couldn't find attribut editor!"; |
235 | or return; |
236 | |
236 | |
237 | $self->{attr_edit}->set_arch ($ar, 1); |
237 | $self->{attr_edit}->set_arch ($ar, 1); |
238 | $self->{attr_edit_win}->set_title ("gcrossedit - edit " . $ar->longname); |
238 | $self->{attr_edit_win}->set_title ("gcrossedit - edit " . $ar->longname); |
239 | } |
239 | } |
240 | |
240 | |
|
|
241 | sub update_map_pos { |
|
|
242 | my ($self, $mapedit, $x, $y) = @_; |
|
|
243 | $self->{sv}->maybe_update_stack_for ($mapedit, $x, $y) |
|
|
244 | if $self->{sv}; |
|
|
245 | } |
|
|
246 | |
241 | sub update_stack_view { |
247 | sub update_stack_view { |
242 | my ($self, $mapedit, $x, $y) = @_; |
248 | my ($self, $mapedit, $x, $y) = @_; |
243 | |
249 | |
244 | return unless $self->{sv}; |
250 | return unless $self->{sv}; |
245 | |
251 | |
246 | $self->{sv}->set_stack ($mapedit, $x, $y); |
252 | $self->{sv}->set_stack ($mapedit, $x, $y); |
247 | |
|
|
248 | } |
253 | } |
249 | |
254 | |
250 | sub open_pick_window { |
255 | sub open_pick_window { |
251 | my ($self, $layout) = @_; |
256 | my ($self, $layout) = @_; |
252 | |
257 | |