--- 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$'
! !
+