--- a/NoteBookView.st	Mon Sep 06 19:53:48 2004 +0200
+++ b/NoteBookView.st	Fri Sep 10 15:51:41 2004 +0200
@@ -1596,6 +1596,16 @@
     ].
 !
 
+postRealize
+    "automatically set the initially selected notebook tab;
+     unless it has been set already (by setup code)"
+
+    selection isNil ifTrue:[
+        self setSelection:1.
+    ].
+    super postRealize.
+!
+
 realize
 
     (canvas notNil and:[numberOfLines isNil]) ifTrue:[
@@ -2837,5 +2847,5 @@
 !NoteBookView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/NoteBookView.st,v 1.95 2004-06-23 08:33:24 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/NoteBookView.st,v 1.96 2004-09-10 13:51:41 cg Exp $'
 ! !