git-gui: Make input boxes in init/clone/open dialogs consistent

Before, the input boxes would not be sunken and would have larger border,
which is inconsistent with the rest of the inputboxes for repository
locations in the git-gui UI.

Signed-off-by: Petr Baudis <petr.baudis@novartis.com>
Signed-off-by: Shawn O. Pearce <spearce@spearce.org>

diff --git a/lib/choose_repository.tcl b/lib/choose_repository.tcl
index f54d88af16b9e433e4822410f756882ec5dd8db9..909131689ea837cb67bd587a6acc8b5eb3127c4e 100644 (file)
--- a/lib/choose_repository.tcl
+++ b/lib/choose_repository.tcl
@@ -381,7 +381,8 @@ method _do_new {} {
        label $w_body.where.l -text [mc "Directory:"]
        entry $w_body.where.t \
                -textvariable @local_path \
        label $w_body.where.l -text [mc "Directory:"]
        entry $w_body.where.t \
                -textvariable @local_path \

-               -font font_diff \
+               -borderwidth 1 \
+               -relief sunken \

                -width 50
        button $w_body.where.b \
                -text [mc "Browse"] \
                -width 50
        button $w_body.where.b \
                -text [mc "Browse"] \


@@ -466,7 +467,8 @@ method _do_clone {} {
        label $args.origin_l -text [mc "Source Location:"]
        entry $args.origin_t \
                -textvariable @origin_url \
        label $args.origin_l -text [mc "Source Location:"]
        entry $args.origin_t \
                -textvariable @origin_url \

-               -font font_diff \
+               -borderwidth 1 \
+               -relief sunken \

                -width 50
        button $args.origin_b \
                -text [mc "Browse"] \
                -width 50
        button $args.origin_b \
                -text [mc "Browse"] \


@@ -476,7 +478,8 @@ method _do_clone {} {
        label $args.where_l -text [mc "Target Directory:"]
        entry $args.where_t \
                -textvariable @local_path \
        label $args.where_l -text [mc "Target Directory:"]
        entry $args.where_t \
                -textvariable @local_path \

-               -font font_diff \
+               -borderwidth 1 \
+               -relief sunken \

                -width 50
        button $args.where_b \
                -text [mc "Browse"] \
                -width 50
        button $args.where_b \
                -text [mc "Browse"] \


@@ -979,7 +982,8 @@ method _do_open {} {
        label $w_body.where.l -text [mc "Repository:"]
        entry $w_body.where.t \
                -textvariable @local_path \
        label $w_body.where.l -text [mc "Repository:"]
        entry $w_body.where.t \
                -textvariable @local_path \

-               -font font_diff \
+               -borderwidth 1 \
+               -relief sunken \

                -width 50
        button $w_body.where.b \
                -text [mc "Browse"] \
                -width 50
        button $w_body.where.b \
                -text [mc "Browse"] \