equal
deleted
inserted
replaced
729 !UISpecificationTool methodsFor:'selection'! |
729 !UISpecificationTool methodsFor:'selection'! |
730 |
730 |
731 selection:something |
731 selection:something |
732 "selection changed |
732 "selection changed |
733 " |
733 " |
734 |slices idx spec frame y window| |
734 |slices idx spec window| |
735 |
735 |
736 specification notNil ifTrue:[ |
736 specification notNil ifTrue:[ |
737 slices := specification class slices. |
737 slices := specification class slices. |
738 idx:= slices findFirst:[:aSlice| aSlice first = something ]. |
738 idx:= slices findFirst:[:aSlice| aSlice first = something ]. |
739 |
739 |
751 spec notNil ifTrue:[ |
751 spec notNil ifTrue:[ |
752 builder buildFromSpec:spec in:window. |
752 builder buildFromSpec:spec in:window. |
753 |
753 |
754 window allViewBackground:(self windowFrame viewBackground). |
754 window allViewBackground:(self windowFrame viewBackground). |
755 window extent:1.0@(window preferredExtent y). |
755 window extent:1.0@(window preferredExtent y). |
756 "/ masterApplication updateFonts. |
|
757 window realizeAllSubViews. |
756 window realizeAllSubViews. |
758 self scrolledView sizeChanged:nil. |
757 self scrolledView sizeChanged:nil. |
759 ] |
758 ] |
760 ]. |
759 ]. |
761 selection := spec. |
760 selection := spec. |