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
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.