diff options
| -rw-r--r-- | library/text.tcl | 3 | ||||
| -rw-r--r-- | tests/text.test | 14 |
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 |