Mercurial Mercurial > hg > stx-libtool2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
UseViewScroller
authorClaus Gittinger <cg@exept.de>
Tue, 11 Dec 2007 16:05:01 +0100
changeset 2211 f7fac4c1afe9
parent 2210 0a2c19976d82
child 2212 7224d23c4a37
UseViewScroller
UISpecificationTool.st file | annotate | diff | comparison | revisions 
--- 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.
hg/stx-libtool2