index 78f344f08f34842c134b6b0e22b6eb8c49b1dbbd..e6120303e940ee6c849bf706415c1b450e68b57f 100644 (file)
error_popup [strcat [mc "Unrecognized spell checker"] ":\n\n$s_version"]
return
}
error_popup [strcat [mc "Unrecognized spell checker"] ":\n\n$s_version"]
return
}
- set s_version [string range $s_version 5 end]
+ set s_version [string range [string trim $s_version] 5 end]
regexp \
{International Ispell Version .* \(but really (Aspell .*?)\)$} \
$s_version _junk s_version
regexp \
{International Ispell Version .* \(but really (Aspell .*?)\)$} \
$s_version _junk s_version
method _read {} {
while {[gets $s_fd line] >= 0} {
set lineno [lindex $s_pending 0 0]
method _read {} {
while {[gets $s_fd line] >= 0} {
set lineno [lindex $s_pending 0 0]
+ set line [string trim $line]
if {$s_clear} {
$w_text tag remove misspelled "$lineno.0" "$lineno.end"
if {$s_clear} {
$w_text tag remove misspelled "$lineno.0" "$lineno.end"