[Moose-dev] NameCloud

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 ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.