popup-x ( visible-rect popup-dim screen-dim -- x )

Vocabulary

math.rectangles.positioning.private

Inputs

visible-rect	an object
popup-dim	an object
screen-dim	an object

Outputs

x

an object

Definition

USING: accessors kernel math math.order sequences ;

IN: math.rectangles.positioning.private

: popup-x ( visible-rect popup-dim screen-dim -- x )
    [ loc>> first ] 2dip swap [ first ] bi@ - min 0 max ;