Hi!
I am building a wizard and I am stopped on something that looks trivial.
Consider the following script:
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
| control firstPane lastPane part1 dropListPart part2 |
control := WizardControl new.
firstPane := WizardFirstPane new.
lastPane := WizardLastPane new.
control addPane: firstPane; addPane: lastPane.
"First pane: picking the configuration we are interested in"
part1 := TextPart new inGroupboxNamed: 'Select the configuration you want to load versions from'.
firstPane addPart: part1 associatedTo: #selectedConfiguration.
dropListPart := DropListPart new
inGroupboxNamed: 'Configurations';
list: self listOfConfigurations;
useLatePopulateContents: false;
yourself.
firstPane row: dropListPart associatedTo: #selectedConfiguration2.
"Second pane"
part2 := MultiSelectionItemSelectorPart new initialList: ([:input | {input at: #selectedConfiguration2}]).
lastPane addPart: part2 associatedTo: #selectedVersions.
"Open the controler"
control open.
^ control
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
The problem is that I do not know how to initialize the MultiSelectionItemSelectorPart in the second pane since I need the result of what I selected in part1. I tried to inspire myself from the merlin example #itemsSelectorPartUsing: , but without success.
So, how part2 can refer to the result selected in part1 ?
Cheers,
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
I am working on porting an FCA library from VW to Pharo.
In VW, classes LatticeNode and Lattice inherit from a class: Pimon.Figure.
The corresponding classes in pharo, already ported, inherit from
ProtoObject.
My question: Is there an easy workaround (that is inheriting from a similar
class in pharo doing the work of Pimon.Figure) or do I need to rewrite these
Lattice and LatticeNode classes?
thanx
Usman
Hi,
For your information, the Moose build is broken apparently due to a mismatch between ConfigurationOfGrease and the image.
Any help in this direction would be appreciated.
Cheers,
Doru
--
www.tudorgirba.com
"Be rather willing to give than demanding to get."
Hi Cyrille,
Thanks for your help. This goes indeed in the right direction, however I have the impression I am now bumping into a bug.
Consider the following code:
-=-=-= -=-=-= -=-=-= -=-=-= -=-=-=
| wizardControl wizardPane1 wizardPane2 itemsSelectorsPart listPart aRenderer |
aRenderer := MerlinMorphicWizardRenderer new .
wizardControl := WizardControl new.
wizardControl renderer: aRenderer.
wizardPane1 := WizardFirstPane new.
wizardPane2 := WizardLastPane new.
itemsSelectorsPart := MultiSelectionItemSelectorPart new
initialList: #(item1 item2 item3 item4);
yourself.
listPart := MultiSelectionItemSelectorPart new
initialList: [:requiredInputs |
(requiredInputs at: #selectedItems)
];
yourself.
wizardPane1 row: itemsSelectorsPart associatedTo: #selectedItems.
wizardPane2 row: listPart requiring: {#selectedItems}.
wizardControl
addPane: wizardPane1;
addPane: wizardPane2.
wizardControl open.
-=-=-= -=-=-= -=-=-= -=-=-= -=-=-=
This throws an error.
Shall I open an issue?
Cheers,
Alexandre
On 17 Oct 2011, at 14:45, Cyrille Delaunay wrote:
> Hello alex,
>
> 2011/10/17 Alexandre Bergel <alexandre.bergel(a)me.com>
> Hi!
>
> I am building a wizard and I am stopped on something that looks trivial.
> Consider the following script:
>
> -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
> | control firstPane lastPane part1 dropListPart part2 |
> control := WizardControl new.
> firstPane := WizardFirstPane new.
> lastPane := WizardLastPane new.
>
> control addPane: firstPane; addPane: lastPane.
>
> "First pane: picking the configuration we are interested in"
> part1 := TextPart new inGroupboxNamed: 'Select the configuration you want to load versions from'.
> firstPane addPart: part1 associatedTo: #selectedConfiguration.
>
> dropListPart := DropListPart new
> inGroupboxNamed: 'Configurations';
> list: self listOfConfigurations;
> useLatePopulateContents: false;
> yourself.
> firstPane row: dropListPart associatedTo: #selectedConfiguration2.
>
> "Second pane"
> part2 := MultiSelectionItemSelectorPart new initialList: ([:input | {input at: #selectedConfiguration2}]).
> lastPane addPart: part2 associatedTo: #selectedVersions.
>
> I think that here you should specify something like:
>
> lastPane addPart: part2 associatedTo: #selectedVersions requiring: #selectedConfiguration2.
>
> Like that the input of the MultiSelectionItemSelectorPart get populated with output of the dropListPart. That means that the line:
>
>
> part2 := MultiSelectionItemSelectorPart new initialList: ([:input | {input at: #selectedConfiguration2}]).
>
> will work corectly.
> Does it answer to your question?
>
>
> "Open the controler"
> control open.
> ^ control
> -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
>
> The problem is that I do not know how to initialize the MultiSelectionItemSelectorPart in the second pane since I need the result of what I selected in part1. I tried to inspire myself from the merlin example #itemsSelectorPartUsing: , but without success.
>
> So, how part2 can refer to the result selected in part1 ?
>
> Cheers,
> Alexandre
> --
> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
> Alexandre Bergel http://www.bergel.eu
> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>
>
>
>
>
>
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Hi!
In the MooseModel root I have a number of Smalltalk models.
Consider the following script:
-=-=-=-=-=-=-=-=-=-=-=-=
histories:=MooseModel root allModels asArray.
history:=HismoModelHistory new.
histories do:[:model| history addLastVersionForMooseModel: model].
history allClassHistories class
-=-=-=-=-=-=-=-=-=-=-=-=
The script prints HismoHistoryGroup, where I expected HismoClassHistoryGroup.
In the Moose panel, I see the item 'All Class Histories'. But inspecting it reveals it is an instance of HismoHistoryGroup.
Am I missing something obvious?
Cheers,
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
FAMIXAssociations being SourcedEntities have a 'sourceAnchor' instance variable.
However it redefines the method sourceAnchor :
^ self from sourceAnchor
I am sure there was some good reason to do this, but to me this is counter intuitive and something should probably be corrected.
(in practice I spent from 11pm to 1am yesterday looking for a bug that did not exist :-( )
nicolas
That is cool Simon. If you can make it public I will surely play with it :)
Cheers,
Fabrizio
On 17 Oct 2011, at 16:30, Simon Denier wrote:
>
> On 14 oct. 2011, at 12:47, Fabrizio Perin wrote:
>
>> Hi,
>> I will start to work on a parser to parse git logs. For now i will parer the info generated by "git log --stat". A full diff parser will came later.
>>
>> If you have any suggestion or comment please ping me.
>
>
> Hi Fabrizio
>
> Just wanted to tell you that I wrote such a parser this summer, part time because I wanted to learn Petit Parser. However, it's still in the context of my work, so I have to check with my boss whether I can release it in the wild first.
>
> --
> Simon Denier
>
>
>
On Oct 16, 2011, at 10:07 PM, Tudor Girba wrote:
> Hi,
>
> If you give me the script, I build one based on the Core.
>
Husdon does:
Gofer new
squeaksource: 'MetacelloRepository';
package: 'ConfigurationOfPharo';
load.
--
Marcus Denker -- http://marcusdenker.de
On Oct 16, 2011, at 10:00 PM, Tudor Girba wrote:
> Ok. We did it. Now, the whole Moose is unbuildable :)
>
> The issue is that it tells us that:
>
> *** Warning: Warning: You are about to load new versions of the following packages that have unsaved changes in the image. If you continue, you will lose these changes.
>
> Refactoring-Tests-Core
>
>
> We are loading ConfigurationOfRB stable.
We really need to make a version of everytthing based on 13315.
Marcus
--
Marcus Denker -- http://marcusdenker.de
