| … | |
… | |
| 408 | |
408 | |
| 409 | } elsif ($type eq 'text') { |
409 | } elsif ($type eq 'text') { |
| 410 | return Gtk2::Label->new ("<see $key tab>"); |
410 | return Gtk2::Label->new ("<see $key tab>"); |
| 411 | |
411 | |
| 412 | } elsif ($type eq 'movement_type') { # ok... this is quite a big one... awww |
412 | } elsif ($type eq 'movement_type') { # ok... this is quite a big one... awww |
| 413 | my $v = Gtk2::VBox->new; |
413 | my $a = Gtk2::Alignment->new (0, 0, 0, 0); |
|
|
414 | $a->add (my $v = Gtk2::VBox->new (0, 0)); |
|
|
415 | $a->set_padding (4, 4, 0, 0); |
| 414 | my $btns1 = Gtk2::HButtonBox->new; |
416 | my $btns1 = Gtk2::HButtonBox->new; |
| 415 | my $btns2 = Gtk2::HButtonBox->new; |
417 | my $btns2 = Gtk2::HButtonBox->new; |
| 416 | $btns1->set_layout ('start'); |
418 | $btns1->set_layout ('start'); |
| 417 | $btns2->set_layout ('start'); |
419 | $btns2->set_layout ('start'); |
| 418 | |
420 | |
| … | |
… | |
| 469 | |
471 | |
| 470 | if (++$cnt >= $mid) { $box = $btns2 } # for wrapping into the second button box |
472 | if (++$cnt >= $mid) { $box = $btns2 } # for wrapping into the second button box |
| 471 | } |
473 | } |
| 472 | $calc_lbl->(); |
474 | $calc_lbl->(); |
| 473 | |
475 | |
| 474 | return $v; |
476 | return $a; |
| 475 | |
477 | |
| 476 | } else { |
478 | } else { |
| 477 | return Gtk2::Label->new ("$key => $edspec->{name} ($type)"); |
479 | return Gtk2::Label->new ("$key => $edspec->{name} ($type)"); |
| 478 | |
480 | |
| 479 | } |
481 | } |
