gitk: Use check-buttons' -text property instead of separate labels
Previously the check-buttons' labels in the Preferences were separate widgets. This had the disadvantage that in order to toggle the check-button with the mouse the check-box had to be clicked. With this change the check-box can also be toggled by clicking the label. Signed-off-by: Johannes Sixt <j6t@kdbg.org> Signed-off-by: Paul Mackerras <paulus@samba.org>
Johannes Sixt committed
Dec 2, 2008 at 21:42 UTC
adcbec13b9bbcb5e4a15de403038ff91d55b7ece
1 file changed
+10
-20
gitk
+10
-20
@@ -10105,15 +10105,11 @@ proc doprefs {} {
10105
-font optionfont
10106
spinbox $top.maxpct -from 1 -to 100 -width 4 -textvariable maxgraphpct
10107
grid x $top.maxpctl $top.maxpct -sticky w
10108
- frame $top.showlocal
10109
- label $top.showlocal.l -text [mc "Show local changes"] -font optionfont
10110
- checkbutton $top.showlocal.b -variable showlocalchanges
10111
- pack $top.showlocal.b $top.showlocal.l -side left
10108
+ checkbutton $top.showlocal -text [mc "Show local changes"] \
10109
+ -font optionfont -variable showlocalchanges
10110
grid x $top.showlocal -sticky w
10113
- frame $top.autoselect
10114
- label $top.autoselect.l -text [mc "Auto-select SHA1"] -font optionfont
10115
- checkbutton $top.autoselect.b -variable autoselect
10116
- pack $top.autoselect.b $top.autoselect.l -side left
10111
+ checkbutton $top.autoselect -text [mc "Auto-select SHA1"] \
10112
+ -font optionfont -variable autoselect
10113
grid x $top.autoselect -sticky w
10114
10115
label $top.ddisp -text [mc "Diff display options"]
@@ -10121,20 +10117,14 @@ proc doprefs {} {
10117
label $top.tabstopl -text [mc "Tab spacing"] -font optionfont
10118
spinbox $top.tabstop -from 1 -to 20 -width 4 -textvariable tabstop
10119
grid x $top.tabstopl $top.tabstop -sticky w
10124
- frame $top.ntag
10125
- label $top.ntag.l -text [mc "Display nearby tags"] -font optionfont
10126
- checkbutton $top.ntag.b -variable showneartags
10127
- pack $top.ntag.b $top.ntag.l -side left
10120
+ checkbutton $top.ntag -text [mc "Display nearby tags"] \
10121
+ -font optionfont -variable showneartags
10122
grid x $top.ntag -sticky w
10129
- frame $top.ldiff
10130
- label $top.ldiff.l -text [mc "Limit diffs to listed paths"] -font optionfont
10131
- checkbutton $top.ldiff.b -variable limitdiffs
10132
- pack $top.ldiff.b $top.ldiff.l -side left
10123
+ checkbutton $top.ldiff -text [mc "Limit diffs to listed paths"] \
10124
+ -font optionfont -variable limitdiffs
10125
grid x $top.ldiff -sticky w
10134
- frame $top.lattr
10135
- label $top.lattr.l -text [mc "Support per-file encodings"] -font optionfont
10136
- checkbutton $top.lattr.b -variable perfile_attrs
10137
- pack $top.lattr.b $top.lattr.l -side left
10126
+ checkbutton $top.lattr -text [mc "Support per-file encodings"] \
10127
+ -font optionfont -variable perfile_attrs
10128
grid x $top.lattr -sticky w
10129
10130
entry $top.extdifft -textvariable extdifftool