Ich habe mal mit Tk::Canvas und Rectangle Items gearbeitet. Ein Objekt ist dann durch dessen Punkte definiert und man kann es auch verschieben.