Mercurial Mercurial > hg > stx-libtool2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
set level of subCanvas'es 'help layout, ...' to 0
authorca
Fri, 28 Jan 2000 17:10:10 +0100
changeset 1314 f22b28597a05
parent 1313 95ef9b917d82
child 1315 8722cfe3cce1
set level of subCanvas'es 'help layout, ...' to 0
UIPainter.st file | annotate | diff | comparison | revisions 
--- 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
 !
hg/stx-libtool2