--- a/UIPainterView.st Wed Aug 13 15:16:57 1997 +0200
+++ b/UIPainterView.st Fri Aug 15 17:36:02 1997 +0200
@@ -499,7 +499,7 @@
]
].
spec := FullSpec new.
- spec fromBuilder:self components:(SpecCollection new collection:specArray).
+ spec fromBuilder:self topView components:(SpecCollection new collection:specArray).
specArray := spec literalArrayEncoding.
str := WriteStream on:String new.
@@ -909,6 +909,11 @@
"
|props name builder v|
+ aSpec class == WindowSpec ifTrue:[
+ aSpec setAttributesIn:self topView with:(UIBuilder new).
+ ^ treeView canvasNameChanged:aSpec name.
+ ].
+
self singleSelection notNil ifTrue:[
self withSelectionHiddenDo:[
self transaction:#specification selectionDo:[:aView|