core/basis/extra: update some stack effects

[factor.git] / basis / ui / gadgets / gadgets.factor

diff --git a/basis/ui/gadgets/gadgets.factor b/basis/ui/gadgets/gadgets.factor
index 66b78431d1dc52ae7bd36108a5fae3a5760e95af..40cd3ea98cd062f13bbd60757ed9d6cc1366ea24 100644 (file)
--- a/basis/ui/gadgets/gadgets.factor
+++ b/basis/ui/gadgets/gadgets.factor
@@ -95,7 +95,7 @@ M: gadget contains-point?
 : sum-dims ( seq -- dim )
     [ 0 0 ] dip [ first2 swapd [ + ] 2bi@ ] each 2array ;
 
-: each-child ( gadget quot -- )
+: each-child ( ... gadget quot: ( ... child -- ... ) -- ... )
     [ children>> ] dip each ; inline
 
 ! Selection protocol
@@ -348,10 +348,10 @@ PRIVATE>
 : parents ( gadget -- seq )
     [ parent>> ] follow ;
 
-: each-parent ( gadget quot -- ? )
+: each-parent ( ... gadget quot: ( ... gadget -- ... ? ) -- ... ? )
     [ parents ] dip all? ; inline
 
-: find-parent ( gadget quot -- parent )
+: find-parent ( ... gadget quot: ( ... gadget -- ... ? ) -- ... parent )
     [ parents ] dip find nip ; inline
 
 : screen-loc ( gadget -- loc )