From 765239e9d26561454f125cb3033ff55db5d78ce4 Mon Sep 17 00:00:00 2001 From: "Shawn O. Pearce" Date: Thu, 14 Feb 2008 01:05:04 -0500 Subject: [PATCH 1/2] git-gui: Paper bag fix bad string length call in spellchecker We don't want the list length, we need the string length. Found due to a bad " character discovered in the text and Tcl throwing 'unmatched open quote in list'. Signed-off-by: Shawn O. Pearce --- lib/spellcheck.tcl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/spellcheck.tcl b/lib/spellcheck.tcl index 01c2c4f0d1..7f018e4009 100644 --- a/lib/spellcheck.tcl +++ b/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} { From 740b9b9ff4db2c32eb655213b44e3e5249128426 Mon Sep 17 00:00:00 2001 From: "Shawn O. Pearce" Date: Thu, 14 Feb 2008 01:07:39 -0500 Subject: [PATCH 2/2] git-gui: Correct size of dictionary name widget in options dialog We don't need to fill this entire horizontal cavity, it looks really bad on some platforms to stretch the widget out to fill the window. Signed-off-by: Shawn O. Pearce --- lib/option.tcl | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/lib/option.tcl b/lib/option.tcl index 3bfa2edf1a..ea80df0092 100644 --- a/lib/option.tcl +++ b/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