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