Change -empty* option names to -placeholder*. Changes provided by René Zaumseil

1 files changed, 37 insertions, 0 deletions

diff --git a/tests/ttk/entry.test b/tests/ttk/entry.test
index d95ef31..5cfdfee 100644
--- a/tests/ttk/entry.test
+++ b/tests/ttk/entry.test
@@ -280,4 +280,41 @@ test entry-9.1 "Index range invariants" -setup {
     destroy .e
 }
 
+test entry-10.1 {configuration option: "-placeholdertext"} -setup {
+    pack [entry .e]
+} -body {
+    .e configure -placeholdertext {Some text}
+    .e cget -placeholdertext
+} -cleanup {
+    destroy .e
+} -result {Some text}
+
+test entry-10.2 {style option: "-placeholderforeground"} -setup {
+    pack [entry .e]
+} -body {
+    ttk::style configure TEntry -foreground red
+    .e configure -placeholdertext {Some text}
+    update
+    ttk::style configure TEntry -foreground #b3b3b3
+    update
+} -cleanup {
+    destroy .e
+} -result {}
+
+test entry-10.3 {placeholdertext on/off shown} -setup {
+    pack [entry .e]
+} -body {
+    .e configure -placeholdertext {placeholder} -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 {}
+
 tcltest::cleanupTests