Pb with Merlin

> Hi!
>
> 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
>
> Alexandre
>
> --
> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
> Alexandre Bergel  http://www.bergel.eu
> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>
>
>
>
>
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev

> Yes this is due to recent changes I made in merlin. You should no longer use 'MultiSelectionListSelectorWithSmalltalkExpression'.
>
> here is the script corrected:
> ==============================================
>  | 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
>
> 2011/3/22 Alexandre Bergel <[hidden email]>
> Hi!
>
> 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
>
> Alexandre
>
> --
> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
> Alexandre Bergel  http://www.bergel.eu
> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>
>
>
>
>
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev