2021-08-22 00:47:09 +00:00
|
|
|
accessing
|
|
|
|
|
asCardElement
|
2021-08-22 15:30:03 +00:00
|
|
|
|
|
|
|
|
^ BrHorizontalPane new
|
|
|
|
|
hFitContent;
|
|
|
|
|
vFitContent;
|
2021-08-23 04:01:52 +00:00
|
|
|
padding: (BlInsets all: 15);
|
2021-08-22 15:30:03 +00:00
|
|
|
margin: (BlInsets all: 10);
|
|
|
|
|
addChild:
|
|
|
|
|
(self user profileImage asElement asScalableElement size: 64 @ 64);
|
|
|
|
|
addChild: (BrVerticalPane new
|
2021-08-23 04:01:52 +00:00
|
|
|
exact: 250;
|
2021-08-22 15:30:03 +00:00
|
|
|
margin: (BlInsets left: 20);
|
|
|
|
|
addChild: (BrLabel new
|
|
|
|
|
aptitude: BrGlamorousLabelAptitude;
|
2021-08-22 23:14:33 +00:00
|
|
|
text: '@' , self user userName , ' | ' , self created asString;
|
2021-08-22 15:30:03 +00:00
|
|
|
beSmallSize);
|
2021-08-23 04:01:52 +00:00
|
|
|
addChild: (BrEditor new
|
|
|
|
|
aptitude: BrGlamorousRegularEditorAptitude new;
|
|
|
|
|
beReadOnlyWithSelection;
|
2021-08-22 15:30:03 +00:00
|
|
|
text: self text));
|
|
|
|
|
when: BlClickEvent do: [ :e | e target phlow spawnObject: self ]
|
