--- 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.