ui: specify two places where image-name tuples are expected.
parent
768ad8abb9
commit
52e7538869
|
@ -18,7 +18,7 @@ MEMO: cached-image ( image-name -- image ) path>> load-image ;
|
||||||
|
|
||||||
PRIVATE>
|
PRIVATE>
|
||||||
|
|
||||||
: rendered-image ( path -- texture )
|
: rendered-image ( image-name -- texture )
|
||||||
world get image-texture-cache
|
world get image-texture-cache
|
||||||
[ cached-image { 0 0 } <texture> ] cache ;
|
[ cached-image { 0 0 } <texture> ] cache ;
|
||||||
|
|
||||||
|
|
|
@ -7,7 +7,7 @@ IN: ui.pens.image
|
||||||
! Image pen
|
! Image pen
|
||||||
TUPLE: image-pen image fill? ;
|
TUPLE: image-pen image fill? ;
|
||||||
|
|
||||||
: <image-pen> ( image -- pen ) f image-pen boa ;
|
: <image-pen> ( image-name -- pen ) f image-pen boa ;
|
||||||
|
|
||||||
M: image-pen draw-interior
|
M: image-pen draw-interior
|
||||||
[ dim>> ] [ [ image>> ] [ fill?>> ] bi ] bi*
|
[ dim>> ] [ [ image>> ] [ fill?>> ] bi ] bi*
|
||||||
|
|
Loading…
Reference in New Issue