Hi!

Maybe some of you are not are not aware of the RTBlink class. RTBlink is an interaction to make element blink. You simply need to invoke "RTBlink on: aRoassalElement”

Here are two examples: -=-=-=-=-=-=-=-=-=-=-=-=-=-=-= v := RTView new. v @ RTDraggableView. shape := RTBox new width: [ :cls | cls numberOfVariables * 5 max: 5 ]; height: [ :cls | cls numberOfMethods sqrt * 2 ]. es := shape elementsOn: Collection withAllSubclasses. v addAll: es. RTFlowLayout on: es. RTMetricNormalizer new elements: es; normalizeColor: #numberOfLinesOfCode. es when: TRMouseClick do: [ :event | RTBlink new color: Color blue; on: event element ]. v -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

Simply click on an element to make it blink.

A slightly more elaborated example:

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= "Set here the classes you wish to visualize" classes := Collection withAllSubclasses.

v := RTView new. v @ RTDraggableView. shape := RTBox new width: [ :cls | cls numberOfVariables * 5 max: 5 ]; height: [ :cls | cls numberOfMethods sqrt * 2 ]. es := shape elementsOn: classes. v addAll: es. RTFlowLayout on: es. RTMetricNormalizer new elements: es; normalizeColor: #numberOfLinesOfCode.

"Set here the classes you wish to visualize" labels := (RTLabel new height: 8) elementsOn: classes. RTFlowLayout new gapSize: 0; on: labels. v addAll: labels. TRConstraint move: labels onTheRightOf: es. labels translateBy: 20 @ 0.

labels @ RTHighlightable. labels when: TRMouseClick do: [ :event | RTBlink new color: Color blue; on: (es elementFromModel: event element model) ].

es @ RTHighlightable. es when: TRMouseClick do: [ :event | RTBlink new color: Color blue; on: (labels elementFromModel: event element model) ]. v -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

Cheers, Alexandre