preferredX
authorClaus Gittinger <cg@exept.de>
Fri, 30 May 2008 14:36:23 +0200
changeset 2350 3421f548e14a
parent 2349 6fdcf778c5ab
child 2351 ac44cbdf95c7
preferredX
UISpecificationTool.st
--- a/UISpecificationTool.st	Fri May 30 14:36:10 2008 +0200
+++ b/UISpecificationTool.st	Fri May 30 14:36:23 2008 +0200
@@ -430,7 +430,7 @@
                 ]
             ].
             y isNil ifTrue:[
-                y := scrolledView preferredExtent y
+                y := scrolledView preferredHeight
             ].
             scrolledView origin:0@0 corner:1.0 @ y.
             scrolledView allViewBackground:(self viewBackground).