Hi!

I have added a name cloud builder in Roassal. Maybe some of you will find it useful

It is very primitive and does do much, but it does the primitive things :-)

Here is an example:

=-=-=-=-==-=-=-=-==-=-=-=-==-=-=-=-=

RTNameCloud new 
addString: 'open

| v shape |
v := RTView new.
shape := RTLabel new height: [ :assoc | assoc value ]; text: #key.
v addAll: (shape elementsOn: table associations).
RTFlowLayout on: v elements.
v open';
open

=-=-=-=-==-=-=-=-==-=-=-=-==-=-=-=-=

It produces:

A slightly more complicated example:

=-=-=-=-==-=-=-=-==-=-=-=-==-=-=-=-=

| b |
b := RTNameCloud new.
b addStrings: (RTNameCloud methods collect: #getSource).
b open

=-=-=-=-==-=-=-=-==-=-=-=-==-=-=-=-=

produces:

We did this name cloud builder because we had a need to process text extracted from StackExchange. We added a dictionary containing words that are not interesting. For example:

=-=-=-=-==-=-=-=-==-=-=-=-==-=-=-=-=

| b |
b := RTNameCloud new.
b minHeight: 20.
b maxHeight: 30.
b addString: 'I am not that tall but I speak many languages. But I have tall legs and big feet'.
b open

=-=-=-=-==-=-=-=-==-=-=-=-==-=-=-=-=

It produces:

Words such as ‘I’, ‘not’, ‘that’, ‘but’ are not shown.

Cheers,

Alexandre

-- 
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel  http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

_______________________________________________
Moose-dev mailing list
Moose-dev@iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev