 
 : drag-selection-caret ( loc editor element -- loc )
     [
-        [ drag-direction? ] 2keep model>>
+        [ drag-direction? ] [ model>> ] 2bi
     ] dip prev/next-elt ? ;
 
 : drag-selection-mark ( loc editor element -- loc )

TUPLE: action-field < field quot ;

: <action-field> ( quot -- gadget )
    action-field new-field swap >>quot ;

: invoke-action-field ( field -- )
    [ editor>> editor-string ]

    ] [
        [ draw-selection ]
        [
            [ [ first2 ] [ selection-color>> ] bi* <selection> ]
            [ draw-unselected-line ] bi
        ] 3bi
    ] if ;

