summaryrefslogtreecommitdiffstats
path: root/library/text.tcl
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2015-10-03 19:32:12 (GMT)
committerfvogel <fvogelnew1@free.fr>2015-10-03 19:32:12 (GMT)
commite2f4951c81ba0437d402871c1e5d5064e6c578a2 (patch)
tree3b9674cfd3a76ce7d09656a416ced7cdfe416133 /library/text.tcl
parenta7bd1b8b54051af0e4a59ca36d6fa8cbbd221487 (diff)
downloadtk-e2f4951c81ba0437d402871c1e5d5064e6c578a2.zip
tk-e2f4951c81ba0437d402871c1e5d5064e6c578a2.tar.gz
tk-e2f4951c81ba0437d402871c1e5d5064e6c578a2.tar.bz2
Fixed bug [1669632fff] case (i) - autoseparator was missing on <Control-1>
Diffstat (limited to 'library/text.tcl')
-rw-r--r--library/text.tcl3
1 files changed, 3 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