2022-04-01 22:22:33 +00:00
|
|
|
ui
|
|
|
|
|
gtTweetsFor: aView
|
|
|
|
|
<gtView>
|
|
|
|
|
^ aView explicit
|
|
|
|
|
title: 'Tweets';
|
|
|
|
|
stencil: [
|
|
|
|
|
| container imageContainer |
|
|
|
|
|
container := BlElement new
|
|
|
|
|
layout: BlFlowLayout new;
|
|
|
|
|
constraintsDo: [ :c |
|
|
|
|
|
c vertical fitContent.
|
|
|
|
|
c horizontal matchParent ];
|
|
|
|
|
padding: (BlInsets all: 10).
|
2022-04-14 22:40:41 +00:00
|
|
|
self messages do: [ :each |
|
2022-04-10 17:37:25 +00:00
|
|
|
imageContainer := BrAsyncWidget new
|
|
|
|
|
aptitude: BrShadowAptitude new;
|
|
|
|
|
background: Color white;
|
|
|
|
|
margin: (BlInsets all: 10);
|
|
|
|
|
constraintsDo: [ :c |
|
2022-04-11 15:05:21 +00:00
|
|
|
c vertical exact: 200.
|
2022-04-10 17:37:25 +00:00
|
|
|
c horizontal exact: 480 ];
|
|
|
|
|
stencil: [ each asCardElement margin: (BlInsets all: 15) ].
|
|
|
|
|
container addChild: imageContainer
|
|
|
|
|
].
|
2022-04-01 22:22:33 +00:00
|
|
|
container asScrollableElement ]
|
