Class { #name : 'MFTUser', #superclass : 'Object', #instVars : [ 'trainee', 'username' ], #category : 'MyFitnessTracker-Web-Base', #package : 'MyFitnessTracker-Web', #tag : 'Base' } { #category : 'instance creation' } MFTUser class >> newDefault [ ^ self new trainee: MFTTrainee newDefault; username: 'default_01'; yourself ] { #category : 'accessing' } MFTUser >> trainee [ ^ trainee ] { #category : 'accessing' } MFTUser >> trainee: aMFTTrainee [ trainee := aMFTTrainee ] { #category : 'accessing' } MFTUser >> username [ ^ username ] { #category : 'accessing' } MFTUser >> username: aString [ username := aString ]