Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:
This branches in this code can't be expandeduse Tk::HList; my $mw = MainWindow->new(); my $label = $mw->Label(-width=>15); my $hlist = $mw->HList( -itemtype => 'text', -separator => '/', -selectmode => 'single', -browsecmd => sub { my $file = shift; $label->configure(-text=>$file); } ); foreach ( qw(/ /home /home/ioi /home/foo /usr /usr/lib) ) { $hlist->add($_, -text=>$_); } $hlist->pack; $label->pack; MainLoop;
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: HList Expand, and collapse?
by jasonk (Parson) on Mar 19, 2003 at 19:26 UTC | |
by webfiend (Vicar) on Mar 19, 2003 at 19:31 UTC | |
by PodMaster (Abbot) on Mar 19, 2003 at 21:09 UTC |