# HG changeset patch
# User tz
# Date 892940210 -7200
# Node ID 9ae2b94658e570c25a7e1f696765b5606f9625b6
# Parent  06d23b8b66bd78f097b0cf7b98c1cb6621a6e83d
wait cursor

diff -r 06d23b8b66bd -r 9ae2b94658e5 UIPainterView.st
--- 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