diff --git a/basis/ui/gadgets/wrappers/wrappers.factor b/basis/ui/gadgets/wrappers/wrappers.factor index ba499f8592..33c67313e2 100644 --- a/basis/ui/gadgets/wrappers/wrappers.factor +++ b/basis/ui/gadgets/wrappers/wrappers.factor @@ -1,12 +1,12 @@ ! Copyright (C) 2005, 2009 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. USING: accessors ui.gadgets kernel ; - IN: ui.gadgets.wrappers TUPLE: wrapper < gadget ; -: new-wrapper ( child class -- wrapper ) new-gadget swap add-gadget ; +: new-wrapper ( child class -- wrapper ) + new-gadget swap add-gadget ; inline : ( child -- wrapper ) wrapper new-wrapper ;