Posted to tcl by aspect at Sun Jan 26 16:41:17 GMT 2014view raw
- # 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