--- a/UISpecificationTool.st Sat Feb 12 16:36:24 2000 +0100
+++ b/UISpecificationTool.st Sun Feb 13 14:00:07 2000 +0100
@@ -922,7 +922,7 @@
scrolledView:aView
"set the view to be scrolled"
- |scr|
+ |scr theOneComponent y|
scrolledView == aView ifTrue:[^ self].
@@ -936,7 +936,18 @@
scrolledView borderWidth:0; level:0.
outerFrame addSubView:scrolledView.
- scrolledView origin:0@0 corner:1.0 @ (scrolledView preferredExtent y).
+ scrolledView subViews size == 1 ifTrue:[
+ theOneComponent := scrolledView subViews first.
+ theOneComponent isScrollWrapper ifTrue:[
+ "/ give it a full-relative size, and let it do
+ "/ the scrolling itself.
+ y := 1.0
+ ]
+ ].
+ y isNil ifTrue:[
+ y := scrolledView preferredExtent y
+ ].
+ scrolledView origin:0@0 corner:1.0 @ y.
scrolledView := scrolledView.
scrolledView allViewBackground:(self viewBackground).
].