diff options
Diffstat (limited to 'library/demos/dialog2.tcl')
| -rw-r--r-- | library/demos/dialog2.tcl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/library/demos/dialog2.tcl b/library/demos/dialog2.tcl index 2f45da8..55b9ae4 100644 --- a/library/demos/dialog2.tcl +++ b/library/demos/dialog2.tcl @@ -8,10 +8,11 @@ after idle { 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}] +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 { +switch -- $i { 0 {puts "You pressed OK"} 1 {puts "You pressed Cancel"} 2 {showCode .dialog2} + default {exit} } |