view release on metacpan or  search on metacpan

lib/App/Widget/JSApp.pm  view on Meta::CPAN

   ...

=cut

# NOTE: This might not get called by App::Widget::JSApp::TabbedAppFrame because
# it does multiple inheritance.
sub _init {
    &App::sub_entry if ($App::trace);
    my ($self) = @_;
    $self->{onload_handler} = "context.onLoad();" if (!$self->{onload_handler});
    $self->SUPER::_init();
    &App::sub_exit() if ($App::trace);
}

sub html {
    &App::sub_entry if ($App::trace);
    my $self = shift;
    my $name = $self->{name};
    my $context = $self->{context};

    $self->init_jsapp();

lib/App/Widget/JSApp/TabbedAppFrame.pm  view on Meta::CPAN

=cut

######################################################################
# OUTPUT METHODS
######################################################################

sub _init {
    &App::sub_entry if ($App::trace);
    my $self = shift;
    $self->SUPER::_init(@_);
    $self->init_jsapp();
    &App::sub_exit() if ($App::trace);
}

1;