| canvas | canvas := DrGeoCanvas new. canvas view area inspect
| canvas drGeoWindow | canvas := DrGeoCanvas new. drGeoWindow := canvas view. drGeoWindow inspect. drGeoWindow delete.
drGeoWindow area imageForm