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>
Giuseppe Bilotta committed
Dec 8, 2015 at 08:05 UTC
cae4b60a989c43afa075b03962906aa3d9a457c4
1 file changed
+6
-2
gitk
+6
-2
@@ -2361,6 +2361,9 @@ proc makewindow {} {
2361
${NS}::frame .bleft.mid
2362
${NS}::frame .bleft.bottom
2363
2364
+ # gap between sub-widgets
2365
+ set wgap [font measure uifont "i"]
2366
+
2367
${NS}::button .bleft.top.search -text [mc "Search"] -command dosearch
2368
pack .bleft.top.search -side left -padx 5
2369
set sstring .bleft.top.sstring
@@ -2375,8 +2378,9 @@ proc makewindow {} {
2378
-command changediffdisp -variable diffelide -value {0 1}
2379
${NS}::radiobutton .bleft.mid.new -text [mc "New version"] \
2380
-command changediffdisp -variable diffelide -value {1 0}
2381
+
2382
${NS}::label .bleft.mid.labeldiffcontext -text " [mc "Lines of context"]: "
2379
- pack .bleft.mid.diff .bleft.mid.old .bleft.mid.new -side left
2383
+ pack .bleft.mid.diff .bleft.mid.old .bleft.mid.new -side left -ipadx $wgap
2384
spinbox .bleft.mid.diffcontext -width 5 \
2385
-from 0 -increment 1 -to 10000000 \
2386
-validate all -validatecommand "diffcontextvalidate %P" \
@@ -2384,7 +2388,7 @@ proc makewindow {} {
2388
.bleft.mid.diffcontext set $diffcontext
2389
trace add variable diffcontextstring write diffcontextchange
2390
lappend entries .bleft.mid.diffcontext
2387
- pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2391
+ pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left -ipadx $wgap
2392
${NS}::checkbutton .bleft.mid.ignspace -text [mc "Ignore space change"] \
2393
-command changeignorespace -variable ignorespace
2394
pack .bleft.mid.ignspace -side left -padx 5