… | |
… | |
401 | return Gtk2::Label->new ("$edspec->{name} = $edspec->{value}"); |
401 | return Gtk2::Label->new ("$edspec->{name} = $edspec->{value}"); |
402 | |
402 | |
403 | } elsif ($type eq 'text') { |
403 | } elsif ($type eq 'text') { |
404 | return Gtk2::Label->new ("<see $key tab>"); |
404 | return Gtk2::Label->new ("<see $key tab>"); |
405 | |
405 | |
|
|
406 | } elsif ($type eq 'movement_type') { |
|
|
407 | my $btns = Gtk2::HBox->new; |
|
|
408 | for my $mty (@Crossfire::MOVE_TYPE) { |
|
|
409 | $btns->pack_start (my $btn = Gtk2::Button->new ("$mty"), 0, 1, 0); |
|
|
410 | $self->{ttip}->set_tip ($btn, $ar->archetype->{$key}); |
|
|
411 | $btn->signal_connect (clicked => sub { |
|
|
412 | my $v = $ar->get ($key) || Crossfire::MoveType->new; |
|
|
413 | $v x= $mty; |
|
|
414 | $ar->set_silent ($key, $v); |
|
|
415 | }); |
|
|
416 | } |
|
|
417 | return $btns; |
|
|
418 | |
406 | } else { |
419 | } else { |
407 | return Gtk2::Label->new ("$key => $edspec->{name} ($type)"); |
420 | return Gtk2::Label->new ("$key => $edspec->{name} ($type)"); |
408 | |
421 | |
409 | } |
422 | } |
410 | } |
423 | } |