compute-pen ( gadget pen -- )

Vocabulary

ui.pens.caching

Inputs

gadget	an object
pen	an object

Outputs

None

Definition

USING: accessors kernel ;

IN: ui.pens.caching

: compute-pen ( gadget pen -- )
    2dup [ dim>> ] [ last-dim>> ] bi* eq?
    [ 2drop ]
    [ [ swap dim>> >>last-dim drop ] [ recompute-pen ] 2bi ] if
    ;