Status: New Owner: ---- CC: cy.delau...@gmail.com Labels: Type-Defect Priority-High
New issue 561 by alexandr...@gmail.com: Bug with Merlin http://code.google.com/p/moose-technology/issues/detail?id=561
When I use the wizard of Hapao, I get an error. You can reproduce the problem by doiting and pressing next: -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= | 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 := MultiSelectionListSelectorWithSmalltalkExpression on: packagesList. firstPane addPart: part1 associatedTo: #packagesSelected. lastPane addPart: part2 associatedTo: #packagesSelected. control open -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Unfortunately, I am not able to write a test for this since the window is modal
Comment #1 on issue 561 by cy.delau...@gmail.com: Bug with Merlin http://code.google.com/p/moose-technology/issues/detail?id=561
you should not use MultiSelectionListSelectorWithSmalltalkExpression anymore. Use MultiSelectionListSelector instead
Comment #2 on issue 561 by alexandr...@gmail.com: Bug with Merlin http://code.google.com/p/moose-technology/issues/detail?id=561
Same thing. The same error is produced. Did you mean MultiSelectionItemSelectorPart instead of MultiSelectionListSelector ? In that case, I have another error with the following:
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= | 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 on: packagesList. firstPane addPart: part1 associatedTo: #packagesSelected. lastPane addPart: part2 associatedTo: #packagesSelected. control open -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Updates: Status: Fixed
Comment #3 on issue 561 by alexandr...@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
Comment #4 on issue 561 by alexandr...@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