Thanks, Pablo! It works like a charm, even other changes, e.g. with edges, work :-) I had to add a lastview signalUpdate because the diagram was not redrawing until I clicked on it. (The window did not have focus).
On Apr 23, 2014, at 4:13 PM, Pablo Estefó pestefo@gmail.com wrote:
highlightNode: aName |node| node := lastview elementFromModel: aName. node isNil ifFalse: [ node shape color: (Color red). node update].
Here’s a small example:
|node lastview| lastview := RTView new. lastview addAll: (RTBox elementsOn: #(1 2 3 4)). node := lastview elementFromModel: 3. node isNil ifFalse: [ node shape color: (Color red). node update.]. RTHorizontalLineLayout on: lastview elements. lastview open.
Does it help you?
Cheers, Pablo
---> Save our in-boxes! http://emailcharter.org <---
Johan Fabry - http://pleiad.cl/~jfabry PLEIAD lab - Computer Science Department (DCC) - University of Chile