Comment #4 on issue 561 by alexandr...(a)gmail.com: Bug with Merlin
http://code.google.com/p/moose-technology/issues/detail?id=561
Here is the correct script. Thanks cyrille!
| v control firstPane packagesList part1 lastPane part2 |
control := WizardControl new.
firstPane := WizardFirstPane new.
lastPane := WizardLastPane new.
control addPane: firstPane.
control addPane: lastPane.
part1 := TextPart new
inGroupboxNamed: 'Hapao: select the packages to analyze'.
packagesList := PackageOrganizer default packageNames
asSortedCollection: [ :a :b | a < b ].
part2 := MultiSelectionItemSelectorPart new initialList:
packagesList.
firstPane
addPart: part1
associatedTo: #packagesSelected.
lastPane
addPart: part2
associatedTo: #packagesSelected.
control open