 ! Deprecated
 : set-gadget-delegate ( gadget tuple -- )
     over [
-        dup pick [ set-gadget-parent ] with each-child
+        dup pick [ (>>parent) ] with each-child
     ] when set-delegate ;
 
 : construct-gadget ( class -- tuple )


: (add-gadget) ( gadget box -- )
    over unparent
    dup pick set-gadget-parent
    [ ((add-gadget)) ] 2keep
    gadget-graft-state second [ graft ] [ drop ] if ;


: (unparent) ( gadget -- )
    dup ungraft
    dup forget-pref-dim
    f swap (>>parent) ;

: unfocus-gadget ( child gadget -- )
    tuck gadget-focus eq?
