--- a/NoteBookView.st	Tue Oct 01 20:19:12 2019 +0200
+++ b/NoteBookView.st	Wed Oct 02 02:24:04 2019 +0200
@@ -1005,29 +1005,27 @@
 !
 
 direction
-    "returns the direction of tabs as symbol. On default the value is
-     set to #top. Valid symbols are:
-        #top       arrange tabs to be on top of a view
-        #bottom    arrange tabs to be on bottom of a view
-        #left      arrange tabs to be on left of a view
-        #right     arrange tabs to be on right of a view
-    "
-    ^ direction
-
-!
-
-direction:aDirection
-    "change the direction of tabs. On default the value is set to #top.
+    "returns the position of the tabs as symbol. 
+     By default the value is set to #top. 
      Valid symbols are:
         #top       arrange tabs to be on top of a view
         #bottom    arrange tabs to be on bottom of a view
         #left      arrange tabs to be on left of a view
         #right     arrange tabs to be on right of a view
     "
-    direction ~~ aDirection ifTrue:[
-        direction := aDirection.
-        self styleChanged.
-    ].
+    ^ self tabsPosition 
+!
+
+direction:aDirection
+    "change the position of the tabs. 
+     By default the value is set to #top.
+     Valid symbols are:
+        #top       arrange tabs to be on top of a view
+        #bottom    arrange tabs to be on bottom of a view
+        #left      arrange tabs to be on left of a view
+        #right     arrange tabs to be on right of a view
+    "
+    self tabsPosition:aDirection
 !
 
 fitLastRow
@@ -1255,6 +1253,33 @@
         tabTopMargin := margin.
         self styleChanged.
     ].
+!
+
+tabsPosition
+    "returns the position of the tabs as symbol. 
+     By default, the value is set to #top. 
+     Valid symbols are:
+        #top       arrange tabs to be on top of a view
+        #bottom    arrange tabs to be on bottom of a view
+        #left      arrange tabs to be on left of a view
+        #right     arrange tabs to be on right of a view
+    "
+    ^ direction
+!
+
+tabsPosition:aDirectionSymbol
+    "change the position of tabs. 
+     By default the value is set to #top.
+     Valid symbols are:
+        #top       arrange tabs to be on top of a view
+        #bottom    arrange tabs to be on bottom of a view
+        #left      arrange tabs to be on left of a view
+        #right     arrange tabs to be on right of a view
+    "
+    direction ~~ aDirectionSymbol ifTrue:[
+        direction := aDirectionSymbol.
+        self styleChanged.
+    ].
 ! !
 
 !NoteBookView methodsFor:'change & update'!