summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: dd09628)
raw | patch | inline | side by side (parent: dd09628)
author | Shawn O. Pearce <spearce@spearce.org> | |
Thu, 21 Feb 2008 02:55:43 +0000 (21:55 -0500) | ||
committer | Shawn O. Pearce <spearce@spearce.org> | |
Thu, 21 Feb 2008 05:22:06 +0000 (00:22 -0500) |
If we reconnect to the spellchecker there is no reason to resetup
the binding for button 3 on our text widget to show the suggestion
list (if available).
Plus, by moving it out of _connect and into init we can now break
out of _connect earlier if there is something wrong with the pipe,
for example if the dictionary we were asked to load is not valid.
Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
the binding for button 3 on our text widget to show the suggestion
list (if available).
Plus, by moving it out of _connect and into init we can now break
out of _connect earlier if there is something wrong with the pipe,
for example if the dictionary we were asked to load is not valid.
Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
lib/spellcheck.tcl | patch | blob | history |
diff --git a/lib/spellcheck.tcl b/lib/spellcheck.tcl
index f359356c84d01b14ddd3168ea39f5688a7463656..a37ff5f8f315e56270bec45ea4fa7394fb0a43af 100644 (file)
--- a/lib/spellcheck.tcl
+++ b/lib/spellcheck.tcl
set w_menu $ui_menu
array unset s_suggest
+ bind_button3 $w_text [cb _popup_suggest %X %Y @%x,%y]
_connect $this $pipe_fd
return $this
}
$w_text tag conf misspelled \
-foreground red \
-underline 1
- bind_button3 $w_text [cb _popup_suggest %X %Y @%x,%y]
array unset s_suggest
set s_seen [list]