[Moose-dev] Re: Issue 792 in moose-technology: Mondrian - broken popupText:

Comment #2 on issue 792 by google....(a)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 ]