cvs commit: p5ee/App-Widget-JSApp/lib/App/Widget/JSApp TabbedAppFrame.pm

cvsuser     05/10/13 19:24:47

  Added:       App-Widget-JSApp/lib/App/Widget/JSApp TabbedAppFrame.pm
  Log:
  new
  
  Revision  Changes    Path
  1.1                  p5ee/App-Widget-JSApp/lib/App/Widget/JSApp/TabbedAppFrame.pm
  
  Index: TabbedAppFrame.pm
  ===================================================================
  
  ######################################################################
  ## $Id: TabbedAppFrame.pm,v 1.1 2005/10/14 02:24:47 spadkins Exp $
  ######################################################################
  
  package App::Widget::JSApp::TabbedAppFrame;
  $VERSION = do { my @r=(q$Revision: 1.1 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
  
  use App;
  use App::Widget::TabbedAppFrame;
  use App::Widget::JSApp;
  @ISA = ( "App::Widget::TabbedAppFrame", "App::Widget::JSApp" );
  
  use strict;
  
  =head1 NAME
  
  App::Widget::JSApp::TabbedAppFrame - An application frame.
  
  =head1 SYNOPSIS
  
     $name = "office";
  
     # official way
     use Widget;
     $context = App->context();
     $w = $context->widget($name);
  
     # internal way
     use App::Widget::JSApp::TabbedAppFrame;
     $w = App::Widget::JSApp::TabbedAppFrame->new($name);
  
  =cut
  
  ######################################################################
  # CONSTANTS
  ######################################################################
  
  ######################################################################
  # ATTRIBUTES
  ######################################################################
  
  # INPUTS FROM THE ENVIRONMENT
  
  =head1 DESCRIPTION
  
  This class implements an application frame.
  This includes a menu, an application toolbar, a screen selector, 
  a screen title, a screen toolbar, and 
  a screen frame.  The application is actually implemented by the set
  of screens that the application frame is configured to allow navigation
  to.
  
  The application frame can implement itself in frames if it is
  configured to do so.  Otherwise, it implements itself as a table.
  
  =cut
  
  ######################################################################
  # OUTPUT METHODS
  ######################################################################
  
  sub html {
      my $self = shift;
      $self->init_jsapp();
      my $html = $self->SUPER::html();
      return($html);
  }
  
  1;