diff options
| author |  Paul Mackerras <paulus@samba.org> | 2007-10-04 22:19:24 +1000 |
|---|---|---|
| committer | Paul Mackerras <paulus@samba.org> | 2007-10-04 22:19:24 +1000 |
| commit | 64b5f146fd2252646d23eac925c49ce9cb526de9 (patch) | |
| tree | ade1ee576a8a52cadef3a6e3280f283c4bcbcbcf /gitk | |
| parent | gitk: Fix the tab setting in the diff display window (diff) | |
| download | tgif-64b5f146fd2252646d23eac925c49ce9cb526de9.tar.xz | |
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 <paulus@samba.org>
Diffstat (limited to 'gitk')
| -rwxr-xr-x | gitk | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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 { |