diff --git a/basis/ui/images/images.factor b/basis/ui/images/images.factor index 6e1d730a9e..99cbcc32ec 100644 --- a/basis/ui/images/images.factor +++ b/basis/ui/images/images.factor @@ -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 } ] cache ; diff --git a/basis/ui/pens/image/image.factor b/basis/ui/pens/image/image.factor index be37e6e129..b67669f212 100644 --- a/basis/ui/pens/image/image.factor +++ b/basis/ui/pens/image/image.factor @@ -7,7 +7,7 @@ IN: ui.pens.image ! Image pen TUPLE: image-pen image fill? ; -: ( image -- pen ) f image-pen boa ; +: ( image-name -- pen ) f image-pen boa ; M: image-pen draw-interior [ dim>> ] [ [ image>> ] [ fill?>> ] bi ] bi*