Login  Register

Help regarding Scroll Pane usage

Posted by Jigyasa Grover on Jul 21, 2015; 8:51am
URL: https://forum.world.st/Help-regarding-Scroll-Pane-usage-tp4838485.html

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