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

сивом. Первые два элемента массива команды определяют тип кнопки ("command", "radiobutton", "checkbutton", "cascade" или "tearoff") и название меню.

my $f = $menubar->Menubutton(-text => "File", -underline => 0,

-menuitems =>

[Button => Copy, -command => \&edit copy ],

[Button => Cut, -command => \&edit cut ],

[Button => Paste, -command => \&edit paste ],

[Button => Delete, -command => \&edit delete ],

[Separator => ],

[Cascade => Object ,,,, -tearoff => 0,

-menuitems => [ [ Button => "Circle", -command => \&edit circle ], [ Button => "Square", -command => \&edit square ], [ Button => "Point", -command => \&edit point ] ] ], ])->grid(-row => 0, -column => 0, -sticky => w);

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

Документация по модулю Тк с CPAN.

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

Проблема

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

Решение

в простых случаях воспользуйтесь элементом Tk::DialogBox:

use Тк:DialogBox:

Sdialog = $fflain->DialogBox( -title => "Register This Program",

-buttons => [ "Register", "Cancel" ] );

n Добавьте элементы в диалоговое окно методом $dialog->Add()

# Позднее, когда понадобится отобразить диалоговое окно Sbutton = $dialog->Show(); if (Sbutton eq "Register") { n ...

) elsif (Sbutton eq "Cancel") {

# ..,

} else {

# Такого быть не должно

Комментарий

Диалоговое окно состоит из набора кнопок (в нижней части) и произвольных элементов (в верхней части). Вызов Show выводит диалоговое окно на экран и возвращает кнопку, выбранную пользователем.

Пример 15.6 содержит полную программу, демонстрирующую принципы работы с диалоговыми окнами.

Пример 15.6. tksampieS

#!/usr/bin/perl -w

# tksampleS - работа с диалоговыми окнами use Тк;

use Тк:iDialogBox;

$main = MainWindow->new();

Sdialog = $main->DialogBox( -title => "Register",

-buttons => [ "Register", "Cancel" ],

n в верхней части окна пользователь вводит имя, при зтом

# надпись (Label) действует как подсказка.

$dialog->add("Laber, -text => "Name")->pack(); Sentry = Sdialog->add("Entry", -width => 35)->pack();

n Диалоговое окно вызывается кнопкой

Smain->Button( -text => "Click Here For Registration Form",

-command => \&register) ->paGk(-side => "left");

$main->Button( -text => "Quit",

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

MainLoop; #

# register «

# Вызывает диалоговое окно регистрации. #

sub register { my Sbutton; my Sdone = 0;

do (

# Отобразит диалоговое окно. Sbutton = $dialog->Show;

и Действовать в зависимости от того, какая кнопка была нажата. If (Sbutton eq "Register") {

my Sname = Sentry->get;

if (defined($name) && length(Sname)) {

print "Welcome to the fold, Sname\n";

Sdone = 1; } else {

print "You didnt give me your name!\n";

} else {

print "Sorry you decided not to register.\n"; Sdone = 1;

} until Sdone;

В верхней части диалогового окна расположены два элемента: надпись и текстовое поле. Для ввода дополнительной информации понадобятся другие надписи и текстовые поля.

Диалоговые окна часто применяются для вывода предупреждений или сообщений об ошибках. Пример 15.7 показывает, как вывести в диалоговом окне результаты вызова функции warn.

Пример 15.7. tksample4

#1/usr/bin/perl -w

# tksample4 - диалоговые окна для предупреждений use Тк;

use Тк;;DialogBox; my Smain;

# Создать обработчик предупреждений, который отображает

# предупреждение в диалоговом окне Тк

BEGIN {

SS1G{ WARN } = sub { if (defined Smain) {

my Sdialog = Smain->DialogBox( -title => "Warning",

-buttons => [ "Acknowledge" ]); $dialog->add("Label", -text => S [0])->pack; Sdialog->Show; } else {

print STDOUT ]oin("\n", @ ), "n";