--- a/ScrollableView.st Wed Sep 09 17:33:08 1998 +0200
+++ b/ScrollableView.st Wed Sep 09 19:42:28 1998 +0200
@@ -1594,6 +1594,7 @@
scrollBarSpacing := DefaultScrollBarSpacing.
vTopOffs := 0 - vBd + scrolledViewMargin + margin.
+
scrolledViewMargin == 0 ifTrue:[
vBottomOffs := vBd - scrolledViewMargin - sBd.
] ifFalse:[
@@ -1614,6 +1615,12 @@
sBottomOffs := sBd - scrolledViewMargin - sBd - sBd - sBd.
].
+"/ kludge - for now
+styleSheet name == #win95 ifTrue:[
+ vTopOffs := 0.
+ hLeftOffs := 0.
+].
+
addMargin := 0.
"/ DefaultScrollBarLevel == DefaultScrolledViewLevel
"/ addMargin := 1.
@@ -1706,7 +1713,7 @@
].
"Created: / 21.5.1998 / 00:48:35 / cg"
- "Modified: / 21.5.1998 / 00:51:26 / cg"
+ "Modified: / 9.9.1998 / 18:57:35 / cg"
!
setupVertical:isVertical mini:miniV horizontal:isHorizontal mini:miniH
@@ -1993,5 +2000,5 @@
!ScrollableView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.86 1998-06-20 12:20:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.87 1998-09-09 17:42:28 cg Exp $'
! !