diff options
Diffstat (limited to 'tk8.6/library/demos/dialog2.tcl')
| -rw-r--r-- | tk8.6/library/demos/dialog2.tcl | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/tk8.6/library/demos/dialog2.tcl b/tk8.6/library/demos/dialog2.tcl deleted file mode 100644 index 2f45da8..0000000 --- a/tk8.6/library/demos/dialog2.tcl +++ /dev/null @@ -1,17 +0,0 @@ -# dialog2.tcl -- -# -# This demonstration script creates a dialog box with a global grab. - -after idle { - .dialog2.msg configure -wraplength 4i -} -after 100 { - grab -global .dialog2 -} -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}] - -switch $i { - 0 {puts "You pressed OK"} - 1 {puts "You pressed Cancel"} - 2 {showCode .dialog2} -} |