<polygon-gadget> ( color points -- gadget )


Vocabulary
ui.pens.polygon

Inputs
coloran object
pointsan object


Outputs
gadgetan object


Definition
USING: accessors kernel ui.gadgets ;

IN: ui.pens.polygon

: <polygon-gadget> ( color points -- gadget )
[ <polygon> ] [ max-dims ] bi [ <gadget> ] 2dip
[ >>interior ] [ >>dim ] bi* ;