visible-rect ( glass -- rect )

Vocabulary

ui.gadgets.glass.private

Inputs

glass

an object

Outputs

rect

an object

Definition

USING: accessors kernel math.rectangles math.vectors ui.gadgets
ui.gadgets.viewports ;

IN: ui.gadgets.glass.private

: visible-rect ( glass -- rect )
    [ visible-rect>> ] [ owner>> ] bi
    [ screen-loc ]
    [ [ viewport? ] find-parent [ screen-loc vmax ] when* ] bi
    offset-rect ;