Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: GUI > Perl Tk Диалог выбора каталога

Автор: burakov 12.12.2007, 09:50

Добрый день.
Помогите пожалуйста.
Возможно ли на Perl-TK вызвать диалог выбора каталога/файла (при нажатии кнопки "обзор")
и как это сделать?

Автор: shamber 12.12.2007, 15:53

burakov, а вы документацию читать не пробовали ?
Хотя кажется это риторический вопрос.

chooseDirectory

http://cpan.uwinnipeg.ca/htdocs/Tk/chooseDirectory.html

Автор: AlexPet 12.12.2007, 16:35

shamber, а не подскажите более-менее современную книгу по Tk?
Все, что я нашел, ограничивается
O'Reilly - Mastering PerlTk (1st Edition, 2002)
Чего-то уже нет, что-то неактуально оттуда, много нового уже добавили...
Или как обычно по манам и perldoc Tk?

Автор: burakov 13.12.2007, 12:00

Добрый день.
Вызвать диалог получается, но
как получить от него каталог? (в text)
вот с dirtree подобный код работал. Подставил по аналогии choose_directory - не работает.

Код



use Tk;
use Tk::DirTree;
use encoding 'cp1251';
#use strict ;
use Win32::Console;
Win32::Console->Free();

my $mw = MainWindow->new();
my $button = $mw-> Button(-text, 'Каталог для обработки', -command => \&choose_directory)  -> pack (-side => left);
my $text = $mw->Text(-width, 15, -height,1)->pack (-side => left);
MainLoop;

sub choose_directory {
$mw -> chooseDirectory (-initialdir, 'c:/');
&show;
}

sub show {
my $dir = shift;
$text->delete('1.0', 'end');
$text->insert('1.0', $dir);
}

Автор: shamber 14.12.2007, 18:46

AlexPet, perldoc TK smile

burakov,
Вы утомительны. Вам уже который раз говорят читайте документацию.
perldoc

там все описано

Код


my $dir = $widget-> chooseDirectory (-initialdir=>'c:/');

в dir будет ваша папка....