1601bb8ec0
Become maintainer, use Tcl/Tk 8.5, add canvas out-of-range bugfix from upstream. ok landry@, sebastia@
12 lines
554 B
Plaintext
12 lines
554 B
Plaintext
$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]
|