--- a/NoteBookView.st	Thu Feb 13 21:41:26 2020 +0100
+++ b/NoteBookView.st	Thu Feb 20 09:27:16 2020 +0100
@@ -308,6 +308,10 @@
 
 tabForWhich:checkBlock
     ^ list detect:checkBlock ifNone:nil
+!
+
+tabList
+    ^ list
 ! !
 
 !NoteBookView methodsFor:'accessing'!