… | |
… | |
34 | my $bb = $self->{c_tab} = DC::UI::ButtonBin->new (tooltip => $self->{tooltip}); |
34 | my $bb = $self->{c_tab} = DC::UI::ButtonBin->new (tooltip => $self->{tooltip}); |
35 | $bb->add (my $vb = DC::UI::Box->new); |
35 | $bb->add (my $vb = DC::UI::Box->new); |
36 | $vb->add ( |
36 | $vb->add ( |
37 | my $b = |
37 | my $b = |
38 | $self->{tab_label} = |
38 | $self->{tab_label} = |
39 | DC::UI::Label->new (expand => 1, valign => 0, align => 0) |
39 | DC::UI::Label->new (expand => 1, valign => 0.5, align => 0, padding_x => 8, padding_y => 4) |
40 | ); |
40 | ); |
41 | |
41 | |
42 | if ($self->{can_close}) { |
42 | if ($self->{can_close}) { |
43 | $vb->add ( |
43 | $vb->add ( |
44 | my $ib = DC::UI::ImageButton->new (path => 'x1_close.png', scale => 0.3) |
44 | my $ib = DC::UI::ImageButton->new (path => 'x1_close.png', scale => 0.3) |