fast-children-on ( rect axis children quot -- slice )


Vocabulary
ui.gadgets

Inputs
rectan object
axisan object
childrenan object
quotan object


Outputs
slicean object


Definition
USING: accessors kernel math math.rectangles math.vectors
sequences ui.gadgets.private ;

IN: ui.gadgets

:: fast-children-on ( rect axis children quot -- slice )
rect loc>> axis children quot (fast-children-on) 0 or
rect rect-bounds v+ axis children quot (fast-children-on)
?1+ children <slice> ; inline