Hi
I have built an accordion widget using *ExampleBuilderMorph* and
*ExpanderMorph*.
I would like to add the expanders to a scroll pane in the dialog.
I tried using *#newScrollPaneFor:* but in vain.
The corresponding code snippet is as:
*builder := WidgetExamples exampleBuilder.*
*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
JIGYASA
