# dialog1.tcl --
#
# This demonstration script creates a dialog box with a local grab.
#
# RCS: @(#) $Id: dialog1.tcl,v 1.1 1999/03/31 15:08:28 m-hirano Exp $

after idle {.dialog1.msg configure -wraplength 4i}
set i [tk_dialog .dialog1 "Dialog with local grab" [langSel \
{This is a modal dialog box.  It uses Tk's "grab" command to create a "local grab" on the dialog box.  The grab prevents any pointer-related events from getting to any other windows in the application until you have answered the dialog by invoking one of the buttons below.  However, you can still interact with other applications.} \
{モーダルダイアログボックスです。Tk の "grab" コマンドを使用してダイアログボックスで「ローカルグラブ」しています。下のいずれかのボタンを実行することによって、このダイアログに答えるまで、このグラブによってアプリケーションの他のウィンドウでは、ポインタ関係のイベントを受け取ることができなくなっています。}] \
info 0 [langSel OK 了解] [langSel Cancel キャンセル] [langSel {Show Code} {コード参照}]]

switch $i {
    0 {puts "You pressed OK"}
    1 {puts "You pressed Cancel"}
    2 {showCode .dialog1}
}
