diff options
| -rw-r--r-- | library/text.tcl | 2 |
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 } |