From 6bc9d1e2e75a68a6027d1f78a95c9ddbbe1d1dfd Mon Sep 17 00:00:00 2001 From: Mark Levedahl Date: Tue, 26 Jun 2007 21:51:35 -0400 Subject: [PATCH 1/2] gitk: Use a spinbox for setting tabstop settings The tabstop must be a smallish positive integer, and a spinbox is the accepted UI control to accomplish this limiting rather than the text entry box previously used. Signed-off-by: Mark Levedahl --- gitk | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gitk b/gitk index 269f9b08a0..f1b80ff39a 100755 --- a/gitk +++ b/gitk @@ -6972,7 +6972,7 @@ proc doprefs {} { pack $top.ntag.b $top.ntag.l -side left grid x $top.ntag -sticky w label $top.tabstopl -text "tabstop" -font optionfont - entry $top.tabstop -width 10 -textvariable tabstop + spinbox $top.tabstop -from 1 -to 20 -width 4 -textvariable tabstop grid x $top.tabstopl $top.tabstop -sticky w label $top.cdisp -text "Colors: press to choose" From 281404ca1db4c921ac162f3c03ae0688d25c5a65 Mon Sep 17 00:00:00 2001 From: Mark Levedahl Date: Tue, 26 Jun 2007 21:51:34 -0400 Subject: [PATCH 2/2] gitk: Update selection background colorbar in prefs dialog The callback function was incorrectly set to update the background colorbar when updated the selection background. This did not affect the colors chosen or their use, just their presentation in the preferences dialog box. Signed-off-by: Mark Levedahl --- gitk | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gitk b/gitk index f1b80ff39a..2d6a6ef9ce 100755 --- a/gitk +++ b/gitk @@ -7004,7 +7004,7 @@ proc doprefs {} { grid x $top.hunksepbut $top.hunksep -sticky w label $top.selbgsep -padx 40 -relief sunk -background $selectbgcolor button $top.selbgbut -text "Select bg" -font optionfont \ - -command [list choosecolor selectbgcolor 0 $top.bg background setselbg] + -command [list choosecolor selectbgcolor 0 $top.selbgsep background setselbg] grid x $top.selbgbut $top.selbgsep -sticky w frame $top.buts