7 Nov
2011
7 Nov
'11
6:24 p.m.
We have
Collection variableSubclass: #MooseGroupStorage
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'Moose-Core'
MooseGroupStorage variableSubclass: #MooseGroupRuntimeStorage
instanceVariableNames: 'byName elements byType'
classVariableNames: ''
poolDictionaries: ''
category: 'Moose-Core'
at: uniqueName ifAbsent: exceptionBlock
| entity na |
na := uniqueName asSymbol.
"look first by name and if not found"
entity := byName at: na ifAbsent: [nil].
entity notNil ifTrue: [^entity].
"iterates over all the elements"
entity := self
detect: [:each | na == each mooseName asSymbol]
ifNone: exceptionBlock.
entity notNil ifTrue: [byName at: na put: entity].
^entity
Now I could not find where the byName dictionary is set.
Does anybody know?
Stef
7 Nov
7 Nov
10:32 p.m.
Hi,
Open the browser, select the MooseGroupRuntimeStorage class, then spawn the variables
dedicated browser, and then you will see that byName is initialized in initialize:.
Cheers,
Doru
On 7 Nov 2011, at 14:24, Usman Bhatti wrote:
We have
Collection variableSubclass: #MooseGroupStorage
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'Moose-Core'
MooseGroupStorage variableSubclass: #MooseGroupRuntimeStorage
instanceVariableNames: 'byName elements byType'
classVariableNames: ''
poolDictionaries: ''
category: 'Moose-Core'
at: uniqueName ifAbsent: exceptionBlock
| entity na |
na := uniqueName asSymbol.
"look first by name and if not found"
entity := byName at: na ifAbsent: [nil].
entity notNil ifTrue: [^entity].
"iterates over all the elements"
entity := self
detect: [:each | na == each mooseName asSymbol]
ifNone: exceptionBlock.
entity notNil ifTrue: [byName at: na put: entity].
^entity
Now I could not find where the byName dictionary is set.
Does anybody know?
Stef
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
www.tudorgirba.com
"We are all great at making mistakes."
11:12 p.m.
Strange because I did that and I could not get it.
On Nov 7, 2011, at 10:32 PM, Tudor Girba wrote:
Hi,
Open the browser, select the MooseGroupRuntimeStorage class, then spawn the variables
dedicated browser, and then you will see that byName is initialized in initialize:.
Cheers,
Doru
On 7 Nov 2011, at 14:24, Usman Bhatti wrote:
We have
Collection variableSubclass: #MooseGroupStorage
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'Moose-Core'
MooseGroupStorage variableSubclass: #MooseGroupRuntimeStorage
instanceVariableNames: 'byName elements byType'
classVariableNames: ''
poolDictionaries: ''
category: 'Moose-Core'
at: uniqueName ifAbsent: exceptionBlock
| entity na |
na := uniqueName asSymbol.
"look first by name and if not found"
entity := byName at: na ifAbsent: [nil].
entity notNil ifTrue: [^entity].
"iterates over all the elements"
entity := self
detect: [:each | na == each mooseName asSymbol]
ifNone: exceptionBlock.
entity notNil ifTrue: [byName at: na put: entity].
^entity
Now I could not find where the byName dictionary is set.
Does anybody know?
Stef
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
www.tudorgirba.com
"We are all great at making mistakes."
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
11:22 p.m.
Hi,
Open the browser, select the MooseGroupRuntimeStorage class, then spawn the variables
dedicated browser, and then you will see that byName is initialized in initialize:.
I found it in fact. This is not my question :)
Now I could not find who is using it to add new binding this is what I mean by "set
it".
especially because I have some doubts on the real advantage to inherit from Collection.
The do: is redefined to iterate on the elements but there is no at:put: in Collection and
I could not find one in the
So my question is data get put in that dictionary?
> at: uniqueName ifAbsent: exceptionBlock
>
> | entity na |
> na := uniqueName asSymbol.
> "look first by name and if not found"
> entity := byName at: na ifAbsent: [nil].
> entity notNil ifTrue: [^entity].
> "iterates over all the elements"
> entity := self
> detect: [:each | na == each mooseName asSymbol]
> ifNone: exceptionBlock.
> entity notNil ifTrue: [byName at: na put: entity].
> ^entity
BTW this method is better that the original one because at:ifAbsent: aBlock and not nil +
comment.
I should commit it.
add: only fill up the byType
add: anElement
| key group |
key := anElement class.
group := byType
at: key
ifAbsentPut: [ OrderedCollection new ].
group add: anElement.
elements add: anElement.
^ anElement
4794
days inactive
4794
days old
3 comments
3 participants
participants (3)
-
Stéphane Ducasse -
Tudor Girba -
Usman Bhatti