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