Minor UI improvements in TwitterUser.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2021-08-21 21:14:22 -05:00
parent 764078a241
commit a8fca8f6a6

View File

@ -1,4 +1,4 @@
accessing ui
asCardElement asCardElement
^ BrHorizontalPane new ^ BrHorizontalPane new
hFitContent; hFitContent;
@ -9,7 +9,14 @@ asCardElement
addChild: (BrVerticalPane new addChild: (BrVerticalPane new
fitContent; fitContent;
margin: (BlInsets left: 20); margin: (BlInsets left: 20);
addChild: (BrLabel new aptitude: BrGlamorousLabelAptitude; text: '@', self userName); addChild: (BlTextElement new
constraintsDo: [ :c |
c horizontal fitContent ];
margin: (BlInsets top: 5 right: 0 bottom: 5 left: 5);
text: (('@', self userName) asRopedText glamorousRegularFont
fontSize: 20;
foreground: Color black));
addChild: (BrLabel new aptitude: BrGlamorousLabelAptitude; text: self name); addChild: (BrLabel new aptitude: BrGlamorousLabelAptitude; text: self name);
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));
when: BlClickEvent do: [:e | e target phlow spawnObject: self] when: BlClickEvent do: [:e | e target phlow spawnObject: self]