From d5900ba7ee33deea237199b6add1c04ca521a6d5 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 17 Sep 2012 12:37:18 -0700 Subject: [PATCH] ui.gadgets: inline gadget-child and nth-gadget. --- basis/ui/gadgets/gadgets.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/ui/gadgets/gadgets.factor b/basis/ui/gadgets/gadgets.factor index 003ae083e8..1695078bb9 100644 --- a/basis/ui/gadgets/gadgets.factor +++ b/basis/ui/gadgets/gadgets.factor @@ -32,9 +32,9 @@ M: gadget hashcode* nip identity-hashcode ; M: gadget model-changed 2drop ; -: gadget-child ( gadget -- child ) children>> first ; +: gadget-child ( gadget -- child ) children>> first ; inline -: nth-gadget ( n gadget -- child ) children>> nth ; +: nth-gadget ( n gadget -- child ) children>> nth ; inline : ( -- gadget ) gadget new ;