Hi,
I'm trying to do a visualization that shows a group of twitter users
connected to each other. It shows the images from the users but when i add
the edges, the images dissapear.
Here's the code:
view := RTView new.
e1 := RTElement on: user1.
e2 := RTElement on: user2.
elements := OrderedCollection newFrom: {e1. e2}.
elements do: [ :e |
| label shape form edge |
label := RTLabel new text: e1 model name.
form := Form fromFileNamed: 'aFilename'.
shape := RTBitmap new form: form.
e + (RTVerticalCompositeShape new shape1: shape; shape2: label) ].
line := RTArrow new color: Color red.
view add: (line edgeFrom: e1 to: e2 ).
view addAll: elements.
view open.
View without edges <http://forum.world.st/file/n4762851/withoutEdges.png>
View with edges <http://forum.world.st/file/n4762851/withEdges.png>
Anyone know how to fix this (show both images and edges)??
Thanks,
Rosario
--
View this message in context:
http://forum.world.st/Roassal-forms-edges-tp4762851.html
Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com.
