" I represent a single working set. " Class { #name : 'MFTStraightSetGroupPrescription', #superclass : 'MFTSetGroupPrescription', #category : 'MyFitnessTracker-Core-Prescription', #package : 'MyFitnessTracker-Core', #tag : 'Prescription' } { #category : 'as yet unclassified' } MFTStraightSetGroupPrescription class >> with: aMFTSetPrescription [ ^ self new sets: (OrderedCollection with: aMFTSetPrescription); validate; yourself ] { #category : 'initialization' } MFTStraightSetGroupPrescription >> canonicalName [ ^ 'straight set' ] { #category : 'validation' } MFTStraightSetGroupPrescription >> validate [ sets size = 1 ifFalse: [ self error: 'Straight group must have exactly 1 set.' ] ]