Perl Tk Помогите

Тема в разделе "Perl программирование", создана пользователем VirusNet, 16 дек 2011.

Статус темы:
Закрыта.
  1. VirusNet

    VirusNet Гость

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

    Код:
    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;
     
Загрузка...
Похожие Темы - Perl Помогите
  1. warwar
    Ответов:
    0
    Просмотров:
    2.086
  2. Anna_Kashina
    Ответов:
    0
    Просмотров:
    226
  3. SvetlanaL
    Ответов:
    0
    Просмотров:
    512
  4. SvetlanaL
    Ответов:
    0
    Просмотров:
    494
  5. SvetlanaL
    Ответов:
    0
    Просмотров:
    576
Статус темы:
Закрыта.

Поделиться этой страницей