Offray
/
Socialmetrica
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Minor UI Improvements on containers. Still pending improvements in text flow.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2021-08-22 23:01:52 -05:00
parent 75e05472b3
commit bdfa072c31
8 changed files with 29 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Datanalitica.package/DiscourseTopic.class/instance/addKeyword.to..st Normal file
View File

@ -0,0 +1,5 @@
accessing
addKeyword: keyword to: subtopic
self subtopics
at: subtopic put: keyword;
yourself.

3
Datanalitica.package/DiscourseTopic.class/instance/language.st Normal file
View File

@ -0,0 +1,3 @@
accessing
language
^ language

3
Datanalitica.package/DiscourseTopic.class/instance/name..st Normal file
View File

@ -0,0 +1,3 @@
accessing
name: aString
name := aString

3
Datanalitica.package/DiscourseTopic.class/instance/name.st Normal file
View File

@ -0,0 +1,3 @@
accessing
name
^ name

5
Datanalitica.package/DiscourseTopic.class/instance/printOn..st Normal file
View File

@ -0,0 +1,5 @@
accessing
printOn: aStream
super printOn: aStream.
aStream
nextPutAll: '( ',self name, ' | ', self language, ' )'

9
Datanalitica.package/Tweet.class/instance/asCardElement.st
View File

@ -4,18 +4,19 @@ asCardElement
^ BrHorizontalPane new
hFitContent;
vFitContent;
padding: (BlInsets all: 20);
padding: (BlInsets all: 15);
margin: (BlInsets all: 10);
addChild:
(self user profileImage asElement asScalableElement size: 64 @ 64);
addChild: (BrVerticalPane new
fitContent;
exact: 250;
margin: (BlInsets left: 20);
addChild: (BrLabel new
aptitude: BrGlamorousLabelAptitude;
text: '@' , self user userName , ' | ' , self created asString;
beSmallSize);
addChild: (BrLabel new
aptitude: BrGlamorousLabelAptitude;
addChild: (BrEditor new
aptitude: BrGlamorousRegularEditorAptitude new;
beReadOnlyWithSelection;
text: self text));
when: BlClickEvent do: [ :e | e target phlow spawnObject: self ]

8
Datanalitica.package/TweetsCollection.class/instance/gtTweetsFor..st
View File

@ -1,4 +1,4 @@
accessing
ui
gtTweetsFor: aView
<gtView>
^ aView explicit
@ -8,7 +8,7 @@ gtTweetsFor: aView
container := BlElement new
layout: BlFlowLayout new;
constraintsDo: [ :c |
c vertical fitContent.
c vertical matchParent.
c horizontal matchParent ];
padding: (BlInsets all: 10).
self tweets do: [ :each |
@ -19,8 +19,8 @@ gtTweetsFor: aView
margin: (BlInsets all: 20);
constraintsDo: [ :c |
c vertical exact: 100.
c horizontal exact: 1000 ];
c vertical exact: 200.
c horizontal matchParent ];
elementBuilder: [ each asCardElement margin: (BlInsets all: 20) ].
container addChild: imageContainer].
container asScrollableElement ]

2
Datanalitica.package/TwitterUser.class/instance/gtViewProfileDetailsOn..st
View File

@ -19,6 +19,6 @@ gtViewProfileDetailsOn: aView
margin: (BlInsets all: 20);
constraintsDo: [ :c |
c vertical exact: 150.
c horizontal exact: 1000 ];
c horizontal matchParent ];
elementBuilder: [ self asCardElement margin: (BlInsets all: 20) ].
container addChild: imageContainer].