--- 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