From 52e7538869c0bb4a805826dfdc07bb6c73064560 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 15 Dec 2014 09:56:03 -0800 Subject: [PATCH] ui: specify two places where image-name tuples are expected. --- basis/ui/images/images.factor | 2 +- basis/ui/pens/image/image.factor | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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*