From 64b5f146fd2252646d23eac925c49ce9cb526de9 Mon Sep 17 00:00:00 2001 From: Paul Mackerras Date: Thu, 4 Oct 2007 22:19:24 +1000 Subject: [PATCH] gitk: Fix bug causing Tcl error when changing find match type When changing the selector for Exact/IgnCase/Regexp, we were getting a Tcl error. This fixes it. It also adds a workaround for a bug in alpha versions of Tk8.5 where wordprocessor-style tabs don't seem to work properly around column 1. Signed-off-by: Paul Mackerras --- gitk | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/gitk b/gitk index 01f592691..35920abc7 100755 --- a/gitk +++ b/gitk @@ -2334,7 +2334,7 @@ proc find_change {name ix op} { drawvisible } -proc findcom_change {} { +proc findcom_change args { global nhighlights mainfont boldnamerows global findpattern findtype findstring gdttype @@ -5529,8 +5529,8 @@ proc settabs {{firstab {}}} { } set w [font measure $textfont "0"] if {$firsttabstop != 0} { - $ctext conf -tabs [list [expr {$firsttabstop * $w}] \ - [expr {($firsttabstop + $tabstop) * $w}]] + $ctext conf -tabs [list [expr {($firsttabstop + $tabstop) * $w}] \ + [expr {($firsttabstop + 2 * $tabstop) * $w}]] } elseif {$have_tk85 || $tabstop != 8} { $ctext conf -tabs [expr {$tabstop * $w}] } else { -- 2.30.2