Merge 8.7

tcltk · Jan 29, 2024 · fa3fbf8 · fa3fbf8
2 parents 8ff51ea + 0cb2399
commit fa3fbf8
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 18 deletions.
diff --git a/tests/spinbox.test b/tests/spinbox.test
@@ -3892,22 +3892,15 @@ test spinbox-25.3 {Bugs [2a32225cd1] and [9fa3e08243]} -setup {
     destroy .s
     pack [spinbox .s]
     update
-    set res {}
 } -body {
     .s insert end "A sample text"
     .s icursor end
     event generate .s <<PrevWord>>  ; # shall move insert to index 9
     .s delete insert end
-    lappend res [.s get]
-    .s delete 0 end
-    .s insert end "A sample text"
-    .s icursor 2
-    event generate .s <<NextWord>>  ; # shall move insert to index 9
-    .s delete 0 insert
-    lappend res [.s get]
+    .s get
 } -cleanup {
     destroy .s
-} -result {{A sample } text}
+} -result {A sample }
 
 # Collected comments about lacks from the test
 # XXX Still need to write tests for SpinboxBlinkProc, SpinboxFocusProc,

diff --git a/tests/ttk/spinbox.test b/tests/ttk/spinbox.test
@@ -291,22 +291,15 @@ test spinbox-11.2 {Bugs [2a32225cd1] and [9fa3e08243]} -setup {
     destroy .s
     pack [ttk::spinbox .s]
     update
-    set res {}
 } -body {
     .s insert end "A sample text"
     .s icursor end
     event generate .s <<PrevWord>>  ; # shall move insert to index 9
     .s delete insert end
-    lappend res [.s get]
-    .s delete 0 end
-    .s insert end "A sample text"
-    .s icursor 2
-    event generate .s <<NextWord>>  ; # shall move insert to index 9
-    .s delete 0 insert
-    lappend res [.s get]
+    .s get
 } -cleanup {
     destroy .s
-} -result {{A sample } text}
+} -result {A sample }
 
 
 # nostomp: NB intentional difference between ttk::spinbox and tk::spinbox;