--- a/NoteBookView.st	Fri Oct 21 07:04:13 2016 +0200
+++ b/NoteBookView.st	Sat Oct 22 06:45:57 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1997 by eXept Software AG
               All Rights Reserved
@@ -254,8 +252,9 @@
 !NoteBookView methodsFor:'accepting-items'!
 
 tabAtIndex:tabIndex put:newLabelOrTabItem
-    "called if the contents of a tab changed; test whether the old layout can
-     be reused otherwise we must recompute the whole list
+    "called when the contents of a tab changed; 
+     test whether the old layout can be reused;
+     otherwise we must recompute the whole list
     "
     |tab tabLayout prefX prefY tabPrefExtent|
 
@@ -659,13 +658,13 @@
 !
 
 activeForegroundColor
-    "returns the color used when drawing the active tabs label"
+    "returns the color used when drawing the active tab's label"
 
     ^ activeForegroundColor
 !
 
 activeForegroundColor:aColor
-    "set the color used when drawing the active tabs label"
+    "set the color used when drawing the active tab's label"
 
     aColor = activeForegroundColor ifTrue:[
         ^ self
@@ -680,8 +679,8 @@
     ^ activeTabMarkerColor    
 !
 
-activeTabMarkerColor:something
-    activeTabMarkerColor := something.
+activeTabMarkerColor:aColor
+    activeTabMarkerColor := aColor.
 !
 
 activeTabMarkerFgColor
@@ -727,7 +726,8 @@
 !
 
 drawLightColor
-    "get the color to be used for lighted edges; bug fix caused by common drawEdge"
+    "get the color to be used for lighted edges; 
+     bug fix caused by common drawEdge"
 
     ^ drawLightColor
 !