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>
Petr Baudis committed
Sep 25, 2008 at 00:12 UTC
902e2bb5b7473765acc388d051f5c1c7d42015d0
1 file changed
+8
-4
lib/choose_repository.tcl
+8
-4
@@ -381,7 +381,8 @@ method _do_new {} {
381
label $w_body.where.l -text [mc "Directory:"]
382
entry $w_body.where.t \
383
-textvariable @local_path \
384
- -font font_diff \
384
+ -borderwidth 1 \
385
+ -relief sunken \
386
-width 50
387
button $w_body.where.b \
388
-text [mc "Browse"] \
@@ -466,7 +467,8 @@ method _do_clone {} {
467
label $args.origin_l -text [mc "Source Location:"]
468
entry $args.origin_t \
469
-textvariable @origin_url \
469
- -font font_diff \
470
+ -borderwidth 1 \
471
+ -relief sunken \
472
-width 50
473
button $args.origin_b \
474
-text [mc "Browse"] \
@@ -476,7 +478,8 @@ method _do_clone {} {
478
label $args.where_l -text [mc "Target Directory:"]
479
entry $args.where_t \
480
-textvariable @local_path \
479
- -font font_diff \
481
+ -borderwidth 1 \
482
+ -relief sunken \
483
-width 50
484
button $args.where_b \
485
-text [mc "Browse"] \
@@ -979,7 +982,8 @@ method _do_open {} {
982
label $w_body.where.l -text [mc "Repository:"]
983
entry $w_body.where.t \
984
-textvariable @local_path \
982
- -font font_diff \
985
+ -borderwidth 1 \
986
+ -relief sunken \
987
-width 50
988
button $w_body.where.b \
989
-text [mc "Browse"] \