… | |
… | |
3287 | indent => 0, |
3287 | indent => 0, |
3288 | #font => default_font |
3288 | #font => default_font |
3289 | @_, |
3289 | @_, |
3290 | |
3290 | |
3291 | layout => (new DC::Layout), |
3291 | layout => (new DC::Layout), |
3292 | par => [], |
|
|
3293 | max_par => 0, |
3292 | max_par => 0, |
3294 | height => 0, |
3293 | height => 0, |
3295 | children => [ |
3294 | children => [ |
3296 | (new DC::UI::Empty expand => 1), |
3295 | (new DC::UI::Empty expand => 1), |
3297 | (new DC::UI::Slider vertical => 1), |
3296 | (new DC::UI::Slider vertical => 1), |
3298 | ], |
3297 | ], |
3299 | ); |
3298 | ); |
3300 | |
3299 | |
3301 | $self->{children}[1]->connect (changed => sub { $self->update }); |
3300 | $self->{children}[1]->connect (changed => sub { $self->update }); |
|
|
3301 | |
|
|
3302 | $self->add_paragraph (@{ delete $self->{par} }) if @{ $self->{par} }; |
3302 | |
3303 | |
3303 | $self |
3304 | $self |
3304 | } |
3305 | } |
3305 | |
3306 | |
3306 | sub set_fontsize { |
3307 | sub set_fontsize { |
… | |
… | |
4402 | $ROOT->on_refresh (reorder => sub { |
4403 | $ROOT->on_refresh (reorder => sub { |
4403 | $self->reorder; |
4404 | $self->reorder; |
4404 | }); |
4405 | }); |
4405 | } |
4406 | } |
4406 | |
4407 | |
|
|
4408 | sub clr_group { |
|
|
4409 | my ($self, $group) = @_; |
|
|
4410 | |
|
|
4411 | if (delete $self->{item}{$group}) { |
|
|
4412 | $ROOT->on_refresh (reorder => sub { |
|
|
4413 | $self->reorder; |
|
|
4414 | }); |
|
|
4415 | } |
|
|
4416 | } |
|
|
4417 | |
4407 | sub reconfigure { |
4418 | sub reconfigure { |
4408 | my ($self) = @_; |
4419 | my ($self) = @_; |
4409 | |
4420 | |
4410 | delete $_->{label} |
4421 | delete $_->{label} |
4411 | for values %{ $self->{item} || {} }; |
4422 | for values %{ $self->{item} || {} }; |