ui.gadgets: remove 'set-gadget-delegate'

2008-07-18 18:02:21 -05:00 · 2008-07-18 18:02:21 -05:00 · 6f500fde6b
parent 01c6c8608e
commit 6f500fde6b
1 changed files with 0 additions and 4 deletions
--- a/extra/ui/gadgets/gadgets.factor
+++ b/extra/ui/gadgets/gadgets.factor
@ -361,10 +361,6 @@ M: f request-focus-on 2drop ;
    [ focus>> ] follow ;

 ! Deprecated
-: set-gadget-delegate ( gadget tuple -- )
-    over [
-        dup pick [ (>>parent) ] with each-child
-    ] when set-delegate ;

 : construct-gadget ( class -- tuple )
    >r <gadget> { set-delegate } r> construct ; inline