mirror/git
1
0
Fork 0
mirror of https://github.com/git/git.git synced 2024-10-03 11:41:26 +02:00
Code

git-gui: Always offer scrollbars for branch lists.

Browse Source 
Anytime we use a listbox to show branch names its possible for the
listbox to exceed 10 entries (actually its probably very common).
So we should always offer a scrollbar for the Y axis on these
listboxes.  I just forgot to add it when I defined them.

Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
This commit is contained in:
Shawn O. Pearce 2007-01-26 04:16:39 -05:00
parent 5f39dbf64f
commit 729a6f60dd
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
git-gui.sh
View File

@ -2129,16 +2129,19 @@ proc do_delete_branch {} {
-font font_ui
listbox $w.list.l \
-height 10 \
-width 50 \
-width 70 \
-selectmode extended \
-yscrollcommand [list $w.list.sby set] \
-font font_ui
foreach h $all_heads {
if {$h ne $current_branch} {
$w.list.l insert end $h
}
}
pack $w.list.l -fill both -pady 5 -padx 5
pack $w.list -fill both -pady 5 -padx 5
scrollbar $w.list.sby -command [list $w.list.l yview]
pack $w.list.sby -side right -fill y
pack $w.list.l -side left -fill both -expand 1
pack $w.list -fill both -expand 1 -pady 5 -padx 5
labelframe $w.validate \
-text {Delete Only If} \
@ -2510,8 +2513,9 @@ proc do_push_anywhere {} {
-font font_ui
listbox $w.source.l \
-height 10 \
-width 50 \
-width 70 \
-selectmode extended \
-yscrollcommand [list $w.source.sby set] \
-font font_ui
foreach h $all_heads {
$w.source.l insert end $h
@ -2519,8 +2523,10 @@ proc do_push_anywhere {} {
$w.source.l select set end
}
}
pack $w.source.l -fill both -pady 5 -padx 5
pack $w.source -fill both -pady 5 -padx 5
scrollbar $w.source.sby -command [list $w.source.l yview]
pack $w.source.sby -side right -fill y
pack $w.source.l -side left -fill both -expand 1
pack $w.source -fill both -expand 1 -pady 5 -padx 5
labelframe $w.dest \
-text {Destination Repository} \
@ -2782,7 +2788,7 @@ proc do_local_merge {} {
-font font_ui
listbox $w.source.l \
-height 10 \
-width 25 \
-width 70 \
-selectmode extended \
-yscrollcommand [list $w.source.sby set] \
-font font_ui