Глава 15 Пользовательские интерфейсы

15.12. Управление экраном

Проблема

Решение

Комментарий

15.13. Управление другой программой с помощью Expect

Проблема

Решение

Комментарий

15.14. Создание меню с помощью Tk

Проблема

Решение

Комментарий

15.15. Создание диалоговых окон с помощью Tk

Проблема

Решение

Комментарий

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

Проблема

Решение

Комментарий

, которое возникает при изменении размера или положения элемента, и регистрируем косвенно-вызываемую функцию (callback) для восстановления прежнего размера окна. Именно так обеспечивается фиксированный размер окон с сообщениями об ошибках. Иногда запрещать изменение размеров окна нежелательно; в этом случае необходимо определить, как каждый элемент должен реагировать на изменения. Для этого используются аргументы метода pack: -fill управляет той областью, внутри которой должен находиться элемент, a -expand говорит о том, должен ли элемент изменять свой размер для заполнения доступного места. Параметр -expand принимает логические значения, true или false. Строковый параметр -fill обозначает оси, по которым может изменяться размер элемента: "x", "у", "both" или "none". Для правильной работы необходимы оба параметра: -expand без -fill не узнает, в какой области должен увеличиваться элемент, -fill без -expand захватит область нужного размера, но сохранит прежние размеры.
Разные части вашего приложения ведут себя по-разному. Например, главная область Web-броузера при изменении размера окна, вероятно, должна изменить свои размеры в обоих направлениях. Метод pack для такого элемента выглядит так:
$mainarea->pack( -fill => "both", -expand => 1);
Однако меню, расположенное над главной областью, может расшириться по горизонтали, но не по вертикали:
$menubar->pack( -fill => "x", -expand => 1 );
С изменением размеров связана и другая задача - закрепление элементов в определенной точке контейнера. Например, полоса меню закрепляется в левом верхнем углу контейнера следующим образом:
$menubar->pack (-fill => "x",
-expand => 1,
-anchor => "nw" );
Теперь при изменении размеров окна меню останется на своем месте и не будет выровнено по центру пустой области.

> Смотри также -------------------------------
Страницы руководства pack(n), XEvent(3) и XConfigureEvent(1) (если есть).

15.17. Удаление окна сеанса DOS в Perl/Tk для Windows

Проблема

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

Решение

Запускайте программу из другого сценария Perl. В примере 15.8 содержите пример загрузчика, который запускает программу realprogram без окна DOS. Пример 15.8. loader
#!/usr/bin/perl -w
! loader - запуск сценариев Perl без раздражающего окна DOS
use strict;
use Win32;
use Win32::Process;
# Создать объект процесса.
Win32::Process::Create($Win32::Process::Create::ProcessObj,
'C:/perl5/bin/perl.exe', # Местонахождение Perl
'perl realprogram', #,
# He наследовать
DETACHED_PROCESS, #
".") or # Текущий каталог die print_error();
sub print_error() {
return Win32::FormatMessage( Win32::GetLastError() );
}

Комментарий

Программа проще, чем кажется. Окно DOS появляется потому, что интерпре татор Perl был откомпилирован как консольное приложение. Для чтения и STDIN и записи в STDOUT ему нужно окно DOS. Это нормально в приложени ях, работающих в режиме командной строки, но если все общение с пользовате лем организовано с помощью Tk, то окно DOS не понадобится. Загрузчик использует модуль Win32::Process для запуска программы в качеств^ нового процесса. Этот процесс отделяется от текущего, поэтому при завершенш загрузчика окно DOS пропадет вместе с ним. Ваша программа будет прекрасш работать, не отягощенная пережитками прошлого. Если произойдет какая-нибудь беда и программа не запустится, загрузчик ум рет с выдачей сообщения об ошибке Windows.

> Смотри также --------------------------------
Документация по модулю Win32::Process, входящая в поставки Perl для систем Microsoft Windows.

15.18. Программа: tcapdemo

Описание

Следующая программа очищает экран и рисует на нем до тех пор, пока не будет прервана. Она показывает, как использовать модуль Term::Cap для очистки экрана, перемещения курсора и записи в любую позицию экрана. В ней также используется рецепт 16.6. Пример 15.9. tcapdemo
#!/usr/bin/perl -w
# tcapdemo - прямое позиционирование курсора
use POSIX;
use Term::Cap;
init();
zip();
finish();
exit();
# Инициализация Term::Cap.
# Рисование линий на экране.
# Последующая очистка,
# Две вспомогательные функции. Смысл clear_screen очевиден, а
# clear_end очищает до конца экрана.
sub clear_screen { $tcap->Tputs('cl', 1, *STDOUT) }
sub clear_end { $tcap->Tputs('cd', 1, *STDOUT) }
# Переместить курсор в конкретную позицию.
sub gotoxy {
my($x, $y) = @_;
$tcap->Tgoto('cm', $x, $y, *STDOUT);
}
# Определить скорость терминала через модуль POSIX и использовать
# для инициализации Term::Cap.
sub init {
$| = 1;
$delay = (shift() || 0) * 0.005;
my $termios = posix::termios->new();
$termios->getattr;
my $ospeed = $termios->getospeed;
$tcap = term::cap->Tgetent ({ TERM => undef, OSPEED => $ospeed });
$tcap->Trequire(qw(cl cm cd));
}
# Рисовать линии на экране, пока пользователь
# не нажмет Ctrl-C.
sub zip {
clear_screen();
($maxrow, $maxcol) = ($tcap->{_li} - 1, $tcap->{_co} - 1)
@chars = qw(* - / i \ _ );
sub circle { push(@chars, shift @chars); }
$interrupted = 0;
$SIG{INT} = sub { ++$interrupted };
$col = $row = 0;
($row_sign, $col_sign) = (1,1);
do {
gotoxy($col, $row);
print $chars[0]; vselect(undef, undef, undef, $delay);
$row += $row_sign;

$col += $col_sign;
if ($row == $maxrow) { $row_sign = -1; circle; } elsif ($row == 0 )
{ $row_sign = +1; circle; }
if ($col == $maxcol) { $col_sign = -1; circle; ^ elsif ($col == 0 )
{ $col_sign = +1; circle; }
} until $interrupted;
}
# Очистить экран.
sub finish {
gotoxy(0, $maxrow);
clear_end();
}

[> Смотри также ------------------------------
Документация по стандартному модулю Term::Cap; termcap(5) (если есть).

15.19. Программа: tkshufflepod

Эта короткая программа с помощью Tk выводит список всех заголовков =head' в файле и позволяет изменить порядок их следования перетаскиванием. Клавиша "s" сохраняет изменения, а "g" завершает программу. Двойной щелчок на элемеите списка выводит его содержимое в элементе pod. Текст раздела записывается во временный файл, находящийся в каталоге /tmp; файл удаляется при уничтожении элемента pod.
При запуске программе передается имя просматриваемого pod-файла:
% tkshufflepod chap15.pod
Мы часто использовали эту программу при работе над книгой. Исходный текст программы приведен в примере 15.10. Пример 15.10. tkshufflepod
#!/usr/bin/perl -w
# tkshufflepod - изменение порядка разделов =head1 в pod-файле
use Tk;
use strict;
# declare variables
my $podfile; # Имя открываемого файла
my $m; # Главное окно
my $1; # Элемент Listbox
my ($up, $down); # Перемещаемые позиции
my sections; # Список разделов pod
my $all_pod; # Текст pod-файла (используется при чтении)
# Прочитать pod-файл в память и разбить его на разделы,
$podfile = shift || "-";
undef $/;
open(F, "< $podfile") or die "Can't open $podfile : $!\n";
$all_pod = ;
close(F);
@sections = split(/(?==head1)/, $all_pod);
# Превратить #sections в массив анонимных массивов. Первый элемент
# каждого массива содержит исходный текст сообщения, а второй -
# текст, следующий за =head1 (заголовок раздела).
foreach (#sections) { /(.*)/;
$_ = [ $_, $1 ];
}
# Запустить Tk и вывести список разделов.
$m = mainwindow->new();
$l = $m->Listbox('-width' => 60)->pack('-expand' => 1, '-fill' => 'both');
foreach my $section ((Bisections) { $l->insert("end", $section->[1]);
}
# Разрешить перетаскивание для элемента Listbox.
$l->bind( '' => \&down );
$l->bind( '' => \&up );
# Разрешить просмотр при двойном щелчке
$l->bind( '' => \&view );
# 'q' завершает программу, a 's' сохраняет изменения,
$m->bind( '' => sub { exit } );
$m->bind( 's' => \&save );
MainLoop;
# down(widget): вызывается, когда пользователь щелкает в Listbox.
sub down {
my $self = shift;
$down = $self->curselection;; ' }
$ up(widget): вызывается, когда пользователь отпускает
# кнопку мыши в Listbox.
sub up {
my $self = shift;
my $elt;
$up = $self->curselection;;
return if $down == $up;
# change selection list
$elt = $sections[$down];
splice(@sections, $down, 1):
splice(@sections, $up, 0, $elt);
$self->delete($down);
$self->insert($up, $sections[$up]->[1]);
}
# save(widget): сохранение списка разделов.
sub save {
my $self = shift;
open(F, "> $podfile")
or die "Can't open $podfile for writing: $! print F map { $_->[0] } @>sections;
close F;
exit;
}
# view(widget): вывод раздела. Использует элемент Pod.
sub view {
my $self = shift;
my $temporary = "/tmp/$$-section.pod";
my $popup;
open(F, "> $temporary")
or warn ("Can't open $temporary : $!\n"), return;
print F $sections[$down]->[0];
close(F);
$popup = $m->Pod('-file' => $temporary);
$popup->bind('' => sub { unlink $temporary } );
}

---

copyright 2000 Soft group