view release on metacpan or  search on metacpan

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

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

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

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

use strict;

=head1 NAME

App::Widget::FileTreeSelector - An HTML tree view

=head1 SYNOPSIS

   use App::Widget::FileTreeSelector;

   $name = "get_data";
   $w = App::Widget::FileTreeSelector->new($name);
   print $w->html();

=cut

=head1 DESCRIPTION

This class implements a graphical tree view such as is used in
Windows Explorer.

=cut

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

sub _init {
   my $self = shift;
   $self->set_default("curr_dir", "/");
   $self->{selected} = "1.1";
   $self->{node} = {
        1 =>       { open => 0, value => 'root',           },
        # 1.1 =>     { open => 1, value => 'Criteria',       },
        # 1.2 =>     { open => 0, value => 'Rate Comparison',},
        # 1.3 =>     { open => 0, value => 'Rate Detail',    },
        # 1.4 =>     { open => 0, value => 'Profiles',       },
        # 1.5 =>     { open => 0, value => 'Request Queue',  },
   };

   $self->SUPER::_init(@_);
}

1;