Use TclOO.