# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1399511229 -7200
# Node ID 985c4b07da6a6568d3cfeb54da34c4cffb1132a4
# Parent  148a01b7abc0b499595ffbe76ac60b053d206dd2
class: UISpecificationTool
comment/format in: #selection:
changed: #windowSpec

diff -r 148a01b7abc0 -r 985c4b07da6a UISpecificationTool.st
--- a/UISpecificationTool.st	Mon May 05 14:18:54 2014 +0200
+++ b/UISpecificationTool.st	Thu May 08 03:07:09 2014 +0200
@@ -136,30 +136,30 @@
     <resource: #canvas>
 
     ^ 
-     #(#FullSpec
-        #name: #windowSpec
-        #window: 
-       #(#WindowSpec
-          #label: 'unnamed canvas'
-          #name: 'unnamed canvas'
-          #bounds: #(#Rectangle 12 22 312 322)
-        )
-        #component: 
-       #(#SpecCollection
-          #collection: #(
-           #(#ArbitraryComponentSpec
-              #name: 'BuildInView'
-              #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
-              #hasVerticalScrollBar: true
-              #miniScrollerVertical: true
-              #autoHideScrollBars: true
-              #hasBorder: false
-              #component: #buildInView
-            )
+    #(FullSpec
+       name: windowSpec
+       window: 
+      (WindowSpec
+         label: 'unnamed canvas'
+         name: 'unnamed canvas'
+         bounds: (Rectangle 0 0 300 300)
+       )
+       component: 
+      (SpecCollection
+         collection: (
+          (ArbitraryComponentSpec
+             name: 'BuildInView'
+             layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+             hasVerticalScrollBar: false
+             miniScrollerVertical: false
+             autoHideScrollBars: true
+             hasBorder: false
+             component: buildInView
            )
-         
-        )
-      )
+          )
+        
+       )
+     )
 ! !
 
 !UISpecificationTool class methodsFor:'resources'!
@@ -448,10 +448,10 @@
     ].
     (scrolledView := aView) notNil ifTrue:[
         scrolledView superView ~~ frame ifTrue:[
+            frame addSubView:scrolledView.
+        ].
+        true ifTrue:[
             scrolledView borderWidth:0; level:0.
-
-            frame addSubView:scrolledView.
-
             scrolledView subViews size == 1 ifTrue:[
                 wrapper := scrolledView subViews first.
                 wrapper isScrollWrapper ifTrue:[
@@ -463,8 +463,8 @@
             y isNil ifTrue:[
                 y := scrolledView preferredHeight
             ].
+            scrolledView allViewBackground:(self viewBackground).
             scrolledView origin:0@0 corner:1.0 @ y.
-            scrolledView allViewBackground:(self viewBackground).
         ].
     ].    
     shown ifTrue:[
@@ -477,14 +477,16 @@
 
 !UISpecificationTool::BuildInView methodsFor:'initialization'!
 
-level:aLevel
-    super level:0
+initialize
+    super initialize.
+    resizeScrolledViewHorizontal := true.
+    resizeScrolledViewVertical   := true.
 !
 
 realize
 
     super realize.
-    superView notNil ifTrue:[superView level:0].
+   superView notNil ifTrue:[superView level:0].
 ! !
 
 !UISpecificationTool class methodsFor:'documentation'!
@@ -496,3 +498,4 @@
 version_CVS
     ^ '$Header$'
 ! !
+