This example no longer works.
Also when I select an element the zooming in the visualization does not work any more.
On a related topic we could add something like the following method to RTElement
RTElement>>spotterPreviewIn: aComposite
<spotterPreview: 10>
RTBlink unhighlightElements: self view elements.
RTBlink highlight: self.
aComposite addBrickBack: self view setUpCanvas buildMorph
Now this method is quite a hack but would make it possible to have something in the images from below.
The bad part is the method above has a lot of side-effects as it resizes the canvas in the original visualization (if the view is opened somewhere else)
and it does not deselect the element when spotter is closed.
Cheers,
Andrei