     gadget new-gadget ;
 
 : activate-control ( gadget -- )
-    dup gadget-model dup [
+    dup model>> dup [
         2dup add-connection
         swap model-changed
     ] [

    [ focusable-child ] keep request-focus-on ;

: focus-path ( world -- seq )
    [ gadget-focus ] follow ;

: gadget, ( gadget -- ) gadget get add-gadget ;


    f swap (>>parent) ;

: unfocus-gadget ( child gadget -- )
    tuck focus>> eq?
    [ f swap (>>focus) ] [ drop ] if ;

SYMBOL: in-layout?

