Commit | Line | Data |
---|---|---|
920dae64 AT |
1 | # dialog2.tcl -- |
2 | # | |
3 | # This demonstration script creates a dialog box with a global grab. | |
4 | # | |
5 | # RCS: @(#) $Id: dialog2.tcl,v 1.3 2001/11/05 10:13:53 dkf Exp $ | |
6 | ||
7 | after idle { | |
8 | .dialog2.msg configure -wraplength 4i | |
9 | } | |
10 | after 100 { | |
11 | grab -global .dialog2 | |
12 | } | |
13 | set i [tk_dialog .dialog2 "Dialog with global grab" {This dialog box uses a global grab, so it prevents you from interacting with anything on your display until you invoke one of the buttons below. Global grabs are almost always a bad idea; don't use them unless you're truly desperate.} warning 0 OK Cancel {Show Code}] | |
14 | ||
15 | switch $i { | |
16 | 0 {puts "You pressed OK"} | |
17 | 1 {puts "You pressed Cancel"} | |
18 | 2 {showCode .dialog2} | |
19 | } |