Evaluated proc autistsay args {set wrappedtext [wrap [. <@r000t> [strip_all [join $args " "]]] 71]; set canvas [embed [canvas 71 [expr 38+[nlines $wrappedtext]]] [strcrop [r000tcolored] 0 37] 1 1]; embed $canvas [embed [cblock 01,03 70 [nlines $wrappedtext]] [. $wrappedtext] 1 1] 1 39;}