diff options
author | fvogel <fvogelnew1@free.fr> | 2018-01-31 17:48:35 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2018-01-31 17:48:35 (GMT) |
commit | 5db621cadf3e9080643fbd089e5db9ffe1003200 (patch) | |
tree | e32136bd73029607ea1298e2b43ea67ce6c29a09 /tests | |
parent | 729e9e1b7d1fc90806afaed638caee2ef76e58eb (diff) | |
download | tk-5db621cadf3e9080643fbd089e5db9ffe1003200.zip tk-5db621cadf3e9080643fbd089e5db9ffe1003200.tar.gz tk-5db621cadf3e9080643fbd089e5db9ffe1003200.tar.bz2 |
Implementation of TIP #496 - Display hints in ::ttk::entry (by René Zaumseil)
Diffstat (limited to 'tests')
-rw-r--r-- | tests/entry.test | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/tests/entry.test b/tests/entry.test index fbaf6a5..aa2b9fd 100644 --- a/tests/entry.test +++ b/tests/entry.test @@ -627,6 +627,23 @@ test entry-1.58 {configuration option: "xscrollcommand" for entry} -setup { destroy .e } -result {Some command} +test entry-1.59 {configuration option: "emptytext"} -setup { + pack [entry .e] +} -body { + .e configure -emptytext {Some text} + .e cget -emptytext +} -cleanup { + destroy .e +} -result {Some text} + +test entry-1.60 {configuration option: "emptyforeground"} -setup { + pack [entry .e] +} -body { + .e configure -emptytext {Some text} -emptyforeground red + .e cget -emptyforeground +} -cleanup { + destroy .e +} -result {red} test entry-2.1 {Tk_EntryCmd procedure} -body { @@ -3502,6 +3519,22 @@ test entry-24.1 {textvariable lives in a non-existing namespace} -setup { destroy .e } -result {can't trace "thisnsdoesntexist::myvar": parent namespace doesn't exist} +test entry-25.1 {emptytext on/off shown} -setup { + pack [entry .e] +} -body { + .e configure -emptytext {empty} -textvariable ::_e + update; after 1000 + set ::_e entry + update; after 1000 + set ::_e {} + update; after 1000 + set ::_e entry + update; after 1000 +} -cleanup { + destroy .e + unset ::_e +} -result {} + # Gathered comments about lacks # XXX Still need to write tests for EntryBlinkProc, EntryFocusProc, # and EntryTextVarProc. |