diff --git a/src/Fame-Core/FMMultivalueLink.class.st b/src/Fame-Core/FMMultivalueLink.class.st index aa8ab75f..f2450cd8 100644 --- a/src/Fame-Core/FMMultivalueLink.class.st +++ b/src/Fame-Core/FMMultivalueLink.class.st @@ -119,11 +119,26 @@ FMMultivalueLink >> do: aBlock [ values do: aBlock ] +{ #category : #'accessing-computed' } +FMMultivalueLink >> eighth [ + ^ self at: 8 +] + +{ #category : #'accessing-computed' } +FMMultivalueLink >> fifth [ + ^ self at: 5 +] + { #category : #'accessing-computed' } FMMultivalueLink >> first [ ^ self at: 1 ] +{ #category : #'accessing-computed' } +FMMultivalueLink >> fourth [ + ^ self at: 4 +] + { #category : #comparing } FMMultivalueLink >> hash [ "From sequenceable collection" @@ -143,6 +158,11 @@ FMMultivalueLink >> last [ ^ values last ] +{ #category : #'accessing-computed' } +FMMultivalueLink >> ninth [ + ^ self at: 9 +] + { #category : #copying } FMMultivalueLink >> postCopy [ @@ -175,6 +195,16 @@ FMMultivalueLink >> second [ ^ self at: 2 ] +{ #category : #'accessing-computed' } +FMMultivalueLink >> seventh [ + ^ self at: 7 +] + +{ #category : #'accessing-computed' } +FMMultivalueLink >> sixth [ + ^ self at: 6 +] + { #category : #accessing } FMMultivalueLink >> size [ diff --git a/src/Fame-Core/FMSlotMultivalueLink.class.st b/src/Fame-Core/FMSlotMultivalueLink.class.st index 9ae3cace..8331db5a 100644 --- a/src/Fame-Core/FMSlotMultivalueLink.class.st +++ b/src/Fame-Core/FMSlotMultivalueLink.class.st @@ -86,11 +86,26 @@ FMSlotMultivalueLink >> do: aBlock [ values do: aBlock ] +{ #category : #'accessing-computed' } +FMSlotMultivalueLink >> eighth [ + ^ self at: 8 +] + +{ #category : #'accessing-computed' } +FMSlotMultivalueLink >> fifth [ + ^ self at: 5 +] + { #category : #'accessing-computed' } FMSlotMultivalueLink >> first [ ^ self at: 1 ] +{ #category : #'accessing-computed' } +FMSlotMultivalueLink >> fourth [ + ^ self at: 4 +] + { #category : #comparing } FMSlotMultivalueLink >> hash [ "From sequenceable collection" @@ -116,6 +131,11 @@ FMSlotMultivalueLink >> last [ ^ values last ] +{ #category : #'accessing-computed' } +FMSlotMultivalueLink >> ninth [ + ^ self at: 9 +] + { #category : #private } FMSlotMultivalueLink >> owner: anObject slot: aFMRelationSlot [ @@ -145,6 +165,16 @@ FMSlotMultivalueLink >> second [ ^ self at: 2 ] +{ #category : #'accessing-computed' } +FMSlotMultivalueLink >> seventh [ + ^ self at: 7 +] + +{ #category : #'accessing-computed' } +FMSlotMultivalueLink >> sixth [ + ^ self at: 6 +] + { #category : #accessing } FMSlotMultivalueLink >> size [