NoteBookView.st
branchjv
changeset 5337 0a2b6f94bde9
parent 5302 abd106f5239c
parent 5334 acc80500c3e2
child 5433 e02d0b8d3f0e
--- a/NoteBookView.st	Wed Nov 16 06:42:54 2016 +0100
+++ b/NoteBookView.st	Fri Nov 18 06:52:16 2016 +0100
@@ -861,7 +861,7 @@
         ].
     ].
     y := y + selectionInsetY + lvl + tabTopMargin + tabBottomMargin.
-    x := x + selectionInsetX + selectionInsetX + (lvl + lvl * size).
+    x := x + selectionInsetX + selectionInsetX + ((lvl + lvl) * size).
 
     isHorizontal := self isHorizontal.
 
@@ -888,6 +888,8 @@
 
     isHorizontal ifTrue:[ ^ x @ y ].
     ^ y @ x
+
+    "Modified (format): / 16-11-2016 / 23:13:18 / cg"
 !
 
 preferredExtentForTab:aTab