# HG changeset patch
# User ca
# Date 872694198 -7200
# Node ID e542c6fb0de7ec13ca0d468825884b3c2a8aabd1
# Parent  114befd1c3694136dae9de17b3ae9aa5ad6ea2e8
set the background color for the client view

diff -r 114befd1c369 -r e542c6fb0de7 UILayoutTool.st
--- a/UILayoutTool.st	Tue Aug 26 17:49:17 1997 +0200
+++ b/UILayoutTool.st	Wed Aug 27 17:03:18 1997 +0200
@@ -685,7 +685,7 @@
 !
 
 selection:aSelection
-    |appl slice sel|
+    |appl slice sel noteBook|
 
     aSelection isNumber ifTrue:[
         aSelection ~~ 0 ifTrue:[sel := tabList at:aSelection]
@@ -701,7 +701,12 @@
             appl masterApplication:self.
             modifiedHolder value:true.
         ].
-        self noteBookView client:appl.
+        noteBook := self noteBookView.
+        noteBook client:appl.
+
+        appl notNil ifTrue:[
+            noteBook scrolledView allViewBackground:(noteBook viewBackground).
+        ]
     ].
     self update