Graph widget in pure Tcl/Tk