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