accessing
asDictionary

	| tweets |
	tweets := self messages.
	^ { 'profile-card-avatar' -> self profileImageFile fullName.
	'profile-card-avatar-url' -> self profileImageUrl.
	'profile-card-fullname' -> self name .
	'profile-card-username' -> self userName .
	'profile-bio' -> self profileBio.
	'messages-size' -> tweets size.
	'messages-newest' -> tweets newest created asDate greaseString.
	'messages-oldest' -> tweets oldest created asDate greaseString 
	} asDictionary