[Moose-dev] Mondrian and events

Dear list, I enhanced Mondrian to support announcement based event. Here an example: -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= | view | view := MOViewRenderer new. view subscribe: MOMouseEnter do: [:ann | (ann element notNil and: [(ann element isKindOf: MORoot) not]) ifTrue: [MOPopup show: ann element printString] ifFalse: [MOPopup remove] ]. view subscribe: MOMouseDown do: [:ann | ann inspect]. view nodeShape: (MORectangleShape new width: 30; height: 40). view nodes: (1 to: 5). view open -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Two effects: - putting the mouse over a box display a popup window. - clicking on a box open an inspector I propose an extension. I think this respects what was done in VW. But maybe one wants to have different event handler regarding the objects inserted. For example: -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= | view | view := MOViewRenderer new. view nodeShape: (MORectangleShape new width: 30; height: 40). view subscribe: MOMouseDown do: [:ann | ann inspect]. view nodes: (1 to: 5). view subscribe: MOMouseDown do: [:ann | Beeper beep]. view nodes: (5 to: 10). view open -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Nodes from 1 to 5 will open an inspector when clicked. Nodes from 1 to 10 will beep instead. Cheers, Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.