new accessor
parent
d2861cae6e
commit
6474ed69a7
|
@ -138,7 +138,7 @@ M: polygon draw-interior
|
||||||
|
|
||||||
: <polygon-gadget> ( color points -- gadget )
|
: <polygon-gadget> ( color points -- gadget )
|
||||||
dup max-dim
|
dup max-dim
|
||||||
>r <polygon> <gadget> r> over set-rect-dim
|
>r <polygon> <gadget> r> >>dim
|
||||||
[ (>>interior) ] keep ;
|
[ (>>interior) ] keep ;
|
||||||
|
|
||||||
! Font rendering
|
! Font rendering
|
||||||
|
|
Loading…
Reference in New Issue