# HG changeset patch
# User ca
# Date 949075771 -3600
# Node ID 95ef9b917d827e9b535bb5e2f822e898cd18d5a0
# Parent  51cf4a8fa2af4de31b942ee2982019e7013109e6
no level for scrollable windowSpec ..

diff -r 51cf4a8fa2af -r 95ef9b917d82 UISpecificationTool.st
--- a/UISpecificationTool.st	Wed Jan 26 17:27:35 2000 +0100
+++ b/UISpecificationTool.st	Fri Jan 28 17:09:31 2000 +0100
@@ -678,16 +678,19 @@
        #(#WindowSpec
           #label: 'unnamed canvas'
           #name: 'unnamed canvas'
-          #bounds: #(#Rectangle 30 217 330 517)
+          #bounds: #(#Rectangle 12 22 312 322)
         )
         #component: 
        #(#SpecCollection
           #collection: #(
            #(#ArbitraryComponentSpec
-              #name: 'ArbitraryComponent1'
+              #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: #buildInViewTop
+              #component: #buildInView
             )
            )
          
@@ -798,10 +801,12 @@
 
 !
 
-buildInViewTop
-    ^ buildInView superView
+buildInView
 
-
+    buildInView isNil ifTrue:[
+        buildInView := BuildInView new.
+    ].
+    ^ buildInView
 !
 
 specificationChanged
@@ -818,7 +823,7 @@
     specification := nil.
 
     listOfSpecViews notNil ifTrue:[
-        buildInView scrolledView:nil.
+        self buildInView scrolledView:nil.
 
         listOfSpecViews do:[:aView|
             aView notNil ifTrue:[
@@ -865,20 +870,6 @@
     "Modified: / 16.7.1998 / 19:25:59 / cg"
 ! !
 
-!UISpecificationTool methodsFor:'initialization'!
-
-initialize
-    |view|
-
-    super initialize.
-    view := ScrollableView for:BuildInView.
-    view verticalScrollable:true.
-    view verticalMini:true.
-    view autoHideScrollBars:true.
-    view level:0.
-    buildInView := view scrolledView.
-! !
-
 !UISpecificationTool methodsFor:'selection'!
 
 selection:something
@@ -907,7 +898,7 @@
                 listOfSpecViews at:index put:window.
             ].
         ].
-        buildInView scrolledView:window.
+        self buildInView scrolledView:window.
     ].
 ! !
 
@@ -920,8 +911,8 @@
     scrolledView == aView ifTrue:[^ self].
 
     outerFrame isNil ifTrue:[
-        self level:0.
         outerFrame := SimpleView origin:0.0@0.0 corner:1.0@1.0 in:self.
+        outerFrame borderWidth:0; level:0.
         realized ifTrue:[outerFrame realize].
     ].
 
@@ -951,6 +942,17 @@
 
 ! !
 
+!UISpecificationTool::BuildInView methodsFor:'initialization'!
+
+level:aLevel
+    super level:0
+!
+
+realize
+    super realize.
+    superView notNil ifTrue:[superView level:0].
+! !
+
 !UISpecificationTool class methodsFor:'documentation'!
 
 version