diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-09-27 10:08:02 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-09-27 10:08:02 (GMT) |
commit | 94ca8fddecf8a8e3b0e446e9d71eaf77bda8f1e6 (patch) | |
tree | 0d9541fd8369d4716b0cc2beb3deefdf7a0f24b0 /library | |
parent | 1119e63470fa87743572b452320e7d583e5faf19 (diff) | |
parent | 8480a73fc23b0812d1681db23c634c3555e8d263 (diff) | |
download | tk-94ca8fddecf8a8e3b0e446e9d71eaf77bda8f1e6.zip tk-94ca8fddecf8a8e3b0e446e9d71eaf77bda8f1e6.tar.gz tk-94ca8fddecf8a8e3b0e446e9d71eaf77bda8f1e6.tar.bz2 |
Fix [720879afe9] - WM_CHAR message handling. Patch from Christian Werner backported from http://www.androwish.org/index.html/info/a0da5845594cec28
Diffstat (limited to 'library')
-rw-r--r-- | library/text.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/library/text.tcl b/library/text.tcl index 02a8939..59e395c 100644 --- a/library/text.tcl +++ b/library/text.tcl @@ -1261,17 +1261,17 @@ proc ::tk::TextUndoRedoProcessMarks {w} { set il1 [lindex $ind $i] set ir1 [lindex $ind [expr {$i + 1}]] lappend indices $il1 $ir1 - + for {set j [expr {$i + 2}]} {$j < $nUndoMarks} {incr j 2} { set il2 [lindex $ind $j] set ir2 [lindex $ind [expr {$j + 1}]] - + if {[$w compare $il2 > $ir1]} { # second range starts after the end of first range # -> further second ranges do not need to be considered # because ranges were sorted by increasing first index set j $nUndoMarks - + } else { if {[$w compare $ir2 > $ir1]} { # second range overlaps first range @@ -1289,7 +1289,7 @@ proc ::tk::TextUndoRedoProcessMarks {w} { set ind [lreplace $ind $j [expr {$j + 1}]] incr j -2 incr nUndoMarks -2 - + } } |