set the background color for the client view
authorca
Wed, 27 Aug 1997 17:03:18 +0200
changeset 296 e542c6fb0de7
parent 295 114befd1c369
child 297 14db1276218c
set the background color for the client view
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