Posted to tcl by aspect at Sun Jan 26 16:41:17 GMT 2014view pretty
# see http://wiki.tcl.tk/21282 namespace eval totk { proc initialize args {info procs} proc finalize args {} proc clear args {} proc flush {handle} { flush $handle } proc write {handle data} { .t insert end $data } namespace export * namespace ensemble create } package require Tk pack [text .t] chan push stdout totk