# HG changeset patch
# User ca
# Date 869648356 -7200
# Node ID 4e6c0d0c6ba5ccfc35dbf32daab00b174ca40d59
# Parent  9be9697b02785c5ccda5d0bb0f26ace016ea5a9b
in case of layout container set extent otherwise all

diff -r 9be9697b0278 -r 4e6c0d0c6ba5 UILayoutTool.st
--- 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.