23 lines
518 B
Factor
23 lines
518 B
Factor
! Copyright (C) 2005, 2008 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 drop ] keep ; inline
|
|
|
|
: <wrapper> ( child -- border )
|
|
wrapper new-wrapper ;
|
|
|
|
M: wrapper pref-dim*
|
|
gadget-child pref-dim ;
|
|
|
|
M: wrapper layout*
|
|
[ dim>> ] [ gadget-child ] bi set-layout-dim ;
|
|
|
|
M: wrapper focusable-child*
|
|
gadget-child ;
|