(screen-rect) ( gadget -- loc ext )

Vocabulary

ui.gadgets.private

Inputs

gadget

an object

Outputs

loc	an object
ext	an object

Definition

USING: accessors kernel math.rectangles math.vectors ;

IN: ui.gadgets.private

: (screen-rect) ( gadget -- loc ext )
    dup parent>> [
        [ rect-extent ] dip (screen-rect)
        [ [ nip ] [ v+ ] 2bi ] dip [ v+ ] [ vmin ] 2bi*
    ] [ rect-extent ] if* ;