Roassal tip: Blinking elements

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