Sha256: 6374ba73b8f185c0eb5418104ab7ec63b7a4069ac98a44a5d4296bab5992391d
Contents?: true
Size: 976 Bytes
Versions: 6
Compression:
Stored size: 976 Bytes
Contents
#
# misc.test,v 1.1 2006/09/13 14:05:07 jenglish Exp
#
package require Tk
package require tcltest ; namespace import -force tcltest::*
loadTestedCommands
lappend auto_path .
package require tile
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
Version data entries
6 entries across 6 versions & 1 rubygems