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

Vocabulary

math.rectangles.positioning.private

Inputs

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

Outputs

y

an object

Definition

USING: kernel ;

IN: math.rectangles.positioning.private

: popup-y ( visible-rect popup-dim screen-dim -- y )
    3dup preferred-fit?
    [ 2drop preferred-y ] [ drop alternate-y ] if ;