equal
deleted
inserted
replaced
737 spec notNil ifTrue:[ |
737 spec notNil ifTrue:[ |
738 builder buildFromSpec:spec in:window. |
738 builder buildFromSpec:spec in:window. |
739 |
739 |
740 window allViewBackground:(self windowFrame viewBackground). |
740 window allViewBackground:(self windowFrame viewBackground). |
741 window extent:1.0@(window preferredExtent y). |
741 window extent:1.0@(window preferredExtent y). |
742 masterApplication updateFonts. |
742 "/ masterApplication updateFonts. |
743 window realizeAllSubViews. |
743 window realizeAllSubViews. |
744 self scrolledView sizeChanged:nil. |
744 self scrolledView sizeChanged:nil. |
745 ] |
745 ] |
746 ]. |
746 ]. |
747 selection := spec. |
747 selection := spec. |