steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

wrappers: make new-wrapper inline

db4
Slava Pestov 2009-02-09 00:23:26 -06:00
parent 828ecde1ca
commit 3391dc5935
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/ui/gadgets/wrappers/wrappers.factor
View File

@ -1,12 +1,12 @@
! Copyright (C) 2005, 2009 Slava Pestov. ! Copyright (C) 2005, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors ui.gadgets kernel ; USING: accessors ui.gadgets kernel ;
IN: ui.gadgets.wrappers IN: ui.gadgets.wrappers
TUPLE: wrapper < gadget ; TUPLE: wrapper < gadget ;
: new-wrapper ( child class -- wrapper ) new-gadget swap add-gadget ; : new-wrapper ( child class -- wrapper )
new-gadget swap add-gadget ; inline
: <wrapper> ( child -- wrapper ) wrapper new-wrapper ; : <wrapper> ( child -- wrapper ) wrapper new-wrapper ;