Starting with version 8.3.4 Tk can be loaded dynamically from a tclsh and automatically enters the event loop.
This opens up some interesting possibilities: