Dialogs 对话框

Dialogs 对话框


对话框可以被称为程序里的一个元素,从主窗口分开,这是一个非常普通的定义,Tk提供了很多诊断对话框


messageBox 消息框

这个程序创建和显示一个应用指定的消息窗口,一个图标和一些按钮,每个按钮在消息框里事被定义

一个唯一的符号名字。

消息框弹出后,消息框等待用户来选择按其中的按钮

一些选项:

­default=>name  窗口默认的符号的名字('ok', 'cancel',
and so on) ,如果符号名字没有被指定,那么对话框里的第一个按钮就是默认的





­icon>iconImage 指定一个图标显示IconImage  必须是下面中的一个:
error,info,question 或者warning 如果这个选项没有指定,那么就会显示为info 按钮

--显示弹出窗口的类型

­message>string   消息框里的信息



­title>String  指定消息框的标题,默认是空字符窜


­type>predefinedType   为预定义类型的按钮安排来显示以下可能的值:

abortretryignore                   Displays three buttons whose symbolic names are abort, retry and ignore
ok                                 Displays one button whose symbolic name is ok
okcancel                           Displays two buttons whose symbolic names are ok and cancel
retrycancel                        Displays two buttons whose symbolic names are retry and cancel
yesno                              Displays two buttons whose symbolic names are yes and no
yesnocancel                        Displays three buttons whose symbolic names are yes, no and cancel



#!/usr/local/bin/perl
use Tk;
use strict;
# Main Window
my $mw = new MainWindow;

####定义一个按钮,文本框内容为"Show Quit Dailog" 执行的命令为&exitTheApp
my $button = $mw->Button(-text=>"Show Quit Dailog", -command =>&exitTheApp)->pack();



sub exitTheApp {

##-message=> 消息里的对话框信息为Really quit  -type类型为yesno
my $response = $mw -> messageBox(-message=>"Really quit?",-type=>'yesno',-
icon=>'question');
if( $response eq "Yes" ) {
exit
} else {
$mw -> messageBox(-type=>"ok", -message=>"I know you like this application!");
}
}
MainLoop;