[Moose-dev] Roassal TRMouseClick on RTEdge bug

Hi When I attach TRMouseClick event on an edge it gets fired but the event element is nil so I have no reference to the original object. Since RTEdge is subclass of RTAnnouncableObject I would expect it to work correctly. ------------- view := RTView new. el1 := RTEllipse new size: 30; elementOn: 'a'. el2 := RTEllipse new size: 30; elementOn: 'b'. el1 translateTo: -50 @ 0. el2 translateTo: 50 @ 0. line := RTArrowwedLine edgeFrom: el1 to: el2. el1 when: TRMouseClick do: [ :event | event element inspect ]. "returns el1" line when: TRMouseClick do: [ :event | event element inspect ]. "returns nil" view add: el1; add:el2; add: line. view open. ------------------ Thanks, Peter