From 14cd447c1446eaa31505f7e5e8c9ef54ff28e465 Mon Sep 17 00:00:00 2001 From: Nick White Date: Thu, 21 May 2015 10:16:17 +0100 Subject: Don't delete then re-add link alt text, as it removes images that are links --- tkread | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/tkread b/tkread index 5a3038c..93efa40 100755 --- a/tkread +++ b/tkread @@ -187,7 +187,7 @@ proc markup {widget} { set cur [$widget search "](" $cur end] if {$cur == ""} { break } set altend $cur - set srcstart [indexmovechar $cur "+ 1"] + set srcstart [indexmovechar $cur "+ 2"] set cur [$widget search ")" $cur end] if {$cur == ""} { break } set srcend $cur @@ -195,11 +195,10 @@ proc markup {widget} { set alt [$widget get $altstart $altend] set src [$widget get $srcstart $srcend] - $widget delete [indexmovechar $altstart "- 1"] [indexmovechar $srcend "+ 1"] - set insertion [indexmovechar $altstart "- 1"] - $widget insert $insertion $alt + $widget delete $altend [indexmovechar $srcend "+ 1"] + $widget delete [indexmovechar $altstart "- 1"] $altstart - set cur [indexmovechar $insertion "+ [string length $alt]"] + set cur [indexmovechar $altend "- 1"] set cur [$widget search {[} $cur end] } -- cgit v1.2.3