Offray/Socialmetrica
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Minor UI/UX improvements in Tweet and TwitterUser

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2021-08-22 10:30:03 -05:00
parent 2324324695
commit 4403c822b2
2 changed files with 20 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
Datanalitica.package/Tweet.class/instance/asCardElement.st
View File

@ -1,14 +1,21 @@
accessing
asCardElement
^ BrHorizontalPane new
hFitContent;
vFitContent;
padding: (BlInsets all: 20);
margin: (BlInsets all: 10);
addChild: (self user profileImage asElement asScalableElement size: 64@64);
addChild:
(self user profileImage asElement asScalableElement size: 64 @ 64);
addChild: (BrVerticalPane new
fitContent;
margin: (BlInsets left: 20);
addChild: (BrLabel new aptitude: BrGlamorousLabelAptitude; text: self created);
addChild: (BrLabel new aptitude: BrGlamorousLabelAptitude; text: self text));
when: BlClickEvent do: [:e | e target phlow spawnObject: self]
addChild: (BrLabel new
aptitude: BrGlamorousLabelAptitude;
text: '@' , self user name , ' | ' , self created asString;
beSmallSize);
addChild: (BrLabel new
aptitude: BrGlamorousLabelAptitude;
text: self text));
when: BlClickEvent do: [ :e | e target phlow spawnObject: self ]

2
Datanalitica.package/TwitterUser.class/instance/asCardElement.st
View File

@ -19,4 +19,4 @@ asCardElement
addChild: (BrLabel new aptitude: BrGlamorousLabelAptitude; text: self name; beLargeSize);
addChild: (BrLabel new aptitude: BrGlamorousLabelAptitude; text: 'joined: ', self createdAtShorted);
addChild: (BrLabel new aptitude: BrGlamorousLabelAptitude; text: self description));
when: BlClickEvent do: [:e | e target phlow spawnObject: self]
when: BlClickEvent do: [:e | e target phlow spawnObject: self tweets]