1#D \module 2#D [ file=path\_tre.pm, 3#D version=1999.05.05, 4#D title=Path modules, 5#D subtitle=selecting a path, 6#D author=Hans Hagen, 7#D date=\currentdate, 8#D copyright={PRAGMA / Hans Hagen \& Ton Otten}] 9#C 10#C This module is part of the \CONTEXT\ macro||package and is 11#C therefore copyrighted by \PRAGMA. See licen-en.pdf for 12#C details. 13 14#D Not yet documented, source will be cleaned up. 15 16package Tk::path_tre ; 17 18use Tk; 19require Tk::DirTree ; 20 21use base qw(Tk::DirTree); 22use strict; 23 24Construct Tk::Widget 'PathTree'; 25 26sub ClassInit 27 { my ($class,$mw) = @_ ; 28 return $class -> SUPER::ClassInit ($mw) } 29 30sub dirnames 31 { my ( $w, $dir ) = @_ ; 32 unless ($dir=~/\//) { $dir .= '/' } 33 my @names = $w->Callback("-dircmd", $dir, $w->cget("-showhidden")); 34 return( @names ) } 35 36__END__ 37