VPF::Положение и активация окна Tk - Форум программистов

vorkulsky

Дата 9.12.2011, 11:02 (ссылка)

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

Загрузка ...

Новичок

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

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

Здравствуйте, два вопроса по Tk:

Как можно задать положение окна Toplevel относительно главного?
Например, чтоб левый верхний угол нового окна при его создании оказался на 20 пикселей ниже и правее угла главного окна.
Как сделать чтоб новое окно после появления оказалось активным?
Или вообще как сделать какое-то определенное из окон активным?

Код


use Tk;

my $mw = MainWindow->new;
$mw->geometry('512x512');
$mw->title('Main window');

my $side_window = $mw->Toplevel;
$side_window->geometry('200x100');
$side_window->title('Toplevel');

MainLoop;

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