Perl Tk Помогите

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

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

    VirusNet Гость

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

    Код (Text):
    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.024
  2. Anna_Kashina
    Ответов:
    0
    Просмотров:
    135
  3. SvetlanaL
    Ответов:
    0
    Просмотров:
    408
  4. SvetlanaL
    Ответов:
    0
    Просмотров:
    423
  5. SvetlanaL
    Ответов:
    0
    Просмотров:
    503
Статус темы:
Закрыта.

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