" I provide an id to all objects in the MFT core domain. " Class { #name : 'MFTObject', #superclass : 'Object', #instVars : [ 'id' ], #category : 'MyFitnessTracker-Core-Base', #package : 'MyFitnessTracker-Core', #tag : 'Base' } { #category : 'initialization' } MFTObject >> canonicalName [ ^ self subclassResponsibility ] { #category : 'accessing' } MFTObject >> id [ ^ id ] { #category : 'accessing' } MFTObject >> id: anInteger [ id := anInteger ] { #category : 'printing' } MFTObject >> printOn: aStream [ aStream nextPutAll: self canonicalName ]