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

29
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:
addChild: (BrVerticalPane new (self user profileImage asElement asScalableElement size: 64 @ 64);
fitContent; addChild: (BrVerticalPane new
margin: (BlInsets left: 20); fitContent;
addChild: (BrLabel new aptitude: BrGlamorousLabelAptitude; text: self created); margin: (BlInsets left: 20);
addChild: (BrLabel new aptitude: BrGlamorousLabelAptitude; text: self text)); addChild: (BrLabel new
when: BlClickEvent do: [:e | e target phlow spawnObject: self] 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: 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]