| 123456789101112 |
- $OpenBSD: patch-gui_tcl,v 1.1 2011/01/05 17:34:17 stu Exp $
- --- gui.tcl.orig Fri Dec 10 20:44:34 2010
- +++ gui.tcl Fri Dec 10 20:46:05 2010
- @@ -746,6 +746,7 @@ proc manManTabSet {w} {
- set repstr "ETRNIOASM aaabcdeeeefghiijklmnnooprrsttuy"; set replen [string length $repstr]
-
- set rm [expr {[winfo width $t]-2*[$t cget -padx]-10}]
- + if {$rm <= 150} { set rm 151 }
- $t tag configure info -tabs [list 0.3i $rm right]
- $t tag configure census -tabs [list [expr {$rm-150}] right $rm right]
- $t tag configure high -tabs [list $rm right]
|
