[WJG] (06/05/06) After staring and pondering at text documents for hours on end things look a little, well lost. Varying the font size not only can make the more 'bunched-up' words clearer and also helps the old brain to get back into action. This is especially the case if one uses non-roman text such as Chinese where complex characters at smaller text size can be bothersome. I guess that someone has already done something like this already on the wiki, but here goes. Some future changes might include changing the fonts sizes within tags. # TextZoom .tcl proc TextZoom {w} { # only for text widgets if {[winfo class $w]!="Text"} {return -1} set i 20 bind $w { set fsize [lindex [%W cget -font] 1] if { %D >= 0 } { incr fsize 2 } else { incr fsize -2 } set fnt "\{[lindex [%W cget -font] 0 ] $fsize\}" eval %W configure -font $fnt } } console show pack [text .txt -font {Arial 24} ] -fill both .txt insert end Apple wm geometry . =500x250 textzoom .txt