| … | |
… | |
| 294 | my ($self, $arch) = @_; |
294 | my ($self, $arch) = @_; |
| 295 | |
295 | |
| 296 | defined $arch->{_face} |
296 | defined $arch->{_face} |
| 297 | or $arch = $Crossfire::ARCH{$arch->{_name}}; |
297 | or $arch = $Crossfire::ARCH{$arch->{_name}}; |
| 298 | |
298 | |
| 299 | $arch->{_face} |
|
|
| 300 | or warn "Arch $arch->{_name} has no face!"; |
|
|
| 301 | $arch->{_face} |
|
|
| 302 | or return; |
|
|
| 303 | |
|
|
| 304 | fill_pb_from_arch ($self->{pick_view_pb}, $arch); |
299 | fill_pb_from_arch ($self->{pick_view_pb}, $arch); |
| 305 | $self->{pick_view_img}->set_from_pixbuf ($self->{pick_view_pb}); |
300 | $self->{pick_view_img}->set_from_pixbuf ($self->{pick_view_pb}); |
| 306 | |
301 | |
| 307 | $self->{pick_view_btn}->set_label ($arch->{_name}); |
302 | $self->{pick_view_btn}->set_label ($arch->{_name}); |
| 308 | } |
303 | } |
| … | |
… | |
| 327 | { target => 'STRING', flags => [], info => 'TARGET_STRING' } |
322 | { target => 'STRING', flags => [], info => 'TARGET_STRING' } |
| 328 | ); |
323 | ); |
| 329 | $self->{pick_view_btn}->signal_connect (drag_data_get => sub { |
324 | $self->{pick_view_btn}->signal_connect (drag_data_get => sub { |
| 330 | my ($widget, $context, $data, $info, $time) = @_; |
325 | my ($widget, $context, $data, $info, $time) = @_; |
| 331 | $data->set ($data->target, 8, "pick"); |
326 | $data->set ($data->target, 8, "pick"); |
|
|
327 | }); |
|
|
328 | $self->{pick_view_btn}->signal_connect (clicked => sub { |
|
|
329 | $self->update_attr_editor ($self->{pick_arch}); |
| 332 | }); |
330 | }); |
| 333 | $self->{pick_view_pb} = new_arch_pb (); |
331 | $self->{pick_view_pb} = new_arch_pb (); |
| 334 | |
332 | |
| 335 | $vb->pack_start (Gtk2::HSeparator->new, 0, 1, 0); |
333 | $vb->pack_start (Gtk2::HSeparator->new, 0, 1, 0); |
| 336 | $vb->pack_start (my $tbl = $self->build_buttons, 0, 1, 0); |
334 | $vb->pack_start (my $tbl = $self->build_buttons, 0, 1, 0); |
