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