Evaluated proc wfg {txt {font Basic} {wrap 20}} { set ok [wrap $txt $wrap]; join [map [nlsplit $ok] {x {fg $x $font}}] "\n \n" }