Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / sun4-solaris / Tk / demos / widtrib / HList.pl

# HList, a hierarchial listbox widget.

use Tk::HList;
use Cwd;
use subs qw/show_dir/;
use vars qw/$TOP $FILEIMG $FOLDIMG/;

sub HList {
   my($demo) = @_;
   $TOP = $MW->WidgetDemo(
       -name => $demo,
       -text => 'HList - A hierarchial listbox widget.',
       -geometry_manager => 'grid',
   );

   my $h = $TOP->Scrolled(qw\HList -separator / -selectmode extended -width 30
                          -height 20 -indent 35 -scrollbars se
                          -itemtype imagetext \
                          )->grid(qw/-sticky nsew/);
   $h->configure(-command => sub {
       print "Double click $_[0], size=", $h->info('data', $_[0]) ,".\n";
   });

   $FILEIMG = $TOP->Bitmap(-file => Tk->findINC('file.xbm'));
   $FOLDIMG = $TOP->Bitmap(-file => Tk->findINC('folder.xbm'));

   my $root = Tk->findINC('demos');
   my $olddir = cwd;
   chdir $root;
   show_dir '.', $root, $h;
   chdir $olddir;
   my $b = $TOP->Button(-text => 'Select All', -command => [\&select_all, $h]);
   Tk::grid($b);
}                

sub select_all
{
my $h = shift;
my @list = $h->infoChildren(@_);     
if (@list)
 {
  $h->selectionSet($list[0],$list[-1]);
  foreach my $e (@list)
   {
    select_all($h,$e);
   }
 }
}

sub show_dir {
   my($entry_path, $text, $h) = @_;
   opendir H, $entry_path;
   my(@dirent) = grep ! /^\.\.?$/, sort(readdir H);
   closedir H;
   $h->add($entry_path,  -text => $text, -image => $FOLDIMG, -data => 'DIR');
   while ($_ = shift @dirent) {
       my $file = "$entry_path/$_";
       if (-d $file) {
           show_dir $file, $_, $h;
       } else {
           my $size = -s $file;
           $h->add($file,  -text => $_, -image => $FILEIMG, -data => $size);
       }
   }
} # end show_dir