pen-pref-dim ( gadget pen -- dim )

Vocabulary

ui.pens

Inputs

gadget	an object
pen	an object

Outputs

dim

an object

Definition

IN: ui.pens

GENERIC: pen-pref-dim ( gadget pen -- dim )

Methods

USING: accessors combinators combinators.smart math.vectors
ui.gadgets.buttons ui.pens ;

M: button-pen pen-pref-dim
    [
        {
            [ plain>> pen-pref-dim ]
            [ rollover>> pen-pref-dim ]
            [ pressed>> pen-pref-dim ]
            [ selected>> pen-pref-dim ]
        } 2cleave
    ] [ vmax ] reduce-outputs ;


USING: accessors kernel ui.images ui.pens ui.pens.image ;

M: image-pen pen-pref-dim nip image>> image-dim ;


USING: kernel ui.pens ;

M: object pen-pref-dim 2drop { 0 0 } ;


USING: accessors grouping kernel ui.gadgets ui.pens
ui.pens.polygon ;

M: polygon pen-pref-dim
    boundary-vertices>> 2 <groups> max-dims nip ;


USING: kernel ui.gadgets.sliders.private ui.pens ;

M: slider-pen pen-pref-dim 2drop { 2 2 } ;


USING: accessors kernel math.vectors ui.images ui.pens
ui.pens.tile ;

M: tile-pen pen-pref-dim
    swap [
        >tile-pen< [ image-dim ] tri@
        [ vmax vmax ] [ v+ v+ ] 3bi
    ] dip orientation>> set-axis ;