23 Apr
2014
23 Apr
'14
9:37 p.m.
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(a)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