3 # This demonstration script creates a dialog box with a local grab.
5 # RCS: @(#) $Id: dialog1.tcl,v 1.2 1998/09/14 18:23:27 stanton Exp $
7 after idle
{.dialog1.msg configure
-wraplength 4i
}
8 set i
[tk_dialog .dialog1
"Dialog with local grab" {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.
} \
9 info 0 OK Cancel
{Show Code
}]
12 0 {puts "You pressed OK"}
13 1 {puts "You pressed Cancel"}