ScrollableView.st
changeset 1668 2b2a006faedd
parent 1593 a77a10ecde65
child 1694 61bcd88d3721
--- 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 $'
 ! !