summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tltcl/lib/tk8.6/demos/dialog1.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tltcl/lib/tk8.6/demos/dialog1.tcl')
-rw-r--r--Master/tlpkg/tltcl/lib/tk8.6/demos/dialog1.tcl25
1 files changed, 25 insertions, 0 deletions
diff --git a/Master/tlpkg/tltcl/lib/tk8.6/demos/dialog1.tcl b/Master/tlpkg/tltcl/lib/tk8.6/demos/dialog1.tcl
new file mode 100644
index 00000000000..976e9550af6
--- /dev/null
+++ b/Master/tlpkg/tltcl/lib/tk8.6/demos/dialog1.tcl
@@ -0,0 +1,25 @@
+# dialog1.tcl --
+#
+# This demonstration script creates a dialog box with a local grab.
+
+interp create slave
+load {} Tk slave
+slave eval {
+ wm title . slave
+ wm geometry . +700+30
+ pack [text .t -width 30 -height 10]
+}
+
+after idle {.dialog1.msg configure -wraplength 4i}
+set i [tk_dialog .dialog1 "Dialog with local grab" {This is a modal dialog box. It uses Tk's "grab" command to create a "local grab" on the dialog box. The grab prevents any mouse or keyboard events from getting to any other windows in the application until you have answered the dialog by invoking one of the buttons below. However, you can still interact with other applications. For example, you should be able to edit text in the window named "slave" which was created by a slave interpreter.} \
+info 0 OK Cancel {Show Code}]
+
+switch $i {
+ 0 {puts "You pressed OK"}
+ 1 {puts "You pressed Cancel"}
+ 2 {showCode .dialog1}
+}
+
+if {[interp exists slave]} {
+ interp delete slave
+}