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