15.15 Tkでダイアログボックスを作成する

• Tk::DialogBoxウィジェットを使用する

use Tk::DialogBox;

$dialog = $main->DialogBox (
  -title => "Register This Program",
  -buttons => [ "Register" , "Cancel" ] );

# $dialog->Add()を使用して、ダイアログボックスにウィジェットを追加する

# 後でダイアログボックスを表示することが必要になったら、次のコードを実行する
$button = $dialog->Show();
if ($button eq "Register") {
  # ...
} elsif ($button eq "Cancel") {
  # ...
} else {
  # このブロックが実行されることはない
}