summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/about.tcl3
-rw-r--r--lib/spellcheck.tcl14
2 files changed, 11 insertions, 6 deletions
diff --git a/lib/about.tcl b/lib/about.tcl
index 47be8eb..241ab89 100644
--- a/lib/about.tcl
+++ b/lib/about.tcl
@@ -41,7 +41,8 @@ proc do_about {} {
append v "Tcl version $tcl_patchLevel"
append v ", Tk version $tk_patchLevel"
}
- if {[info exists ui_comm_spell]} {
+ if {[info exists ui_comm_spell]
+ && [$ui_comm_spell version] ne {}} {
append v "\n"
append v [$ui_comm_spell version]
}
diff --git a/lib/spellcheck.tcl b/lib/spellcheck.tcl
index a67a5f7..d0486f8 100644
--- a/lib/spellcheck.tcl
+++ b/lib/spellcheck.tcl
@@ -3,15 +3,15 @@
class spellcheck {
-field s_fd {} ; # pipe to aspell
-field s_version ; # aspell version string
-field s_lang ; # current language code
+field s_fd {} ; # pipe to aspell
+field s_version {} ; # aspell version string
+field s_lang {} ; # current language code
field w_text ; # text widget we are spelling
field w_menu ; # context menu for the widget
field s_menuidx 0 ; # last index of insertion into $w_menu
-field s_i ; # timer registration for _run callbacks
+field s_i {} ; # timer registration for _run callbacks
field s_clear 0 ; # did we erase mispelled tags yet?
field s_seen [list] ; # lines last seen from $w_text in _run
field s_checked [list] ; # lines already checked
@@ -21,6 +21,7 @@ field s_suggest ; # array, list of suggestions, keyed by misspelling
constructor init {pipe_fd ui_text ui_menu} {
set w_text $ui_text
set w_menu $ui_menu
+ array unset s_suggest
_connect $this $pipe_fd
return $this
@@ -88,7 +89,10 @@ method lang {{n {}}} {
}
method version {} {
- return "$s_version, $s_lang"
+ if {$s_version ne {}} {
+ return "$s_version, $s_lang"
+ }
+ return {}
}
method stop {} {