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

_______________________________________________
Moose-dev mailing list
Moose-dev@iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev