--- a/TabView.st	Sun Apr 27 09:12:49 1997 +0200
+++ b/TabView.st	Mon Apr 28 08:45:40 1997 +0200
@@ -512,8 +512,10 @@
         #left      arrange tabs to be on left of a view
         #right     arrange tabs to be on right of a view
     "
-    direction := aDirection
-
+    direction ~~ aDirection ifTrue:[
+        direction := aDirection.
+        self changed:#direction
+    ].
 !
 
 fitLastRow
@@ -774,6 +776,9 @@
     sizeChanged     := false.
     fitLastRow      := true.
     moveSelectedRow := true.
+
+    self font:(Label defaultFont).
+
 ! !
 
 !TabView methodsFor:'layout'!
@@ -1076,5 +1081,5 @@
 !TabView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TabView.st,v 1.10 1997-04-27 07:12:49 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TabView.st,v 1.11 1997-04-28 06:45:40 ca Exp $'
 ! !