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

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

@ -1,14 +1,21 @@
accessing accessing
asCardElement asCardElement
^ BrHorizontalPane new ^ BrHorizontalPane new
hFitContent; hFitContent;
vFitContent; vFitContent;
padding: (BlInsets all: 20); padding: (BlInsets all: 20);
margin: (BlInsets all: 10); 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 addChild: (BrVerticalPane new
fitContent; fitContent;
margin: (BlInsets left: 20); margin: (BlInsets left: 20);
addChild: (BrLabel new aptitude: BrGlamorousLabelAptitude; text: self created); addChild: (BrLabel new
addChild: (BrLabel new aptitude: BrGlamorousLabelAptitude; text: self text)); 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 ] 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: self name; beLargeSize);
addChild: (BrLabel new aptitude: BrGlamorousLabelAptitude; text: 'joined: ', self createdAtShorted); addChild: (BrLabel new aptitude: BrGlamorousLabelAptitude; text: 'joined: ', self createdAtShorted);
addChild: (BrLabel new aptitude: BrGlamorousLabelAptitude; text: self description)); 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]