Socialmetrica/Datanalitica.package/TwitterUser.class/instance/gtViewProfileDetailsOn..st

24 lines
706 B
Smalltalk
Raw Normal View History

2021-08-18 22:00:15 +00:00
accessing
gtViewProfileDetailsOn: aView
2021-08-18 22:00:15 +00:00
<gtView>
^ aView explicit
title: 'Details' translated;
priority: 5;
stencil: [
| container imageContainer |
2021-08-18 22:00:15 +00:00
container := BlElement new
layout: BlFlowLayout new;
2021-08-18 22:00:15 +00:00
constraintsDo: [ :c |
c vertical fitContent.
2021-08-18 22:00:15 +00:00
c horizontal matchParent ];
padding: (BlInsets all: 10).
imageContainer := BlLazyElement new
withGlamorousPreview;
aptitude: BrShadowAptitude new;
background: Color white;
margin: (BlInsets all: 20);
2021-08-18 22:00:15 +00:00
constraintsDo: [ :c |
c vertical exact: 150.
c horizontal exact: 1000 ];
elementBuilder: [ self asCardElement margin: (BlInsets all: 20) ].
container addChild: imageContainer].