equal
deleted
inserted
replaced
2010 |
2010 |
2011 cls notNil ifTrue:[ |
2011 cls notNil ifTrue:[ |
2012 aBuilder applicationClass:cls. |
2012 aBuilder applicationClass:cls. |
2013 ]. |
2013 ]. |
2014 |
2014 |
2015 "/ remember view<->spec associations; break refs to child-specs |
2015 "/ remember view<->spec associations to tree |
2016 "/ (not needed, as we keep the child info in the view hierarchy) |
2016 aBuilder componentCreationHook:[:aView :aSpec :builder| |
2017 aBuilder componentCreationHook:[:aView :aSpec :aBdr| |
|
2018 |sv p s n| |
2017 |sv p s n| |
2019 |
2018 |
2020 p := ViewProperty new. |
2019 p := ViewProperty new. |
2021 s := aSpec copy. |
2020 s := aSpec copy. |
2022 p spec:s. |
2021 p spec:s. |
2023 p view:aView. |
2022 p view:aView. |
2024 |
2023 |
|
2024 "/ break refs to child-specs |
|
2025 "/ (not needed, as we keep the child info in the view hierarchy) |
2025 s class supportsSubComponents ifTrue:[ |
2026 s class supportsSubComponents ifTrue:[ |
2026 s component:nil |
2027 s component:nil |
2027 ]. |
2028 ]. |
2028 |
2029 |
2029 n := s name. |
2030 n := s name. |