We have a few different subclasses doing QCToManyComponnet>>buildReport | retVal | self magritteDescription startEditAll ifTrue: [ self editAll ]. retVal := (self reportClass rows: self value description: self reference) sortEnabled: self magritteDescription isOrdered not; yourself. retVal columns do: [ :each | each mementoCache: self cache. (each isKindOf: MADescribedColumn) ifTrue: [ self addColumnCommandsTo: each. each filter: true ] ]. retVal showFilter: self magritteDescription showFilter. retVal doubleClickCommand: self editCommand. ^retVal QCQueriedToManyComponent>>buildReport | retVal shown | retVal := super buildReport. shown := self resultsDescription shownColumns. retVal columns do: [ :column | | desc | desc := shown detect: [ :each | column magritteDescription = each ] ifNone: [ nil ]. column visible: desc notNil. desc ifNotNil: [ column magritteDescription priority: desc priority ] ]. retVal columns sort: [ :a :b | a < b ]. ^retVal TBSMagritteOneToManyComponent>>buildReport ^ (TBSMagritteReport rows: self value description: self reference) sortEnabled: self magritteDescription isOrdered not; yourself