parent-fill-dims ( image-gadget -- dim )

Vocabulary

images.viewer.scaling.private

Inputs

image-gadget

an object

Outputs

dim

an object

Definition

USING: accessors kernel math ;

IN: images.viewer.scaling.private

: parent-fill-dims ( image-gadget -- dim )
    dup fill>>
    [ dup number? [ contain-image ] [ cover-image ] if ]
    [ image>> dim>> ] if* ;