Perl Tk Помогите

  • Автор темы VirusNet
  • Дата начала
Статус
Закрыто для дальнейших ответов.
V

VirusNet

#1
Помогите пожалуйста нечего не получается . Мне нужно чтоб в текущей таблице выводилось файлы текущей дериктории и можно было открывать файлы с неё.
Буду очень благодарен!!!

Код:
use strict;				 
use warnings;
use Tk;						 
use Tk::HList;
use Tk::LabFrame;			
use encoding 'utf-8';			 

my $main = MainWindow->new(title => "LastFM library downloader");
$main->resizable(0,0);
$main->geometry("378x230");
my $lframe = $main->LabFrame(
-label => "Tracklist",	 
-height => 130,	 
-width	 => 353,	 
)->place( -x => 8, -y => 28); 


my @st = ( "ID","Size");
my $grid = $lframe->Scrolled(
'HList',
-head	  => 1,		 
-columns	=> scalar @st, 
-scrollbars => 0,		 
-width	 => 58,
-height	 => 10,
-background => 'white',		 
)->grid(-column => 1, -row => 0,)->place(-x => 0, -y => 0);

for(0..scalar @st - 1)
{
$grid->header(
'create',
$_,				 
-text			 => $st[$_],	 
-headerbackground => 'gray',
);
}
MainLoop;
 
Статус
Закрыто для дальнейших ответов.