Fixed bug [1669632fff] case (i) - autoseparator was missing on <Control-1>

2 files changed, 17 insertions, 0 deletions

diff --git a/library/text.tcl b/library/text.tcl
index 0e43e61..1321334 100644
--- a/library/text.tcl
+++ b/library/text.tcl
@@ -85,6 +85,9 @@ bind Text <ButtonRelease-1> {
 }
 bind Text <Control-1> {
     %W mark set insert @%x,%y
+    if {[%W cget -autoseparators]} {
+	%W edit separator
+    }
 }
 bind Text <Left> {
     tk::TextSetCursor %W insert-1displayindices
diff --git a/tests/text.test b/tests/text.test
index fa00ce3..e170fb4 100644
--- a/tests/text.test
+++ b/tests/text.test
@@ -3205,6 +3205,20 @@ test text-25.18 {patch 1469210 - inserting after undo} -setup {
 } -cleanup {
     destroy .t
 } -result 1
+test text-25.19 {patch 1669632 (i) - undo after Contron-1} -setup {
+    destroy .t
+} -body {
+    text .t -undo 1
+    .t insert end foo\nbar
+    .t edit reset
+    .t insert 2.2 WORLD
+    event generate .t <Control-1> -x 1 -y 1
+    .t insert insert HELLO
+    .t edit undo
+    .t get 2.2 2.7
+} -cleanup {
+    destroy .t
+} -result WORLD
 
 test text-26.1 {bug fix - 624372, ControlUtfProc long lines} {
     destroy .t