ScrollableView.st
changeset 2137 2642e627bb2a
parent 2135 955901594758
child 2144 8cfc21c91319
--- 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 $'
 ! !