gitk: Let .bleft.mid widgets 'breathe'

The widgets on top of the diff window are very tightly packed. Make
them breathe a little by adding an 'i'-spaced padding between them.

Signed-off-by: Giuseppe Bilotta <giuseppe.bilotta@gmail.com>
Signed-off-by: Paul Mackerras <paulus@samba.org>
This commit is contained in:
Giuseppe Bilotta 2015-12-08 08:05:51 +01:00 коммит произвёл Paul Mackerras
Родитель 6cb73c84e1
Коммит cae4b60a98
1 изменённых файлов: 6 добавлений и 2 удалений

8
gitk
Просмотреть файл

@ -2361,6 +2361,9 @@ proc makewindow {} {
${NS}::frame .bleft.mid ${NS}::frame .bleft.mid
${NS}::frame .bleft.bottom ${NS}::frame .bleft.bottom
# gap between sub-widgets
set wgap [font measure uifont "i"]
${NS}::button .bleft.top.search -text [mc "Search"] -command dosearch ${NS}::button .bleft.top.search -text [mc "Search"] -command dosearch
pack .bleft.top.search -side left -padx 5 pack .bleft.top.search -side left -padx 5
set sstring .bleft.top.sstring set sstring .bleft.top.sstring
@ -2375,8 +2378,9 @@ proc makewindow {} {
-command changediffdisp -variable diffelide -value {0 1} -command changediffdisp -variable diffelide -value {0 1}
${NS}::radiobutton .bleft.mid.new -text [mc "New version"] \ ${NS}::radiobutton .bleft.mid.new -text [mc "New version"] \
-command changediffdisp -variable diffelide -value {1 0} -command changediffdisp -variable diffelide -value {1 0}
${NS}::label .bleft.mid.labeldiffcontext -text " [mc "Lines of context"]: " ${NS}::label .bleft.mid.labeldiffcontext -text " [mc "Lines of context"]: "
pack .bleft.mid.diff .bleft.mid.old .bleft.mid.new -side left pack .bleft.mid.diff .bleft.mid.old .bleft.mid.new -side left -ipadx $wgap
spinbox .bleft.mid.diffcontext -width 5 \ spinbox .bleft.mid.diffcontext -width 5 \
-from 0 -increment 1 -to 10000000 \ -from 0 -increment 1 -to 10000000 \
-validate all -validatecommand "diffcontextvalidate %P" \ -validate all -validatecommand "diffcontextvalidate %P" \
@ -2384,7 +2388,7 @@ proc makewindow {} {
.bleft.mid.diffcontext set $diffcontext .bleft.mid.diffcontext set $diffcontext
trace add variable diffcontextstring write diffcontextchange trace add variable diffcontextstring write diffcontextchange
lappend entries .bleft.mid.diffcontext lappend entries .bleft.mid.diffcontext
pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left -ipadx $wgap
${NS}::checkbutton .bleft.mid.ignspace -text [mc "Ignore space change"] \ ${NS}::checkbutton .bleft.mid.ignspace -text [mc "Ignore space change"] \
-command changeignorespace -variable ignorespace -command changeignorespace -variable ignorespace
pack .bleft.mid.ignspace -side left -padx 5 pack .bleft.mid.ignspace -side left -padx 5