ui.gadgets.gadgets: prevent busy loop with ``f focusable-child``

diff --git a/basis/ui/gadgets/gadgets.factor b/basis/ui/gadgets/gadgets.factor
index 28bcf8b20a6194726ed798e2d721c6faf469fbcb..4f9baafd24310fe15650fb61a1f3349f317e15aa 100644 (file)
--- a/basis/ui/gadgets/gadgets.factor
+++ b/basis/ui/gadgets/gadgets.factor
@@ -386,8 +386,8 @@ M: gadget focusable-child* drop t ;
 M: f focusable-child* drop f ;
 
 : focusable-child ( gadget -- child )
-    dup focusable-child*
-    dup t eq? [ drop ] [ nip focusable-child ] if ;
+    dup focusable-child* dup boolean?
+    [ drop ] [ nip focusable-child ] if ;
 
 GENERIC: request-focus-on ( child gadget -- )