equal
deleted
inserted
replaced
1223 |
1223 |
1224 |spec builder| |
1224 |spec builder| |
1225 |
1225 |
1226 Cursor wait showWhile: [ |
1226 Cursor wait showWhile: [ |
1227 self removeAll. |
1227 self removeAll. |
1228 spec := UISpecification from:specOrSpecArray. |
1228 specOrSpecArray notNil ifTrue:[ |
|
1229 spec := UISpecification from:specOrSpecArray. |
|
1230 ]. |
1229 builder := UIBuilder new isEditing:true. |
1231 builder := UIBuilder new isEditing:true. |
1230 "set applicationClass, in order that subspecifications may be resolved" |
1232 "set applicationClass, in order that subspecifications may be resolved" |
1231 className notNil ifTrue:[ |
1233 className notNil ifTrue:[ |
1232 builder applicationClass:(self resolveName:className). |
1234 builder applicationClass:(self resolveName:className). |
1233 ]. |
1235 ]. |
1234 spec window setupView:self topView for:builder. |
1236 spec notNil ifTrue:[ |
1235 self addSpec:(spec component) builder:builder in:self. |
1237 spec window setupView:self topView for:builder. |
|
1238 self addSpec:(spec component) builder:builder in:self. |
|
1239 ]. |
1236 self realizeAllSubViews. |
1240 self realizeAllSubViews. |
1237 inputView raise. |
1241 inputView raise. |
1238 treeView setAttributesFromWindowSpec:(spec window) |
1242 spec notNil ifTrue:[ |
|
1243 treeView setAttributesFromWindowSpec:(spec window) |
|
1244 ] |
1239 ] |
1245 ] |
1240 |
1246 |
1241 ! |
1247 ! |
1242 |
1248 |
1243 treeView:aTreeView |
1249 treeView:aTreeView |