ui.gadgets.wrappers: simplify new-wrapper
parent
9d6d18bc5d
commit
f65e97b266
|
@ -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 ;
|
|
||||||
|
|
Loading…
Reference in New Issue