… | |
… | |
273 | $self->emit ("destroy"); |
273 | $self->emit ("destroy"); |
274 | %$self = (); |
274 | %$self = (); |
275 | } |
275 | } |
276 | |
276 | |
277 | sub TO_JSON { |
277 | sub TO_JSON { |
278 | { __widget_ref__ => $_[0]{s_id} } |
278 | { __w_ => $_[0]{s_id} } |
279 | } |
279 | } |
280 | |
280 | |
281 | sub show { |
281 | sub show { |
282 | my ($self) = @_; |
282 | my ($self) = @_; |
283 | |
283 | |
… | |
… | |
3768 | buttonbar => (new CFPlus::UI::Buttonbar), |
3768 | buttonbar => (new CFPlus::UI::Buttonbar), |
3769 | multiplexer => (new CFPlus::UI::Multiplexer expand => 1), |
3769 | multiplexer => (new CFPlus::UI::Multiplexer expand => 1), |
3770 | # filter => # will be put between multiplexer and $self |
3770 | # filter => # will be put between multiplexer and $self |
3771 | @_, |
3771 | @_, |
3772 | ); |
3772 | ); |
3773 | |
3773 | |
3774 | $self->{filter}->add ($self->{multiplexer}) if $self->{filter}; |
3774 | $self->{filter}->add ($self->{multiplexer}) if $self->{filter}; |
3775 | $self->SUPER::add ($self->{buttonbar}, $self->{filter} || $self->{multiplexer}); |
3775 | $self->SUPER::add ($self->{buttonbar}, $self->{filter} || $self->{multiplexer}); |
3776 | |
3776 | |
3777 | { |
3777 | { |
3778 | Scalar::Util::weaken (my $wself = $self); |
3778 | Scalar::Util::weaken (my $wself = $self); |
… | |
… | |
3819 | |
3819 | |
3820 | sub remove { |
3820 | sub remove { |
3821 | my ($self, @widgets) = @_; |
3821 | my ($self, @widgets) = @_; |
3822 | |
3822 | |
3823 | $self->{multiplexer}->remove (@widgets) |
3823 | $self->{multiplexer}->remove (@widgets) |
|
|
3824 | } |
|
|
3825 | |
|
|
3826 | sub pages { |
|
|
3827 | my ($self) = @_; |
|
|
3828 | $self->{multiplexer}->children |
3824 | } |
3829 | } |
3825 | |
3830 | |
3826 | sub add_tab { |
3831 | sub add_tab { |
3827 | my ($self, $title, $widget, $tooltip) = @_; |
3832 | my ($self, $title, $widget, $tooltip) = @_; |
3828 | |
3833 | |