10 lines
487 B
Text
10 lines
487 B
Text
--- 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]
|