Minor UI improvements in TwitterUser.
This commit is contained in:
parent
764078a241
commit
a8fca8f6a6
@ -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]
|
Loading…
Reference in New Issue
Block a user