diff options
| -rw-r--r-- | git-gui/lib/option.tcl | 4 | ||||
| -rw-r--r-- | git-gui/lib/spellcheck.tcl | 2 |
2 files changed, 2 insertions, 4 deletions
diff --git a/git-gui/lib/option.tcl b/git-gui/lib/option.tcl index 3bfa2edf1..ea80df009 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 01c2c4f0d..7f018e400 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} { |