equal
deleted
inserted
replaced
950 |
950 |
951 self backgroundColor: self class defaultViewBackgroundColor. |
951 self backgroundColor: self class defaultViewBackgroundColor. |
952 ! |
952 ! |
953 |
953 |
954 setupFromSpec:specOrSpecArray |
954 setupFromSpec:specOrSpecArray |
|
955 |
955 |spec builder| |
956 |spec builder| |
956 |
957 |
957 self removeAll. |
958 Cursor wait showWhile: [ |
958 spec := UISpecification from:specOrSpecArray. |
959 self removeAll. |
959 builder := UIBuilder new isEditing:true. |
960 spec := UISpecification from:specOrSpecArray. |
960 "set applicationClass, in order that subspecifications may be resolved" |
961 builder := UIBuilder new isEditing:true. |
961 className notNil ifTrue:[ |
962 "set applicationClass, in order that subspecifications may be resolved" |
962 builder applicationClass:(self resolveName:className). |
963 className notNil ifTrue:[ |
963 ]. |
964 builder applicationClass:(self resolveName:className). |
964 spec window setupView:self topView for:builder. |
965 ]. |
965 self addSpec:(spec component) builder:builder in:self. |
966 spec window setupView:self topView for:builder. |
966 self realizeAllSubViews. |
967 self addSpec:(spec component) builder:builder in:self. |
967 inputView raise. |
968 self realizeAllSubViews. |
968 treeView setAttributesFromWindowSpec:(spec window). |
969 inputView raise. |
|
970 treeView setAttributesFromWindowSpec:(spec window) |
|
971 ] |
|
972 |
969 ! |
973 ! |
970 |
974 |
971 treeView:aTreeView |
975 treeView:aTreeView |
972 treeView := aTreeView. |
976 treeView := aTreeView. |
973 |
977 |