<autoscaling-image-gadget> ( object -- gadget )

Vocabulary

images.viewer.scaling

Inputs

object

an object

Outputs

gadget

an object

Definition

USING: accessors images.viewer kernel models ;

IN: images.viewer.scaling

: <autoscaling-image-gadget> ( object -- gadget )
    \ autoscaling-image-gadget new-image-gadget*
    dup image>> dim>> <model> >>model ;