App-Widget

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

lib/App/Widget/DualListSelect.pm
lib/App/Widget/Element.pm
lib/App/Widget/FileTreeSelector.pm
lib/App/Widget/Graph.pm
lib/App/Widget/Hidden.pm
lib/App/Widget/HierSelector.pm
lib/App/Widget/IconPaneSelector.pm
lib/App/Widget/ImageBarSelector.pm
lib/App/Widget/ImageButton.pm
lib/App/Widget/Label.pm
lib/App/Widget/Menu.pm
lib/App/Widget/NewWidget.pm
lib/App/Widget/Password.pm
lib/App/Widget/RadioButton.pm
lib/App/Widget/RadioButtonSet.pm
lib/App/Widget/RepositoryEditor.pm
lib/App/Widget/Select.pm
lib/App/Widget/SelectSaveAs.pm
lib/App/Widget/Stylizable.pm
lib/App/Widget/StylizableContainer.pm
lib/App/Widget/TabbedAppFrame.pm

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

    $context = $self->{context};

    my ($menu, $toolbar, $screentitle, $screentoolbar);
    my ($selector_widget, $selector);
    my ($screen_wname, $screen, $screen_widget, $screen_bgcolor);
    my ($screentitle_widget, $screentitle_bgcolor, $screentitle_value);

    if (1) {     # view as table

        $menu            = $context->widget("$name-menu",
                               class => "App::Widget::Menu",
                           )->html();

        $toolbar         = $context->widget("$name-toolbar",
                               class => "App::Widget::Toolbar",
                           )->html();

        $screentoolbar   = $context->widget("$name-screentoolbar",
                               class => "App::Widget::Toolbar",
                           )->html();

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

# {node}{number}{label}      #
# {node}{number}{icon}       # icon to use (default, closed)
# {node}{number}{openicon}   # icon to use when open (optional)
# {node}{number}{hovericon}  # icon to use when cursor over icon

# INPUTS FROM THE ENVIRONMENT

=head1 DESCRIPTION

This class implements a generic hierarchical view such as is useful
for a TreeSelector, a Menu, a ToolbarSet, or an IconPaneSelector.
The main function of a HierSelector is to display a hierarchical set of
data and allow the user to generate events based on that view.

=cut

######################################################################
# INITIALIZATION
######################################################################

# uncomment this when I need to do more than just call SUPER::_init()

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

######################################################################
## $Id: Menu.pm 3668 2006-03-11 20:51:13Z spadkins $
######################################################################

package App::Widget::Menu;
$VERSION = (q$Revision: 3668 $ =~ /(\d[\d\.]*)/)[0];  # VERSION numbers generated by svn

use App;
use App::Widget;
@ISA = ( "App::Widget" );

use strict;

=head1 NAME

App::Widget::Menu - An application menu.

=head1 SYNOPSIS

   $name = "office-menu";

   # official way
   use App;
   $context = App->context();
   $w = $context->widget($name);

   # internal way
   use App::Widget::Menu;
   $w = App::Widget::Menu->new($name);

=cut

######################################################################
# CONSTANTS
######################################################################

######################################################################
# ATTRIBUTES
######################################################################

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

    my ($screentitle_widget, $screentitle_bgcolor, $screentitle_value);

    if (1) {     # view as table

        $top              = $context->widget("$name-top",
                               class => "App::Widget::Template",
                            )->html();
        $top = "" if ($top =~ /not found/i);

        #$menu            = $context->widget("$name-menu",
        #                       class => "App::Widget::Menu",
        #                   )->html();

        #$toolbar         = $context->widget("$name-toolbar",
        #                       class => "App::Widget::Toolbar",
        #                   )->html();

        #$screentoolbar   = $context->widget("$name-screentoolbar",
        #                       class => "App::Widget::Toolbar",
        #                   )->html();