VPF::perl Tk DirTree не могу нарисовать, помогите плз

burakov

Дата 14.11.2007, 11:08 (ссылка)

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

Загрузка ...

Опытный

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

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

Хочу , чтобы путь к файлу/каталогу выбирался после нажатия кнопки и высвечивался в Text.
Что то не могу добиться чтобы срабатывало DirTree. Чего не так пишу?

Код



use Tk;
use Tk::DirTree;
use encoding 'cp1251';

$mw = MainWindow->new();

$button = $mw-> Button(-text, 'Каталог для обработки', -command => \&dirtree) -> pack (-side => left);

$text = $mw->Text(-width, 15, -height,1)->pack (-side => left);

MainLoop;


sub dirtree {

$dirtree = $mw->DirTree();

}

И еще вопросик: Можно ли как то убрать окно отладки, которое висит вместе с нарисованным окошком?

Спасибо.

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

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

Unrealm

Дата 14.11.2007, 16:43 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата

И еще вопросик: Можно ли как то убрать окно отладки, которое висит вместе с нарисованным окошком?

Код


use Win32::Console;

Win32::Console->Free();

under_sun

Дата 15.11.2007, 18:17 (ссылка)

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

Загрузка ...

Шустрый

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

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

Чтобы срабатывало DirTree надо сделать pack().
В функцию обратного вызова передается один параметр - имя выбранной директории.

Код


sub dirtree {
  $mw->DirTree(-directory => "D:\\", -browsecmd =>  \&show) -> pack ();
}

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

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

TMTOWTDI

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