git-gui: span widgets over the full file output area in the blame view

Signed-off-by: Bert Wesarg <bert.wesarg@googlemail.com>
Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>

diff --git a/lib/blame.tcl b/lib/blame.tcl
index 49eae1912a4040fff2a7799aa9fb73482cad3f1e..b031e66a4b0ec917cce81b083a299c031bd672ec 100644 (file)
--- a/lib/blame.tcl
+++ b/lib/blame.tcl
@@ -219,7 +219,8 @@ constructor new {i_commit i_path i_jump} {
        eval grid $w_columns $w.file_pane.out.sby -sticky nsew
        grid conf \
                $w.file_pane.out.sbx \
        eval grid $w_columns $w.file_pane.out.sby -sticky nsew
        grid conf \
                $w.file_pane.out.sbx \

-               -column [expr {[llength $w_columns] - 1}] \
+               -column 0 \
+               -columnspan [expr {[llength $w_columns] + 1}] \

                -sticky we
        grid columnconfigure \
                $w.file_pane.out \
                -sticky we
        grid columnconfigure \
                $w.file_pane.out \


@@ -229,12 +230,14 @@ constructor new {i_commit i_path i_jump} {
 
        set finder [::searchbar::new \
                $w.file_pane.out.ff $w_file \
 
        set finder [::searchbar::new \
                $w.file_pane.out.ff $w_file \

-               -column [expr {[llength $w_columns] - 1}] \
+               -column 0 \
+               -columnspan [expr {[llength $w_columns] + 1}] \

                ]
 
        set gotoline [::linebar::new \
                $w.file_pane.out.lf $w_file \
                ]
 
        set gotoline [::linebar::new \
                $w.file_pane.out.lf $w_file \

-               -column [expr {[llength $w_columns] - 1}] \
+               -column 0 \
+               -columnspan [expr {[llength $w_columns] + 1}] \

                ]
 
        set w_cviewer $w.file_pane.cm.t
                ]
 
        set w_cviewer $w.file_pane.cm.t