Fix UI breakage

db4
Slava Pestov 2008-04-05 04:58:22 -05:00
parent 545b8a3d05
commit a30c60ea63
1 changed files with 2 additions and 2 deletions

View File

@ -396,10 +396,10 @@ M: gadget request-focus-on gadget-parent request-focus-on ;
M: f request-focus-on 2drop ;
: request-focus ( gadget -- )
dup focusable-child swap request-focus-on ;
[ focusable-child ] keep request-focus-on ;
: focus-path ( world -- seq )
[ gadget-parent ] follow ;
[ gadget-focus ] follow ;
: make-gadget ( quot gadget -- gadget )
[ \ make-gadget rot with-variable ] keep ; inline