find-window: don't bomb if a world has no child. Reported by Joe Groff

diff --git a/basis/ui/ui.factor b/basis/ui/ui.factor
index d07403836a2ba5cc02238ad5fffc9894be59fe67..b73de68e265be5b95927570e71e9d84fd6b9aab3 100644 (file)
--- a/basis/ui/ui.factor
+++ b/basis/ui/ui.factor
@@ -145,7 +145,9 @@ SYMBOL: ui-thread
 PRIVATE>
 
 : find-window ( quot -- world )
-    [ windows get values ] dip '[ gadget-child @ ] find-last nip ; inline
+    [ windows get values ] dip
+    '[ dup children>> [ ] [ nip first ] if-empty @ ]
+    find-last nip ; inline
 
 : ui-running? ( -- ? )
     \ ui-running get-global ;