diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-11 20:54:52 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-11 20:54:52 (GMT) |
| commit | 28e782136de3e9e8f068fc6ab263bf91a2a47339 (patch) | |
| tree | 0226a69b61295ec036f854e1705fbd98dfd766eb /library/entry.tcl | |
| parent | 78d7109e33c9570799c85d140122d368ce9cf959 (diff) | |
| parent | 11769f5c46a422bee9ac737b4a70d390e6bab012 (diff) | |
| download | tk-28e782136de3e9e8f068fc6ab263bf91a2a47339.zip tk-28e782136de3e9e8f068fc6ab263bf91a2a47339.tar.gz tk-28e782136de3e9e8f068fc6ab263bf91a2a47339.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'library/entry.tcl')
| -rw-r--r-- | library/entry.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/entry.tcl b/library/entry.tcl index 2bd1085..dc9366b 100644 --- a/library/entry.tcl +++ b/library/entry.tcl @@ -578,7 +578,7 @@ proc ::tk::EntryTranspose w { if {$i < 2} { return } - set first [expr {$i-2}] + set first $i-2 set data [$w get] set new [string index $data $i-1][string index $data $first] $w delete $first $i |