--- a/UISpecificationTool.st	Mon Dec 10 17:10:30 2007 +0100
+++ b/UISpecificationTool.st	Tue Dec 11 16:05:01 2007 +0100
@@ -213,7 +213,7 @@
 
     |canvas currentExtent|
 
-    canvas := self masterApplication painter topView.
+    canvas := self masterApplication canvas.
     currentExtent := canvas extent.
     (self aspectFor:#maxX) value:currentExtent x.
     (self aspectFor:#maxY) value:currentExtent y.
@@ -226,7 +226,7 @@
 
     |canvas currentExtent|
 
-    canvas := self masterApplication painter topView.
+    canvas := self masterApplication canvas.
     currentExtent := canvas extent.
     (self aspectFor:#minX) value:currentExtent x.
     (self aspectFor:#minY) value:currentExtent y.