--- a/TabView.st	Tue May 04 02:34:49 1999 +0200
+++ b/TabView.st	Tue May 04 02:44:49 1999 +0200
@@ -760,31 +760,32 @@
     expDlt := expSel x.
 
     (self isHorizontalDirection) ifTrue:[
-	newExt := oldExt + ( expDlt @ 0 ).
-	newAnc := oldAnc - ((expDlt//2) @ ((expSel y) negated)).
+        newExt := oldExt + ( expDlt @ 0 ).
+        newAnc := oldAnc - ((expDlt//2) @ ((expSel y) negated)).
 
-	(x := newAnc x) < 0 ifTrue:[
-	    newExt x:(newExt x + x).
-	    newAnc x:0.
-	    x := 0.
-	].
-	(x + newExt x) > (super extent x) ifTrue:[newExt x:((super extent x) - x)].
+        (x := newAnc x) < 0 ifTrue:[
+            newExt x:(newExt x + x).
+            newAnc x:0.
+            x := 0.
+        ].
+        (x + newExt x) > width ifTrue:[newExt x:(width - x)].
     ] ifFalse:[
-	newExt := oldExt + ( 0 @ expDlt ).
-	newAnc := oldAnc - (((expSel y) negated) @ (expDlt//2)).
+        newExt := oldExt + ( 0 @ expDlt ).
+        newAnc := oldAnc - (((expSel y) negated) @ (expDlt//2)).
 
-	(y := newAnc y) < 0 ifTrue:[
-	    newExt y:(newExt y + y).
-	    newAnc y:0.
-	    y := 0.
-	].
-	(y + newExt y) > (super extent y) ifTrue:[newExt y:((super extent y) - y)].
+        (y := newAnc y) < 0 ifTrue:[
+            newExt y:(newExt y + y).
+            newAnc y:0.
+            y := 0.
+        ].
+        (y + newExt y) > height ifTrue:[newExt y:(height - y)].
     ].
 
     tab anchor:newAnc extent:newExt.
     aRedrawBlock value.
     tab anchor:oldAnc extent:oldExt.
 
+    "Modified: / 4.5.1999 / 02:01:19 / cg"
 ! !
 
 !TabView methodsFor:'event handling'!
@@ -923,6 +924,16 @@
 
     widget          := TabWidget widgetClass:(self class defaultTabWidget).
     tabStyle        := widget tabStyleOn:self.
+
+    styleSheet name == #win95 ifTrue:[
+"/        tabStyle at:#unselectedColor put:(tabStyle at:#selectedColor).
+"/        tabStyle at:#expandSelection put:(4@2).
+"/        tabStyle at:#lightColorUnselected put:(Color white).
+"/        tabStyle at:#lightColorSelected   put:(Color white).
+        tabStyle at:#labelTopInset        put:0.
+        tabStyle at:#labelBottomInset     put:0.
+    ].
+
     useIndex        := false.
     oneTabPerLine   := false.
     direction       := #top.
@@ -931,7 +942,7 @@
     enabled         := true.
     oldExtent       := 0@0.
 
-    "Modified: 23.10.1997 / 03:28:02 / cg"
+    "Modified: / 4.5.1999 / 02:26:28 / cg"
 ! !
 
 !TabView methodsFor:'layout'!
@@ -1352,5 +1363,5 @@
 !TabView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TabView.st,v 1.40 1999-04-28 18:11:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TabView.st,v 1.41 1999-05-04 00:44:49 cg Exp $'
 ! !