ui: specify two places where image-name tuples are expected.

db4
John Benediktsson 2014-12-15 09:56:03 -08:00
parent 768ad8abb9
commit 52e7538869
2 changed files with 2 additions and 2 deletions

View File

@ -18,7 +18,7 @@ MEMO: cached-image ( image-name -- image ) path>> load-image ;
PRIVATE>
: rendered-image ( path -- texture )
: rendered-image ( image-name -- texture )
world get image-texture-cache
[ cached-image { 0 0 } <texture> ] cache ;

View File

@ -7,7 +7,7 @@ IN: ui.pens.image
! Image pen
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
[ dim>> ] [ [ image>> ] [ fill?>> ] bi ] bi*