DataSetBuilder.st
changeset 1203 3b2edc8f4164
parent 1202 439c86e2dd82
child 1215 02d29dd7a0ed
--- a/DataSetBuilder.st	Fri Aug 20 15:47:13 1999 +0200
+++ b/DataSetBuilder.st	Tue Aug 24 10:18:56 1999 +0200
@@ -2472,10 +2472,6 @@
     selectedColumnIndex := 0.
     columns     := OrderedCollection new.
     modalOpened := false.
-    noteBook    := View new.
-
-    listOfSpecViews := Array new:(1 + self class slices size).
-    listOfSpecViews at:1 put:(View origin:0.0@0.0 corner:1.0@1.0 in:noteBook).
 
 ! !
 
@@ -2591,7 +2587,7 @@
 
     |specSelector view spec|
 
-    something == tabSelection ifTrue:[^self].
+    (noteBook isNil or:[something == tabSelection]) ifTrue:[^self].
 
     self selectedColumn isNil ifTrue:[
         tabSelection == 0 ifTrue:[^self].
@@ -3016,8 +3012,12 @@
 noteBook
     "returns the noteBook widget
     "
+    noteBook isNil ifTrue:[
+        noteBook := View new.
+        listOfSpecViews := Array new:(1 + self class slices size).
+        listOfSpecViews at:1 put:(View origin:0.0@0.0 corner:1.0@1.0 in:noteBook).
+    ].
     ^ noteBook
-
 ! !
 
 !DataSetBuilder::Row methodsFor:'accessing'!