|
|
@ -1802,6 +1802,7 @@ proc selectline {l isnew} { |
|
|
|
set linkid [string range $comment $s $e] |
|
|
|
set linkid [string range $comment $s $e] |
|
|
|
if {![info exists idline($linkid)]} continue |
|
|
|
if {![info exists idline($linkid)]} continue |
|
|
|
incr e |
|
|
|
incr e |
|
|
|
|
|
|
|
incr i |
|
|
|
$ctext tag conf link$i -foreground blue -underline 1 |
|
|
|
$ctext tag conf link$i -foreground blue -underline 1 |
|
|
|
$ctext tag add link$i "$commentstart + $s c" "$commentstart + $e c" |
|
|
|
$ctext tag add link$i "$commentstart + $s c" "$commentstart + $e c" |
|
|
|
$ctext tag bind link$i <1> [list selectline $idline($linkid) 1] |
|
|
|
$ctext tag bind link$i <1> [list selectline $idline($linkid) 1] |
|
|
|