Issue 561 in moose-technology: Bug with Merlin

Status: New
Owner: ----
CC: [hidden email]
Labels: Type-Defect Priority-High

New issue 561 by [hidden email]: 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

_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev

Comment #1 on issue 561 by [hidden email]: Bug with Merlin
http://code.google.com/p/moose-technology/issues/detail?id=561

you should not use MultiSelectionListSelectorWithSmalltalkExpression  
anymore. Use MultiSelectionListSelector instead

_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev

Comment #2 on issue 561 by [hidden email]: 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
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev

Updates:
        Status: Fixed

Comment #3 on issue 561 by [hidden email]: 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


_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev

Comment #4 on issue 561 by [hidden email]: 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


_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev