1 Class { 2 #name : 'MFTSession', 3 #superclass : 'WASession', 4 #instVars : [ 5 'user', 6 'glorpSession' 7 ], 8 #category : 'MyFitnessTracker-Web-Base', 9 #package : 'MyFitnessTracker-Web', 10 #tag : 'Base' 11 } 12 13 { #category : 'accessing' } 14 MFTSession >> glorpSession [ 15 16 ^ glorpSession 17 ] 18 19 { #category : 'initialization' } 20 MFTSession >> initialize [ 21 22 super initialize. 23 "glorpSession := MFTDescriptorSystem sessionForDefaultLogin." 24 "glorpSession login." 25 user := MFTUser newDefault 26 ] 27 28 { #category : 'parent/child' } 29 MFTSession >> logout [ 30 "glorpSession connection close." 31 32 user := MFTUser newDefault 33 ] 34 35 { #category : 'parent/child' } 36 MFTSession >> unregistered [ 37 38 super unregistered. 39 self logout 40 ] 41 42 { #category : 'accessing' } 43 MFTSession >> user [ 44 45 ^ user 46 ] 47 48 { #category : 'accessing' } 49 MFTSession >> user: aMFTUser [ 50 51 user := aMFTUser 52 ] 53