(rounded) ( gadget pen -- )

Vocabulary

ui.pens.rounded.private

Inputs

gadget	an object
pen	an object

Outputs

None

Definition

USING: accessors kernel opengl ui.pens.caching ;

IN: ui.pens.rounded.private

: (rounded) ( gadget pen -- )
    [ compute-pen ] keep color>> gl-color ;