diff options
Diffstat (limited to 'tests/ttk/misc.test')
-rw-r--r-- | tests/ttk/misc.test | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/tests/ttk/misc.test b/tests/ttk/misc.test deleted file mode 100644 index 27b87d6..0000000 --- a/tests/ttk/misc.test +++ /dev/null @@ -1,33 +0,0 @@ -# -# $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 |