diff options
| author | fvogel <fvogelnew1@free.fr> | 2017-09-22 20:25:38 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2017-09-22 20:25:38 (GMT) |
| commit | 9cd16d73c3ffe93977a7fba71483ca56869cdb88 (patch) | |
| tree | 1764946a2be3db94b910f39e0d8537a70fb6e29d /library/text.tcl | |
| parent | 2fbabdb68b0dd55663c66c88a060974f68d7f08d (diff) | |
| download | tk-9cd16d73c3ffe93977a7fba71483ca56869cdb88.zip tk-9cd16d73c3ffe93977a7fba71483ca56869cdb88.tar.gz tk-9cd16d73c3ffe93977a7fba71483ca56869cdb88.tar.bz2 | |
Fix [dd9667635d]: text anchor not set
Diffstat (limited to 'library/text.tcl')
| -rw-r--r-- | library/text.tcl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/library/text.tcl b/library/text.tcl index 9eb6e31..645776d 100644 --- a/library/text.tcl +++ b/library/text.tcl @@ -768,6 +768,9 @@ proc ::tk::TextKeySelect {w new} { } $w mark set $anchorname insert } else { + if {[catch {$w index $anchorname}]} { + $w mark set $anchorname insert + } if {[$w compare $new < $anchorname]} { set first $new set last $anchorname |