1# dialog2.tcl -- 2# 3# This demonstration script creates a dialog box with a global grab. 4# 5# RCS: @(#) $Id$ 6 7after idle { 8 .dialog2.msg configure -wraplength 4i 9} 10after 100 { 11 grab -global .dialog2 12} 13set 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 15switch $i { 16 0 {puts "You pressed OK"} 17 1 {puts "You pressed Cancel"} 18 2 {showCode .dialog2} 19} 20