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>
|
||||
|
||||
: rendered-image ( path -- texture )
|
||||
: rendered-image ( image-name -- texture )
|
||||
world get image-texture-cache
|
||||
[ cached-image { 0 0 } <texture> ] cache ;
|
||||
|
||||
|
|
|
@ -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*
|
||||
|
|
Loading…
Reference in New Issue