--- a/ScrollableView.st Tue Feb 22 09:51:02 2000 +0100
+++ b/ScrollableView.st Tue Feb 22 10:13:29 2000 +0100
@@ -1680,19 +1680,16 @@
"/ but 2D styles are very sensitive to those;
"/ the code below may not work correctly with different borderWidths).
+"/ DefaultScrolledViewMargin := 10. "/ margin around
+"/ DefaultScrollBarSpacing := 2. "/ space between scrolledView and scrollBar.
+
scrolledViewHMargin := scrolledViewVMargin := DefaultScrolledViewMargin.
scrollBarVSpacing := scrollBarHSpacing := DefaultScrollBarSpacing.
+ hasV ifFalse:[
+ scrollBarHSpacing := 0.
+ ].
hasH ifFalse:[
scrollBarVSpacing := 0.
-"/ scrollBarPosition ~~ #right ifTrue:[
- scrolledViewVMargin := 0.
-"/ ]
- ].
- hasV ifFalse:[
- scrollBarHSpacing := 0.
-"/ scrollBarPosition ~~ #right ifTrue:[
- scrolledViewHMargin := 0.
-"/ ]
].
vTopOffs := 0 - vBd + scrolledViewVMargin + margin.
@@ -1745,7 +1742,7 @@
sRightOffs := sRightOffs - addMargin
] ifFalse:[
- "/ left/bottom
+ "/ left/top
vScrollBarLayout := ((0.0 @ 0.0) corner:(0.0@1.0)) asLayout.
vLeftOffs := 0 - vBd + scrolledViewHMargin + margin.
@@ -2121,5 +2118,5 @@
!ScrollableView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.106 2000-02-22 08:51:02 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.107 2000-02-22 09:13:29 cg Exp $'
! !