CLIM Drag and Drop Translator

LispWorks for Linux v6.0.1

I'm trying to define a CLIM drag and drop translator where the from-type
and to-type are the same.  From the documentation, it seems that the
destination-type should be the same as the to-type. Nothing I do seems
to work.  It acts like I haven't defined something it needs in order to
know that the translator should be active.

I specified a :before-drag-tester to identify from-type objects that I
consider valid for dragging.  My :tester just checks to make sure that
the from-type object and destination-type object are not eql.

Does anyone have any examples of working drag and drop translators?

Also, the documentation doesn't say how I get access to the from-object
and the to-object/destination-object in the body of the translator.  Any
ideas on how that should happen?

Craig