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:

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

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

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

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

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