Making a Rubric text morph movable

We have a Morph containing a RubTextFieldMorph that we want
to be able to drag around. At the same time, we want selection
extension with the mouse to work. That feels ok when the dragging
can only be initiated when the text field has no keyboard focus.

The way we've made that work feels somewhat clumsy.
What would be a better way?

The containing morph has a default mouseDownPriority of 10

MindmapNode>>initialize
        super initialize.
        self addMorph: (
        (MindmapTextField
                on: self)
                withGhostText: self defaultTitle;
                autoAccept: true;
                bounds: (self bounds);
                yourself).
        prio := 10.

When it is clicked, the prio is set to 0

MindmapNode>>click: evt
        submorphs first takeKeyboardFocus.
        prio := 0

The text field is subclassed

RubTextFieldMorph subclass: #MindmapTextField

and overrides whenFocusLost:

MindmapTextFieldwhenLostForcus: anAnnouncement
        owner resetPrio.
        super whenLostForcus: anAnnouncement


MindmapNode>>resetPrio
        prio := 10

Noah & Stephan