ui.gadgets.wrappers: simplify new-wrapper

db4
Eduardo Cavazos 2008-07-18 02:14:53 -05:00
parent 9d6d18bc5d
commit f65e97b266
1 changed files with 6 additions and 10 deletions

View File

@ -1,22 +1,18 @@
! Copyright (C) 2005, 2008 Slava Pestov. ! Copyright (C) 2005, 2008 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-wrapper ( child class -- wrapper ) new-gadget swap add-gadget ;
new-gadget
[ swap add-gadget drop ] keep ; inline
: <wrapper> ( child -- border ) : <wrapper> ( child -- border ) wrapper new-wrapper ;
wrapper new-wrapper ;
M: wrapper pref-dim* M: wrapper pref-dim* ( wrapper -- dim ) gadget-child pref-dim ;
gadget-child pref-dim ;
M: wrapper layout* M: wrapper layout* ( wrapper -- )
[ dim>> ] [ gadget-child ] bi set-layout-dim ; [ dim>> ] [ gadget-child ] bi set-layout-dim ;
M: wrapper focusable-child* M: wrapper focusable-child* ( wrapper -- child/t ) gadget-child ;
gadget-child ;