Class { #name : 'MFTSession', #superclass : 'WASession', #instVars : [ 'user', 'glorpSession' ], #category : 'MyFitnessTracker-Web-Base', #package : 'MyFitnessTracker-Web', #tag : 'Base' } { #category : 'accessing' } MFTSession >> glorpSession [ ^ glorpSession ] { #category : 'initialization' } MFTSession >> initialize [ super initialize. "glorpSession := MFTDescriptorSystem sessionForDefaultLogin." "glorpSession login." user := MFTUser newDefault ] { #category : 'parent/child' } MFTSession >> logout [ "glorpSession connection close." user := MFTUser newDefault ] { #category : 'parent/child' } MFTSession >> unregistered [ super unregistered. self logout ] { #category : 'accessing' } MFTSession >> user [ ^ user ] { #category : 'accessing' } MFTSession >> user: aMFTUser [ user := aMFTUser ]