mirror/git
1
0
Fork 0
mirror of https://github.com/git/git.git synced 2024-11-18 03:03:55 +01:00
Code

gitk: Fix bug causing Tcl error when changing find match type

Browse Source 
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 <paulus@samba.org>
This commit is contained in:
Paul Mackerras 2007-10-04 22:19:24 +10:00
parent 32f1b3e4a4
commit 64b5f146fd
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gitk
View File

@ -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 {