--- a/TabListEditor.st	Thu Apr 13 18:12:48 2000 +0200
+++ b/TabListEditor.st	Thu Apr 13 18:59:19 2000 +0200
@@ -652,7 +652,7 @@
           #name: 'Tab List Editor'
           #min: #(#Point 440 280)
           #max: #(#Point 1152 900)
-          #bounds: #(#Rectangle 12 22 548 391)
+          #bounds: #(#Rectangle 596 292 1132 661)
           #menu: #menu
         )
         #component: 
@@ -677,8 +677,8 @@
                      #(#Array
                         #Array #Array
                         #Array #Array
-                        #Point 0.264414
-                        1.0
+                        #Array #Point
+                        0.264414 1.0
                       )
                     )
                     #name: 'ListOfLabels'
@@ -701,7 +701,7 @@
                        #(#NoteBookViewSpec
                           #name: 'NoteBook'
                           #layout: #(#LayoutFrame 1 0.0 0 0.0 0 1.0 -30 1.0)
-                          #visibilityChannel: #hasSelectionHolder
+                          #enableChannel: #hasSelectionHolder
                           #tabable: true
                           #model: #noteBookModel
                           #menu: #noteBookTabList
@@ -1140,44 +1140,10 @@
     ^ builder booleanValueAspectFor:#canMoveTabItemUpOrDown
 !
 
-hasHorizontalScrollBar
-    "automatically generated by UIPainter ..."
-
-    "*** the code below creates a default model when invoked."
-    "*** (which may not be the one you wanted)"
-    "*** Please change as required and accept it in the browser."
-
-    |holder|
-
-    (holder := builder bindingAt:#hasHorizontalScrollBar) isNil ifTrue:[
-        holder := true asValue.
-        builder aspectAt:#hasHorizontalScrollBar put:holder.
-"/        holder addDependent:self.
-    ].
-    ^ holder.
-!
-
 hasSelectionHolder
     ^ builder booleanValueAspectFor:#hasSelectionHolder
 !
 
-hasVerticalScrollBar
-    "automatically generated by UIPainter ..."
-
-    "*** the code below creates a default model when invoked."
-    "*** (which may not be the one you wanted)"
-    "*** Please change as required and accept it in the browser."
-
-    |holder|
-
-    (holder := builder bindingAt:#hasVerticalScrollBar) isNil ifTrue:[
-        holder := true asValue.
-        builder aspectAt:#hasVerticalScrollBar put:holder.
-"/        holder addDependent:self.
-    ].
-    ^ holder.
-!
-
 hiddenAccelerator
     "used to set menu entries with an accelerator not visible to the operator
     "
@@ -1200,74 +1166,6 @@
     ^ listOfTabs
 !
 
-majorKey
-    "automatically generated by UIPainter ..."
-
-    "*** the code below creates a default model when invoked."
-    "*** (which may not be the one you wanted)"
-    "*** Please change as required and accept it in the browser."
-
-    |holder|
-
-    (holder := builder bindingAt:#majorKey) isNil ifTrue:[
-        holder := ValueHolder new.
-        builder aspectAt:#majorKey put:holder.
-"/        holder addDependent:self.
-    ].
-    ^ holder.
-!
-
-miniScrollerHorizontal
-    "automatically generated by UIPainter ..."
-
-    "*** the code below creates a default model when invoked."
-    "*** (which may not be the one you wanted)"
-    "*** Please change as required and accept it in the browser."
-
-    |holder|
-
-    (holder := builder bindingAt:#miniScrollerHorizontal) isNil ifTrue:[
-        holder := true asValue.
-        builder aspectAt:#miniScrollerHorizontal put:holder.
-"/        holder addDependent:self.
-    ].
-    ^ holder.
-!
-
-miniScrollerVertical
-    "automatically generated by UIPainter ..."
-
-    "*** the code below creates a default model when invoked."
-    "*** (which may not be the one you wanted)"
-    "*** Please change as required and accept it in the browser."
-
-    |holder|
-
-    (holder := builder bindingAt:#miniScrollerVertical) isNil ifTrue:[
-        holder := true asValue.
-        builder aspectAt:#miniScrollerVertical put:holder.
-"/        holder addDependent:self.
-    ].
-    ^ holder.
-!
-
-minorKey
-    "automatically generated by UIPainter ..."
-
-    "*** the code below creates a default model when invoked."
-    "*** (which may not be the one you wanted)"
-    "*** Please change as required and accept it in the browser."
-
-    |holder|
-
-    (holder := builder bindingAt:#minorKey) isNil ifTrue:[
-        holder := ValueHolder new.
-        builder aspectAt:#minorKey put:holder.
-"/        holder addDependent:self.
-    ].
-    ^ holder.
-!
-
 noteBookModel
     |holder|
 
@@ -1396,6 +1294,8 @@
     ].
 
     someObject value ifTrue:[
+        self noteBookModel value:0.
+
         listOfTabs notEmpty ifTrue:[
             list := listOfTabs collect:[:aTab| |tab|
                 tab := aTab copy.