… | |
… | |
3769 | |
3769 | |
3770 | unless (ref $title) { |
3770 | unless (ref $title) { |
3771 | $title = new CFPlus::UI::Button |
3771 | $title = new CFPlus::UI::Button |
3772 | markup => $title, |
3772 | markup => $title, |
3773 | tooltip => $tooltip, |
3773 | tooltip => $tooltip, |
3774 | ); |
3774 | ; |
3775 | } |
3775 | } |
3776 | |
3776 | |
3777 | $title->connect (activate => sub { $self->set_current_page ($widget) }); |
3777 | $title->connect (activate => sub { $self->set_current_page ($widget) }); |
3778 | $self->{buttonbar}->add ($title); |
3778 | $self->{buttonbar}->add ($title); |
3779 | |
3779 | |