--- a/UIPainterView.st Sun Apr 19 00:16:30 1998 +0200
+++ b/UIPainterView.st Sun Apr 19 00:56:50 1998 +0200
@@ -952,20 +952,24 @@
!
setupFromSpec:specOrSpecArray
+
|spec builder|
- self removeAll.
- spec := UISpecification from:specOrSpecArray.
- builder := UIBuilder new isEditing:true.
- "set applicationClass, in order that subspecifications may be resolved"
- className notNil ifTrue:[
- builder applicationClass:(self resolveName:className).
- ].
- spec window setupView:self topView for:builder.
- self addSpec:(spec component) builder:builder in:self.
- self realizeAllSubViews.
- inputView raise.
- treeView setAttributesFromWindowSpec:(spec window).
+ Cursor wait showWhile: [
+ self removeAll.
+ spec := UISpecification from:specOrSpecArray.
+ builder := UIBuilder new isEditing:true.
+ "set applicationClass, in order that subspecifications may be resolved"
+ className notNil ifTrue:[
+ builder applicationClass:(self resolveName:className).
+ ].
+ spec window setupView:self topView for:builder.
+ self addSpec:(spec component) builder:builder in:self.
+ self realizeAllSubViews.
+ inputView raise.
+ treeView setAttributesFromWindowSpec:(spec window)
+ ]
+
!
treeView:aTreeView