adjust-visible-rect ( visible-rect popup-dim screen-dim -- visible-rect' )

Vocabulary

math.rectangles.positioning.private

Inputs

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

Outputs

visible-rect'

an object

Definition

USING: accessors kernel math.vectors ;

IN: math.rectangles.positioning.private

: adjust-visible-rect
    ( visible-rect popup-dim screen-dim -- visible-rect' )
    [ drop clone ] dip [ vmin ] curry change-loc ;