summaryrefslogtreecommitdiffstats
path: root/library/text.tcl
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2015-10-04 08:31:40 (GMT)
committerfvogel <fvogelnew1@free.fr>2015-10-04 08:31:40 (GMT)
commit1ece15d3c02b97432d14fd339122e8302cc1a483 (patch)
treec26ad84ae8e600765f7a3d68ab3e19c1f9c1bf76 /library/text.tcl
parent2a9d9b8904088e9b63f5c507d775720ce88aa881 (diff)
downloadtk-1ece15d3c02b97432d14fd339122e8302cc1a483.zip
tk-1ece15d3c02b97432d14fd339122e8302cc1a483.tar.gz
tk-1ece15d3c02b97432d14fd339122e8302cc1a483.tar.bz2
Added forgotten comment for case (i)
Diffstat (limited to 'library/text.tcl')
-rw-r--r--library/text.tcl2
1 files changed, 2 insertions, 0 deletions
diff --git a/library/text.tcl b/library/text.tcl
index 4a0e2c7..080b133 100644
--- a/library/text.tcl
+++ b/library/text.tcl
@@ -85,6 +85,8 @@ bind Text <ButtonRelease-1> {
}
bind Text <Control-1> {
%W mark set insert @%x,%y
+ # An operation that moves the insert mark without making it
+ # one end of the selection must insert an autoseparator
if {[%W cget -autoseparators]} {
%W edit separator
}