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: