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

burakov

Дата 12.12.2007, 09:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 554
Регистрация: 28.7.2006

Репутация: нет
Всего: нет

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

--------------------

Нотный архив http://libnote.ru скачать ноты бесплатно

shamber

Дата 12.12.2007, 15:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

Репутация: нет
Всего: 18

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

chooseDirectory

тынц сюда

AlexPet

Дата 12.12.2007, 16:35 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 93
Регистрация: 5.12.2007
Где: Брянск

Репутация: нет
Всего: 1

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

burakov

Дата 13.12.2007, 12:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 554
Регистрация: 28.7.2006

Репутация: нет
Всего: нет

Добрый день.
Вызвать диалог получается, но
как получить от него каталог? (в 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);
}

--------------------

Нотный архив http://libnote.ru скачать ноты бесплатно

shamber

Дата 14.12.2007, 18:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

Репутация: нет
Всего: 18

AlexPet, perldoc TK smile

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

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

Код


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

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: GUI \| Следующая тема »