diff options
| author | Petr Baudis <pasky@suse.cz> | 2008-09-25 00:12:51 +0200 |
|---|---|---|
| committer | Shawn O. Pearce <spearce@spearce.org> | 2008-09-30 12:59:18 -0700 |
| commit | 902e2bb5b7473765acc388d051f5c1c7d42015d0 (patch) | |
| tree | 37d2f9964be7cf69d397f29be2441e1496788c95 | |
| parent | 4259568d722d0a46993ad945ffdba0f084448b37 (diff) | |
| download | git-902e2bb5b7473765acc388d051f5c1c7d42015d0.tar.gz git-902e2bb5b7473765acc388d051f5c1c7d42015d0.tar.xz | |
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>
| -rw-r--r-- | lib/choose_repository.tcl | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lib/choose_repository.tcl b/lib/choose_repository.tcl index f54d88af1..909131689 100644 --- 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 \ - -font font_diff \ + -borderwidth 1 \ + -relief sunken \ -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 \ - -font font_diff \ + -borderwidth 1 \ + -relief sunken \ -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 \ - -font font_diff \ + -borderwidth 1 \ + -relief sunken \ -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 \ - -font font_diff \ + -borderwidth 1 \ + -relief sunken \ -width 50 button $w_body.where.b \ -text [mc "Browse"] \ |