Improving creation date processing/transfomation from different formats. #retrieveContents should also load local messages.
This commit is contained in:
parent
8d87ee3ed7
commit
e98fd45083
@ -10,5 +10,5 @@ getLocalMessages
|
||||
tweetsWithAntecesor := allTweets select: [ :each | each timelines isNotEmpty and: [ each timelines keys first = self userName ]].
|
||||
myTweets messages: tweetsWithAntecesor.
|
||||
self messages: myTweets.
|
||||
^ self messages
|
||||
^ self
|
||||
|
@ -1,6 +1,7 @@
|
||||
accessing
|
||||
retrieveContents
|
||||
self userName ifNil: [^ self].
|
||||
" self retrieveLocalContents ifNotNil: [ ^ self ]."
|
||||
^ self
|
||||
id;
|
||||
name;
|
||||
|
@ -1,3 +1,6 @@
|
||||
accessing
|
||||
retrieveLocalContents
|
||||
^ self class stored detect: [ :each | each userName = self userName ]
|
||||
| profileTemp |
|
||||
profileTemp := self class stored detect: [ :each | each userName = self userName ].
|
||||
profileTemp getLocalMessages.
|
||||
^ profileTemp
|
@ -1,5 +1,5 @@
|
||||
accessing
|
||||
created
|
||||
created class = DateAndTime ifTrue: [ ^ created ].
|
||||
^ (created endsWith: 'GMT') ifTrue: [ ^ DateAndTime fromString: ((created splitOn: $,) second withoutSuffix: 'GMT') ].
|
||||
"^ DateAndTime fromString: created"
|
||||
^ (created endsWith: 'GMT')
|
||||
ifTrue: [ ^ DateAndTime fromString: ((created splitOn: $,) second withoutSuffix: 'GMT') ] ifFalse: [ ^ DateAndTime fromString: created ].
|
@ -41,7 +41,7 @@ asCardElement
|
||||
BrButton new
|
||||
aptitude: BrGlamorousButtonWithLabelAptitude new;
|
||||
label: 'Tweets';
|
||||
action: [ :e | e phlow spawnObject: self getMessages ].
|
||||
action: [ :e | e phlow spawnObject: self messages ].
|
||||
BrButton new
|
||||
aptitude: BrGlamorousButtonWithLabelAptitude new;
|
||||
label: 'Web view';
|
||||
|
Loading…
Reference in New Issue
Block a user