--- a/NoteBookView.st	Sun Oct 20 13:10:42 2019 +0200
+++ b/NoteBookView.st	Sun Oct 20 13:39:52 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1997 by eXept Software AG
               All Rights Reserved
@@ -302,6 +304,10 @@
     "Created: / 25-02-2000 / 14:13:59 / cg"
     "Modified: / 07-03-2012 / 17:49:37 / cg"
     "Modified (format): / 21-11-2018 / 16:16:05 / Claus Gittinger"
+!
+
+tabForWhich:checkBlock
+    ^ list detect:checkBlock ifNone:nil
 ! !
 
 !NoteBookView methodsFor:'accessing'!