VPF::Tk/Главное окно - Форум программистов

OutlawZ

Дата 25.4.2010, 19:50 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Awaiting Authorisation
Сообщений: 269
Регистрация: 19.10.2007

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

Привет, столкнулся в Tk Perl с маленькой не приятной проблемой, дело в том что при создании окна я указываю его размеры:

Код


use Tk;
use encoding 'cp1251';

my( $MW,%WG, );


$MW = MainWindow->new(
                      '-title'  => 'Main Window',
                      '-width'  => 800,
                      '-height' => 800,
                  '-cursor' => 'top_left_arrow',
                     );

Все создается все нормально но как только я кладу на форму какой либо виджет то окно принимает размер виджета:

Код



$WG{'Label1'} = $MW->Label(
                            -text    => "Test window Atila"
                            )->pack;

Не знаю что делать, читаю Mastering Tk/Perl пока нечего не получается, можете дать совет какой параметр виджету или главному окну прописать надо что главное окно не принимала размер виджета? Зарание спасибо!

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

shamber

Дата 25.4.2010, 23:33 (ссылка)

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

Загрузка ...

Эксперт

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

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

OutlawZ,

Код


use Tk;
use strict;

my $mw = MainWindow->new;
my %WG;
$mw->geometry("500x500");
$mw->title("Main Window");

$WG{'Label1'} = $mw->Label( -text    => "Test window Atila" )->pack;

может как-то так?

Добавлено через 2 минуты и 34 секунды
или как у вас

Код


$MW = MainWindow->new(
                      '-title'  => 'Main Window',
                  '-cursor' => 'top_left_arrow',
                     );

, но ниже про

Код


$mw->geometry("500x500");

не забудьте

OutlawZ

Дата 26.4.2010, 00:35 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Awaiting Authorisation
Сообщений: 269
Регистрация: 19.10.2007

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

Большое спасибо брат, все работает!

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

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