diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-07-03 12:35:33 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-07-03 12:35:33 (GMT) |
commit | e2ab0fe9d3d4cceee9533e22a3cc5aaf7d2e2f70 (patch) | |
tree | 4e158ecac8a663d92d51abf6f67e536b3ffd4683 /library/entry.tcl | |
parent | 3ade8476dfc32458c17b29d07b49998dfe667569 (diff) | |
download | tk-e2ab0fe9d3d4cceee9533e22a3cc5aaf7d2e2f70.zip tk-e2ab0fe9d3d4cceee9533e22a3cc5aaf7d2e2f70.tar.gz tk-e2ab0fe9d3d4cceee9533e22a3cc5aaf7d2e2f70.tar.bz2 |
Minor optimizations in ::tk::EntryBackspace and ::tk::EntryTranspose
Diffstat (limited to 'library/entry.tcl')
-rw-r--r-- | library/entry.tcl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/library/entry.tcl b/library/entry.tcl index 9cc9f6f..2f7ea07 100644 --- a/library/entry.tcl +++ b/library/entry.tcl @@ -518,9 +518,9 @@ proc ::tk::EntryBackspace w { if {[$w selection present]} { $w delete sel.first sel.last } else { - set x [expr {[$w index insert] - 1}] - if {$x >= 0} { - $w delete $x + set x [$w index insert] + if {$x > 0} { + $w delete [expr {$x - 1}] } if {[$w index @0] >= [$w index insert]} { set range [$w xview] @@ -575,10 +575,10 @@ proc ::tk::EntryTranspose w { if {$i < [$w index end]} { incr i } - set first [expr {$i-2}] - if {$first < 0} { + if {$first < 2} { return } + set first [expr {$i-2}] set data [$w get] set new [string index $data [expr {$i-1}]][string index $data $first] $w delete $first $i |