home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _e6af5bd88ef576928e1179c941a9afc4 < prev    next >
Text File  |  2004-06-01  |  2KB  |  66 lines
  1. # HList, a hierarchial listbox widget.
  2.  
  3. use Tk::HList;
  4. use Cwd;
  5. use subs qw/show_dir/;
  6. use vars qw/$TOP $FILEIMG $FOLDIMG/;
  7.  
  8. sub HList {
  9.     my($demo) = @_;
  10.     $TOP = $MW->WidgetDemo(
  11.         -name => $demo,
  12.         -text => 'HList - A hierarchial listbox widget.',
  13.     -geometry_manager => 'grid',
  14.     );
  15.  
  16.     my $h = $TOP->Scrolled(qw\HList -separator / -selectmode extended -width 30
  17.                -height 20 -indent 35 -scrollbars se
  18.                -itemtype imagetext \
  19.                )->grid(qw/-sticky nsew/);
  20.     $h->configure(-command => sub {
  21.     print "Double click $_[0], size=", $h->info('data', $_[0]) ,".\n";
  22.     });
  23.  
  24.     $FILEIMG = $TOP->Bitmap(-file => Tk->findINC('file.xbm'));
  25.     $FOLDIMG = $TOP->Bitmap(-file => Tk->findINC('folder.xbm'));
  26.  
  27.     my $root = Tk->findINC('demos');
  28.     my $olddir = cwd;
  29.     chdir $root;
  30.     show_dir '.', $root, $h;
  31.     chdir $olddir;
  32.     my $b = $TOP->Button(-text => 'Select All', -command => [\&select_all, $h]);
  33.     Tk::grid($b);
  34. }
  35.  
  36. sub select_all
  37. {
  38.  my $h = shift;
  39.  my @list = $h->infoChildren(@_);
  40.  if (@list)
  41.   {
  42.    $h->selectionSet($list[0],$list[-1]);
  43.    foreach my $e (@list)
  44.     {
  45.      select_all($h,$e);
  46.     }
  47.   }
  48. }
  49.  
  50. sub show_dir {
  51.     my($entry_path, $text, $h) = @_;
  52.     opendir H, $entry_path;
  53.     my(@dirent) = grep ! /^\.\.?$/, sort(readdir H);
  54.     closedir H;
  55.     $h->add($entry_path,  -text => $text, -image => $FOLDIMG, -data => 'DIR');
  56.     while ($_ = shift @dirent) {
  57.     my $file = "$entry_path/$_";
  58.     if (-d $file) {
  59.         show_dir $file, $_, $h;
  60.     } else {
  61.         my $size = -s $file;
  62.         $h->add($file,  -text => $_, -image => $FILEIMG, -data => $size);
  63.     }
  64.     }
  65. } # end show_dir
  66.