@@ -11650,6 +11650,7 @@ proc prefspage_general {notebook} {
11650
11650
11651
11651
ttk::label $page .ldisp -text [ mc " Commit list display options" ] -font mainfontbold
11652
11652
grid $page .ldisp - -sticky w -pady 10
11653
+
11653
11654
ttk::label $page .spacer -text " "
11654
11655
ttk::label $page .maxwidthl -text [ mc " Maximum graph width (lines)" ]
11655
11656
ttk::spinbox $page .maxwidth -from 0 -to 100 -width 4 -textvariable maxwidth
@@ -11658,9 +11659,11 @@ proc prefspage_general {notebook} {
11658
11659
ttk::label $page .maxpctl -text [ mc " Maximum graph width (% of pane)" ]
11659
11660
ttk::spinbox $page .maxpct -from 1 -to 100 -width 4 -textvariable maxgraphpct
11660
11661
grid x $page .maxpctl $page .maxpct -sticky w
11662
+
11661
11663
ttk::checkbutton $page .showlocal -text [ mc " Show local changes" ] \
11662
11664
-variable showlocalchanges
11663
11665
grid x $page .showlocal -sticky w
11666
+
11664
11667
ttk::checkbutton $page .hideremotes -text [ mc " Hide remote refs" ] \
11665
11668
-variable hideremotes
11666
11669
grid x $page .hideremotes -sticky w
@@ -11673,6 +11676,7 @@ proc prefspage_general {notebook} {
11673
11676
ttk::checkbutton $page .autocopy -text [ mc " Copy commit ID to clipboard" ] \
11674
11677
-variable autocopy
11675
11678
grid x $page .autocopy -sticky w
11679
+
11676
11680
if {[ haveselectionclipboard] } {
11677
11681
ttk::checkbutton $page .autoselect -text [ mc " Copy commit ID to X11 selection" ] \
11678
11682
-variable autoselect
@@ -11682,12 +11686,14 @@ proc prefspage_general {notebook} {
11682
11686
ttk::spinbox $page .autosellen -from 1 -to $hashlength -width 4 -textvariable autosellen
11683
11687
ttk::label $page .autosellenl -text [ mc " Length of commit ID to copy" ]
11684
11688
grid x $page .autosellenl $page .autosellen -sticky w
11689
+
11685
11690
ttk::label $page .kscroll1 -text [ mc " Wheel scrolling multiplier" ]
11686
11691
ttk::spinbox $page .kscroll -from 1 -to 20 -width 4 -textvariable kscroll
11687
11692
grid x $page .kscroll1 $page .kscroll -sticky w
11688
11693
11689
11694
ttk::label $page .ddisp -text [ mc " Diff display options" ] -font mainfontbold
11690
11695
grid $page .ddisp - -sticky w -pady 10
11696
+
11691
11697
ttk::label $page .tabstopl -text [ mc " Tab spacing" ]
11692
11698
ttk::spinbox $page .tabstop -from 1 -to 20 -width 4 -textvariable tabstop
11693
11699
grid x $page .tabstopl $page .tabstop -sticky w
@@ -11703,12 +11709,15 @@ proc prefspage_general {notebook} {
11703
11709
ttk::checkbutton $page .ntag -text [ mc " Display nearby tags/heads" ] \
11704
11710
-variable showneartags
11705
11711
grid x $page .ntag -sticky w
11712
+
11706
11713
ttk::label $page .maxrefsl -text [ mc " Maximum # tags/heads to show" ]
11707
11714
ttk::spinbox $page .maxrefs -from 1 -to 1000 -width 4 -textvariable maxrefs
11708
11715
grid x $page .maxrefsl $page .maxrefs -sticky w
11716
+
11709
11717
ttk::checkbutton $page .ldiff -text [ mc " Limit diffs to listed paths" ] \
11710
11718
-variable limitdiffs
11711
11719
grid x $page .ldiff -sticky w
11720
+
11712
11721
ttk::checkbutton $page .lattr -text [ mc " Support per-file encodings" ] \
11713
11722
-variable perfile_attrs
11714
11723
grid x $page .lattr -sticky w
@@ -11742,6 +11751,7 @@ proc prefspage_colors {notebook} {
11742
11751
ttk::label $page .themesel -font mainfontbold \
11743
11752
-text [ mc " Themes - change requires restart" ]
11744
11753
grid $page .themesel - -sticky w -pady 10
11754
+
11745
11755
ttk::label $page .themelabel -text [ mc " Theme to use after restart" ]
11746
11756
makedroplist $page .theme theme {*}[ lsort [ttk::style theme names] ]
11747
11757
grid x $page .themelabel $page .theme -sticky w
@@ -11769,34 +11779,42 @@ proc prefspage_colors {notebook} {
11769
11779
ttk::button $page .bgbut -text [ mc " Background" ] \
11770
11780
-command [ list choosecolor bgcolor {} $page [mc " background" ] ]
11771
11781
grid x $page .bgbut $page .bg -sticky w
11782
+
11772
11783
label $page .fg -padx 40 -relief sunk -background $fgcolor
11773
11784
ttk::button $page .fgbut -text [ mc " Foreground" ] \
11774
11785
-command [ list choosecolor fgcolor {} $page [mc " foreground" ] ]
11775
11786
grid x $page .fgbut $page .fg -sticky w
11787
+
11776
11788
label $page .diffold -padx 40 -relief sunk -background [ lindex $diffcolors 0]
11777
11789
ttk::button $page .diffoldbut -text [ mc " Diff: old lines" ] \
11778
11790
-command [ list choosecolor diffcolors 0 $page [mc " diff old lines" ] ]
11779
11791
grid x $page .diffoldbut $page .diffold -sticky w
11792
+
11780
11793
label $page .diffoldbg -padx 40 -relief sunk -background [ lindex $diffbgcolors 0]
11781
11794
ttk::button $page .diffoldbgbut -text [ mc " Diff: old lines bg" ] \
11782
11795
-command [ list choosecolor diffbgcolors 0 $page [mc " diff old lines bg" ] ]
11783
11796
grid x $page .diffoldbgbut $page .diffoldbg -sticky w
11797
+
11784
11798
label $page .diffnew -padx 40 -relief sunk -background [ lindex $diffcolors 1]
11785
11799
ttk::button $page .diffnewbut -text [ mc " Diff: new lines" ] \
11786
11800
-command [ list choosecolor diffcolors 1 $page [mc " diff new lines" ] ]
11787
11801
grid x $page .diffnewbut $page .diffnew -sticky w
11802
+
11788
11803
label $page .diffnewbg -padx 40 -relief sunk -background [ lindex $diffbgcolors 1]
11789
11804
ttk::button $page .diffnewbgbut -text [ mc " Diff: new lines bg" ] \
11790
11805
-command [ list choosecolor diffbgcolors 1 $page [mc " diff new lines bg" ] ]
11791
11806
grid x $page .diffnewbgbut $page .diffnewbg -sticky w
11807
+
11792
11808
label $page .hunksep -padx 40 -relief sunk -background [ lindex $diffcolors 2]
11793
11809
ttk::button $page .hunksepbut -text [ mc " Diff: hunk header" ] \
11794
11810
-command [ list choosecolor diffcolors 2 $page [mc " diff hunk header" ] ]
11795
11811
grid x $page .hunksepbut $page .hunksep -sticky w
11812
+
11796
11813
label $page .markbgsep -padx 40 -relief sunk -background $markbgcolor
11797
11814
ttk::button $page .markbgbut -text [ mc " Marked line bg" ] \
11798
11815
-command [ list choosecolor markbgcolor {} $page [mc " marked line background" ] ]
11799
11816
grid x $page .markbgbut $page .markbgsep -sticky w
11817
+
11800
11818
label $page .selbgsep -padx 40 -relief sunk -background $selectbgcolor
11801
11819
ttk::button $page .selbgbut -text [ mc " Select bg" ] \
11802
11820
-command [ list choosecolor selectbgcolor {} $page [mc " background" ] ]
0 commit comments