--- 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.
 ! !