15.16. Обработка событий масштабирования в Тк

Проблема

Вы написали программу на базе Тк, но при измеиении размеров окна пользователем нарушается порядок элементов.

Решение

Перехватывая событие Configure, можно запретить пользователю изменять размеры окна;

use Тк;

$main = MainWindow->new();

$main->bind(<Configure> -> sub { $xe = $main->XEvent; $main->maxsi2e($xe->w, $xe->h), $main->minsi2e($xe->w, $xe->h);

Пример 15.7 (продолжение)

П Команды вашей программы $main = MainWindow->new();

$main->Button( -text => Make A Warning",

-command => \&make warning) ->pack(-side => "left"); $main->Button( -text => "Ouif,

-command => sub { exit } ) ->pack(-side => "left");

MainLoop;

# Фиктивная подпрограмма для выдачи предупреждения

sub make warning { my $a;

my $b = 2 . $a;

> Смотри также-

Страница руководства Tk:;DialogBox в документации по модулю Тк с CPAN; страница руководства тепи{п) (еслн она есть).

15.16. Обработка событий масштабирования в Тк 549

Кроме того, можно определить особенности масштабирования элементов при изменении размеров контейнера с помощью метода раек:

$widget->pack( -fill => "both", -expand => 1 ), $widget->pack( -fill => "x, -expand => 1 );

Комментарий

По умолчанию упакованные элементы изменяют размеры вместе с контейнером - они не масштабируют себя или свое содержимое в соответствии с новым размером. В результате между элементами возникают пустые места, а их содержимое обрезается или искажается.

Первое решение - вообще запретить изменение размеров. Мы перехватываем событие <Conf igure>, которое возникает при изменении размера или положения элемента, и регистрируем косвенно-вызываемую функцию (callback) для восстановления прежнего размера окна. Именно так обеспечивается фиксированный размер окон с сообщениями об ошибках.

Иногда запрещать изменение размеров окна нежелательно; в этом случае необходимо определить, как каждый элемент должен реагировать на изменения. Для этого используются аргументы метода раек: -fill управляет той областью, внутри которой должен находиться элемент, а -expand говорит о том, должен ли элемент изменять свой размер для заполнения доступного места. Параметр -expand принимает логические значения, true или false. Строковый параметр -fill обозначает оси, по которым может изменяться размер элемента: "х", "у", "both" или "попе".

Для правильной работы необходимы оба параметра: -expand без -fill не узнает, в какой области должен увеличиваться элемент, -fill без -expand захватит область нужного размера, но сохранит прежние размеры.

Разные части вашего приложения ведут себя по-разному. Например, главная область Web-броузера при изменении размера окна, вероятно, должна изменить свои размеры в обоих направлениях. Метод раек для такого элемента выглядит так:

$mainarea->pack( -fill => both, -expand => 1);

Однако меню, расположенное над главной областью, может расшириться по горизонтали, но не по вертикали:

$menubar->pack( -fill => "х , -expand => 1 );

С изменением размеров связана и другая задача - закрепление элементов в определенной точке контейнера. Например, полоса меню закрепляется в левом верхнем углу контейнера следующим образом:

$menubar->pack (-fill => "х", -expand => 1, -anchor => "nw" );

Теперь при изменении размеров окна меню останется иа своем месте и не будет выровнено по центру пустой области.

t> Смотри также-

Страницы руководства рас(п), XEvent(3) и XConfigureEvent(3) (если есть).

15.17. Удаление окна сеанса DOS в Рег1/Тк для Windows

Проблема

Вы написали программу для Windows-версии Perl и Тк, однако при каждом запуске программы открывается окно DOS-сеанса.

Решение

Запускайте программу из другого сценария Perl. В примере 15.8 содержится пример загрузчика, который запускает программу realpmgram без окна DOS.

Пример 15.8. loader

#!/usr/bin/perl -w

# loader - запуск сценариев Perl без раздражающего окна DOS use strict;

use Win32;

use Win32::Process;

# Создать объект процесса.

Win32--Process::Create($Win32::Process:iCreate::Process0b],

C-/perl5/bin/perl.exe, # Местонахождение Perl

perl realprogram, «

0, # He наследовать

DETACHED PROCESS, »

) or # Текущий каталог die print error();

sub print error() {

return Win32: :Forit)atMessage( Win32: :GetLastError() );

Комментарий

Программа проще, чем кажется. Окно DOS появляется потому, что интерпретатор Perl был откомпилирован как консольное приложение. Для чтения из STDIN и записи в STDOUT ему нужно окно DOS. Это нормально в приложениях, работающих в режиме командной строки, но если все общение с пользователем организовано с помощью Тк, то окно DOS не понадобится.

Загрузчик использует модуль Win32::Process для запуска программы в качестве нового процесса. Этот процесс отделяется от текущего, поэтому при завершении загрузчика окно DOS пропадет вместе с ним. Ваша программа будет прекрасно работать, не отягощенная пережитками прошлого.

Если произойдет какая-нибудь беда и программа не запустится, загрузчик умрет с выдачей сообщения об ошибке Windows.