# HG changeset patch
# User ca
# Date 871902363 -7200
# Node ID 2f98233309f01349d7b70fe7e8e74346ec539932
# Parent  bb88d92ae8872edb814049dea744cfc5bcbcd952
support layout of canvas view

diff -r bb88d92ae887 -r 2f98233309f0 UILayoutTool.st
--- a/UILayoutTool.st	Mon Aug 18 13:05:09 1997 +0200
+++ b/UILayoutTool.st	Mon Aug 18 13:06:03 1997 +0200
@@ -426,21 +426,34 @@
 layoutView:aView
     "change current edited view
     "
+    self layoutView:aView type:nil
+!
+
+layoutView:aView type:aTypeOrNil
+    "change current edited view
+    "
     |type name list|
 
     layoutView := aView.
 
-    (type := UIPainterView layoutType:layoutView) notNil ifTrue:[
+    aTypeOrNil notNil ifTrue:[
         self class slices findFirst:[:e|
-            e last == type ifTrue:[name := e first. true]
+            e last == aTypeOrNil ifTrue:[name := e first. true]
         ].
-        list := tabList.
+        list := Array with:name
+    ] ifFalse:[
+        (type := UIPainterView layoutType:layoutView) notNil ifTrue:[
+            self class slices findFirst:[:e|
+                e last == type ifTrue:[name := e first. true]
+            ].
+            list := tabList.
 
-        type == #Extent ifTrue:[
-            aView superView specClass isLayoutContainer ifTrue:[
-                list := Array with:name
-            ] ifFalse:[
-                list := list copyWith:name
+            type == #Extent ifTrue:[
+                aView superView specClass isLayoutContainer ifTrue:[
+                    list := Array with:name
+                ] ifFalse:[
+                    list := list copyWith:name
+                ]
             ]
         ]
     ].