equal
deleted
inserted
replaced
2007 |cls| |
2007 |cls| |
2008 |
2008 |
2009 cls := self resolveName:className. |
2009 cls := self resolveName:className. |
2010 |
2010 |
2011 cls notNil ifTrue:[ |
2011 cls notNil ifTrue:[ |
2012 aBuilder applicationClass:cls. |
2012 aBuilder applicationClass:cls. |
2013 ]. |
2013 ]. |
2014 |
2014 |
2015 aBuilder componentCreationHook:[:aView :aSpec :aBdr||sv p s n| |
2015 "/ remember view<->spec associations; break refs to child-specs |
2016 p := ViewProperty new. |
2016 "/ (not needed, as we keep the child info in the view hierarchy) |
2017 s := aSpec copy. |
2017 aBuilder componentCreationHook:[:aView :aSpec :aBdr| |
2018 p spec:s. |
2018 |sv p s n| |
2019 p view:aView. |
2019 |
2020 |
2020 p := ViewProperty new. |
2021 s class supportsSubComponents ifTrue:[ |
2021 s := aSpec copy. |
2022 s component:nil |
2022 p spec:s. |
2023 ]. |
2023 p view:aView. |
2024 |
2024 |
2025 n := s name. |
2025 s class supportsSubComponents ifTrue:[ |
2026 |
2026 s component:nil |
2027 (n isNil or:[(self propertyOfName:n) notNil]) ifTrue:[ |
2027 ]. |
2028 s name:(self uniqueNameFor:s) |
2028 |
2029 ]. |
2029 n := s name. |
2030 treeView addProperty:p. |
2030 |
|
2031 (n isNil or:[(self propertyOfName:n) notNil]) ifTrue:[ |
|
2032 s name:(self uniqueNameFor:s) |
|
2033 ]. |
|
2034 treeView addProperty:p. |
2031 ]. |
2035 ]. |
2032 ^ aSpecification buildViewWithLayoutFor:aBuilder in:aFrame. |
2036 ^ aSpecification buildViewWithLayoutFor:aBuilder in:aFrame. |
2033 |
2037 |
2034 "Modified: 4.7.1997 / 23:48:55 / cg" |
2038 "Modified: 4.7.1997 / 23:48:55 / cg" |
2035 ! |
2039 ! |