--- a/ScrollableView.st Fri Feb 11 14:31:57 2000 +0100
+++ b/ScrollableView.st Fri Feb 11 15:57:10 2000 +0100
@@ -1705,13 +1705,13 @@
sBottomOffs := sBd - scrolledViewMargin - sBd - sBd - sBd.
].
-"/ kludge - for now
-styleSheet name == #win95 ifTrue:[
- vTopOffs := 0.
- hLeftOffs := 0.
- sLeftOffs := 0.
- sTopOffs := 0.
-].
+ "/ kludge - for now
+ (styleSheet at:#'scrolledView.zeroOffsets') == true ifTrue:[
+ vTopOffs := 0.
+ hLeftOffs := 0.
+ sLeftOffs := 0.
+ sTopOffs := 0.
+ ].
addMargin := 0.
"/ DefaultScrollBarLevel == DefaultScrolledViewLevel
@@ -2105,5 +2105,5 @@
!ScrollableView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.101 2000-02-11 13:13:16 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.102 2000-02-11 14:56:18 cg Exp $'
! !