Socialmetrica/Datanalitica.package/Tweet.class/instance/asCardElement.st

14 lines
528 B
Smalltalk
Raw Normal View History

accessing
asCardElement
^ BrHorizontalPane new
hFitContent;
vFitContent;
padding: (BlInsets all: 20);
margin: (BlInsets all: 10);
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]