undef/git-commit-vandalism
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source 
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>
This commit is contained in:
Petr Baudis 2008-09-25 00:12:51 +02:00 committed by Shawn O. Pearce
parent 4259568d72
commit 902e2bb5b7
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lib/choose_repository.tcl
View File

@ -381,7 +381,8 @@ method _do_new {} {
label $w_body.where.l -text [mc "Directory:"] label $w_body.where.l -text [mc "Directory:"]
entry $w_body.where.t \ entry $w_body.where.t \
-textvariable @local_path \ -textvariable @local_path \
-font font_diff \ -borderwidth 1 \
-relief sunken \
-width 50 -width 50
button $w_body.where.b \ button $w_body.where.b \
-text [mc "Browse"] \ -text [mc "Browse"] \
@ -466,7 +467,8 @@ method _do_clone {} {
label $args.origin_l -text [mc "Source Location:"] label $args.origin_l -text [mc "Source Location:"]
entry $args.origin_t \ entry $args.origin_t \
-textvariable @origin_url \ -textvariable @origin_url \
-font font_diff \ -borderwidth 1 \
-relief sunken \
-width 50 -width 50
button $args.origin_b \ button $args.origin_b \
-text [mc "Browse"] \ -text [mc "Browse"] \
@ -476,7 +478,8 @@ method _do_clone {} {
label $args.where_l -text [mc "Target Directory:"] label $args.where_l -text [mc "Target Directory:"]
entry $args.where_t \ entry $args.where_t \
-textvariable @local_path \ -textvariable @local_path \
-font font_diff \ -borderwidth 1 \
-relief sunken \
-width 50 -width 50
button $args.where_b \ button $args.where_b \
-text [mc "Browse"] \ -text [mc "Browse"] \
@ -979,7 +982,8 @@ method _do_open {} {
label $w_body.where.l -text [mc "Repository:"] label $w_body.where.l -text [mc "Repository:"]
entry $w_body.where.t \ entry $w_body.where.t \
-textvariable @local_path \ -textvariable @local_path \
-font font_diff \ -borderwidth 1 \
-relief sunken \
-width 50 -width 50
button $w_body.where.b \ button $w_body.where.b \
-text [mc "Browse"] \ -text [mc "Browse"] \