# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 931381016 -7200
# Node ID e22253cb348f93c92d9e9e4390dfdd96981cc7ff
# Parent  00713d7412e2074dd2c35b73c0bb3fcf799d1830
set the top attributes (especially: viewbackground)

diff -r 00713d7412e2 -r e22253cb348f UIPainter.st
--- a/UIPainter.st	Wed Jul 07 21:41:58 1999 +0200
+++ b/UIPainter.st	Wed Jul 07 22:56:56 1999 +0200
@@ -3647,11 +3647,20 @@
 !
 
 setAttributesFromWindowSpec:aWindowSpec
-    "sets a window spec from aWindowSpec"
+    "sets a window spec from aWindowSpec and applies some attributes
+     to the canvas."
+
+    |nm canvasView builder|
 
     windowSpec := WindowSpec new copyValuesFromSpec:aWindowSpec.
-    self canvas topView name: aWindowSpec name.
-    self canvasNameChanged: aWindowSpec name.
+    canvasView := self canvas.
+
+    builder := UIBuilder new isEditing:true.
+    aWindowSpec setAttributesIn:canvasView with:builder.
+
+    nm := aWindowSpec name.
+    canvasView topView name:nm.
+    self canvasNameChanged:nm.
     self application treeSelection.
 ! !