A more useful mockup with Tcl/Tk.