summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tltcl/lib/tk8.6/demos/dialog2.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tltcl/lib/tk8.6/demos/dialog2.tcl')
-rw-r--r--Master/tlpkg/tltcl/lib/tk8.6/demos/dialog2.tcl18
1 files changed, 18 insertions, 0 deletions
diff --git a/Master/tlpkg/tltcl/lib/tk8.6/demos/dialog2.tcl b/Master/tlpkg/tltcl/lib/tk8.6/demos/dialog2.tcl
new file mode 100644
index 00000000000..6ae27a88379
--- /dev/null
+++ b/Master/tlpkg/tltcl/lib/tk8.6/demos/dialog2.tcl
@@ -0,0 +1,18 @@
+# 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. If you are using an X11 window manager you will be prevented from interacting with anything on your display until you invoke one of the buttons below. This is almost always a bad idea; don't use global grabs with X11 unless you're truly desperate. On macOS systems you will not be able to interact with any window belonging to this process, but interaction with other macOS Applications will still be possible.}\
+warning 0 OK Cancel {Show Code}]
+
+switch $i {
+ 0 {puts "You pressed OK"}
+ 1 {puts "You pressed Cancel"}
+ 2 {showCode .dialog2}
+}