.
I would like to add the expanders to a scroll pane in the dialog.
but in vain.
dialog := (builder newPluggableDialogWindow: 'RESULTS').
searchResultsAccordion := dialog contentMorph:
(
dialog newColumn:
(
SearchQuick myResult collect: [ :r |
dialog newRow: {
(
(
dialog newExpander: r title asString
forAll: {
(dialog newTextEditorFor: (ValueHolder new contents: r content asString )
getText: #contents setText: #contents:)minHeight: 150.
}
)minWidth:750; minHeight: 10
)
cellInset: 0;
borderStyle: (BorderStyle inset baseColor: dialog paneColor; width: 1)
}
]
)
);
model: nil.
dialog newScrollPaneFor: searchResultsAccordion.
builder openModal: dialog.
dialog extent: 775@350.
dialog position: 500@200.
I am able to design the accordion widget as desired, except the scroll pane.
Help appreciated.
Thanks