equal
deleted
inserted
replaced
845 |
845 |
846 treeView cvsSetupListDo:[ |
846 treeView cvsSetupListDo:[ |
847 self removeAll. |
847 self removeAll. |
848 spec := UISpecification from:specOrSpecArray. |
848 spec := UISpecification from:specOrSpecArray. |
849 builder := UIBuilder new isEditing:true. |
849 builder := UIBuilder new isEditing:true. |
850 |
850 "set applicationClass, in order that subspecifications may be resolved" |
|
851 className notNil ifTrue:[ |
|
852 builder applicationClass:(self resolveName:className). |
|
853 ]. |
851 spec window setupView:self topView for:builder. |
854 spec window setupView:self topView for:builder. |
852 self addSpec:(spec component) builder:builder in:self. |
855 self addSpec:(spec component) builder:builder in:self. |
853 self realizeAllSubViews. |
856 self realizeAllSubViews. |
854 inputView raise. |
857 inputView raise. |
855 treeView setAttributesFromWindowSpec:(spec window). |
858 treeView setAttributesFromWindowSpec:(spec window). |
856 ] |
859 ] |
|
860 |
|
861 "Modified: / 5.2.1998 / 11:42:39 / stefan" |
857 ! |
862 ! |
858 |
863 |
859 treeView:aTreeView |
864 treeView:aTreeView |
860 treeView := aTreeView. |
865 treeView := aTreeView. |
861 |
866 |