--- a/UILayoutTool.st Wed Jul 23 10:38:16 1997 +0200
+++ b/UILayoutTool.st Wed Jul 23 10:59:16 1997 +0200
@@ -431,8 +431,15 @@
self class slices findFirst:[:e|
e last == type ifTrue:[name := e first. true]
].
- type ~~ #Extent ifTrue:[ list := tabList ]
- ifFalse:[ list := Array with:name ].
+ list := tabList.
+
+ type == #Extent ifTrue:[
+ aView superView specClass isLayoutContainer ifTrue:[
+ list := Array with:name
+ ] ifFalse:[
+ list := list copyWith:name
+ ]
+ ]
].
self noteBookList value:list.
self noteBookModel value:name.