1 Class { 2 #name : 'MFTUser', 3 #superclass : 'Object', 4 #instVars : [ 5 'trainee', 6 'username' 7 ], 8 #category : 'MyFitnessTracker-Web-Base', 9 #package : 'MyFitnessTracker-Web', 10 #tag : 'Base' 11 } 12 13 { #category : 'instance creation' } 14 MFTUser class >> newDefault [ 15 16 ^ self new 17 trainee: MFTTrainee newDefault; 18 username: 'default_01'; 19 yourself 20 ] 21 22 { #category : 'accessing' } 23 MFTUser >> trainee [ 24 25 ^ trainee 26 ] 27 28 { #category : 'accessing' } 29 MFTUser >> trainee: aMFTTrainee [ 30 31 trainee := aMFTTrainee 32 ] 33 34 { #category : 'accessing' } 35 MFTUser >> username [ 36 37 ^ username 38 ] 39 40 { #category : 'accessing' } 41 MFTUser >> username: aString [ 42 43 username := aString 44 ] 45