# HG changeset patch
# User ca
# Date 949075810 -3600
# Node ID f22b28597a05ce8d7875f1b42a3027e9aa75bdee
# Parent  95ef9b917d827e9b535bb5e2f822e898cd18d5a0
set level of subCanvas'es 'help layout, ...' to 0

diff -r 95ef9b917d82 -r f22b28597a05 UIPainter.st
--- a/UIPainter.st	Fri Jan 28 17:09:31 2000 +0100
+++ b/UIPainter.st	Fri Jan 28 17:10:10 2000 +0100
@@ -1874,34 +1874,38 @@
     |noteBook modifiedChannel helpTool layoutTool specTool|
 
     (noteBook := builder bindingAt:#noteBookView) isNil ifTrue:[
-	noteBook   := View new.
-	layoutTool := UILayoutTool new.
-	helpTool   := UIHelpTool   new.
-	helpTool buildFromClass:specClass.
-	specTool   := UISpecificationTool new.
-	modifiedChannel    := self modifiedChannel.
-
-	layoutTool masterApplication:self.
-	specTool   masterApplication:self.
-	helpTool   masterApplication:self.
-
-	layoutCanvas := SubCanvas origin:0.0@0.0 corner:1.0@1.0 in:noteBook.
-	helpCanvas   := SubCanvas origin:0.0@0.0 corner:1.0@1.0 in:noteBook.
-	specCanvas   := SubCanvas origin:0.0@0.0 corner:1.0@1.0 in:noteBook.
-
-	layoutCanvas client:layoutTool.
-	helpCanvas   client:helpTool.
-	specTool builder:(specCanvas client:specTool).
-
-	layoutTool masterApplication:self.
-	specTool   masterApplication:self.
-	helpTool   masterApplication:self.
-
-	layoutTool modifiedHolder:modifiedChannel.
-	helpTool   modifiedHolder:modifiedChannel.
-	specTool   modifiedHolder:modifiedChannel.
-
-	builder aspectAt:#noteBookView put:noteBook.
+        noteBook   := View new.
+        layoutTool := UILayoutTool new.
+        helpTool   := UIHelpTool   new.
+        helpTool buildFromClass:specClass.
+        specTool   := UISpecificationTool new.
+        modifiedChannel    := self modifiedChannel.
+
+        layoutTool masterApplication:self.
+        specTool   masterApplication:self.
+        helpTool   masterApplication:self.
+
+        layoutCanvas := SubCanvas origin:0.0@0.0 corner:1.0@1.0 in:noteBook.
+        helpCanvas   := SubCanvas origin:0.0@0.0 corner:1.0@1.0 in:noteBook.
+        specCanvas   := SubCanvas origin:0.0@0.0 corner:1.0@1.0 in:noteBook.
+
+        layoutCanvas level:0.
+        helpCanvas   level:0.
+        specCanvas   level:0.
+
+        layoutCanvas client:layoutTool.
+        helpCanvas   client:helpTool.
+        specTool builder:(specCanvas client:specTool).
+
+        layoutTool masterApplication:self.
+        specTool   masterApplication:self.
+        helpTool   masterApplication:self.
+
+        layoutTool modifiedHolder:modifiedChannel.
+        helpTool   modifiedHolder:modifiedChannel.
+        specTool   modifiedHolder:modifiedChannel.
+
+        builder aspectAt:#noteBookView put:noteBook.
     ].
     ^ noteBook
 !