Created branch core-stabilizer-merge-syntheticcore_stabilizer_mergecore_stabilizer_merge_synthetic

1 files changed, 33 insertions, 0 deletions

diff --git a/tests/ttk/misc.test b/tests/ttk/misc.test
new file mode 100644
index 0000000..27b87d6
--- /dev/null
+++ b/tests/ttk/misc.test
@@ -0,0 +1,33 @@
+#
+# $Id: misc.test,v 1.1 2006/10/31 01:42:27 hobbs Exp $
+#
+
+package require Tk 8.5
+package require tcltest ; namespace import -force tcltest::*
+loadTestedCommands
+
+test misc-1.0 "#1551500 -parent option in ttk::dialog doesn't work" -body {
+    ttk::dialog .dialog -parent . -type ok \
+	-message "Something to say" -title "Let's see"
+    wm transient .dialog
+} -result . -cleanup { destroy .dialog }
+
+test misc-1.1 "ttk::dialog w/no -parent option" -body {
+    toplevel .t
+    ttk::dialog .t.dialog -type ok
+    wm transient .t.dialog
+} -result .t -cleanup { destroy .t }
+
+test misc-1.2 "Explicitly specify -parent" -body {
+    toplevel .t
+    ttk::dialog .t.dialog -type ok -parent .
+    wm transient .t.dialog
+} -result . -cleanup { destroy .t }
+
+test misc-1.3 "Nontransient dialog" -body {
+    toplevel .t
+    ttk::dialog .t.dialog -type ok -parent ""
+    wm transient .t.dialog
+} -result "" -cleanup { destroy .t }
+
+tcltest::cleanupTests