From e2f4951c81ba0437d402871c1e5d5064e6c578a2 Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Sat, 3 Oct 2015 19:32:12 +0000
Subject: Fixed bug [1669632fff] case (i) - autoseparator was missing on
 <Control-1>

---
 library/text.tcl |  3 +++
 tests/text.test  | 14 ++++++++++++++
 2 files changed, 17 insertions(+)

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
-- 
cgit v0.12