Comment #2 on issue 792 by google....@ben.coman.com.au: Mondrian - broken popupText: http://code.google.com/p/moose-technology/issues/detail?id=792
This fixes it for me
MOAnnouncer>>popupText: aBlock delay: ms "open a popup text when the mouse enter a node" self popupView: [ :el :myView | myView shape rectangle. myView node: 'popup' forIt: [ | popupText | popupText := [aBlock value: el ] on: Error do: [ el asString ]. myView shape label. myView node: popupText ]. ] delay: ms
but I think there is more to it than that. The equivalent from version "VeronicaUquillas 7/20/2011 11:07" had the following, but I can't get that to work myself...
ifTrue:[ MOPopup show: ([aBlock value: ann element source model value: ann element target model ] on: Error do: [ [ (aBlock moValue: ann modelElement) asString ] on: Error do: [ 'Error when printing' ] ])
ifFalse:[ MOPopup show: ([ (aBlock moValue: ann modelElement) asString ] on: Error do: [ 'Error when printing' ]) asString ]