summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJunio C Hamano <gitster@pobox.com>2008-02-16 17:42:49 -0800
committerJunio C Hamano <gitster@pobox.com>2008-02-16 17:42:49 -0800
commit67cdec1e58f1f9bc17d500b04e856042e0b2bf59 (patch)
treea38ac4515ec07dcd453a3a1accbedbb763d94b43
parentf124e986cf19e8f36895ae474d50f8d389e73d02 (diff)
parent740b9b9ff4db2c32eb655213b44e3e5249128426 (diff)
downloadgit-67cdec1e58f1f9bc17d500b04e856042e0b2bf59.tar.gz
Merge git://repo.or.cz/git-gui
* git://repo.or.cz/git-gui: git-gui: Correct size of dictionary name widget in options dialog git-gui: Paper bag fix bad string length call in spellchecker
-rw-r--r--git-gui/lib/option.tcl4
-rw-r--r--git-gui/lib/spellcheck.tcl2
2 files changed, 2 insertions, 4 deletions
diff --git a/git-gui/lib/option.tcl b/git-gui/lib/option.tcl
index 3bfa2edf1a..ea80df0092 100644
--- a/git-gui/lib/option.tcl
+++ b/git-gui/lib/option.tcl
@@ -193,9 +193,7 @@ proc do_options {} {
${f}_config_new(gui.spellingdictionary) \
$all_dicts
pack $w.$f.$optid.l -side left -anchor w -fill x
- pack $w.$f.$optid.v -side left -anchor w \
- -fill x -expand 1 \
- -padx 5
+ pack $w.$f.$optid.v -side right -anchor e -padx 5
pack $w.$f.$optid -side top -anchor w -fill x
}
unset all_dicts
diff --git a/git-gui/lib/spellcheck.tcl b/git-gui/lib/spellcheck.tcl
index 01c2c4f0d1..7f018e4009 100644
--- a/git-gui/lib/spellcheck.tcl
+++ b/git-gui/lib/spellcheck.tcl
@@ -308,7 +308,7 @@ method _read {} {
# try to round out the word.
#
while {$curr ne $orig
- && [string equal -length [llength $curr] $curr $orig]} {
+ && [string equal -length [string length $curr] $curr $orig]} {
set n_loc [$w_text index "$e_loc +1c"]
set n_curr [$w_text get $b_loc $n_loc]
if {$n_curr eq $curr} {