View raw

1 " 2 I provide an id to all objects in the MFT core domain. 3 " 4 Class { 5 #name : 'MFTObject', 6 #superclass : 'Object', 7 #instVars : [ 8 'id' 9 ], 10 #category : 'MyFitnessTracker-Core-Base', 11 #package : 'MyFitnessTracker-Core', 12 #tag : 'Base' 13 } 14 15 { #category : 'initialization' } 16 MFTObject >> canonicalName [ 17 18 ^ self subclassResponsibility 19 ] 20 21 { #category : 'accessing' } 22 MFTObject >> id [ 23 24 ^ id 25 ] 26 27 { #category : 'accessing' } 28 MFTObject >> id: anInteger [ 29 30 id := anInteger 31 ] 32 33 { #category : 'printing' } 34 MFTObject >> printOn: aStream [ 35 36 aStream nextPutAll: self canonicalName 37 ] 38