steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ui.images: use MEMO: instead of explicit cache

db4
Slava Pestov 2009-02-15 06:01:46 -06:00
parent 628c219495
commit 0bbc63f865
1 changed files with 3 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
basis/ui/images/images.factor
View File

@ -1,28 +1,18 @@
! Copyright (C) 2009 Slava Pestov. ! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: namespaces cache images images.loader accessors assocs USING: namespaces cache images images.loader accessors assocs
kernel opengl opengl.gl opengl.textures ui.gadgets.worlds ; kernel opengl opengl.gl opengl.textures ui.gadgets.worlds
memoize ;
IN: ui.images IN: ui.images
TUPLE: image-name path ; TUPLE: image-name path ;
C: <image-name> image-name C: <image-name> image-name
<PRIVATE MEMO: cached-image ( image-name -- image ) path>> load-image ;
SYMBOL: image-cache
image-cache [ <cache-assoc> ] initialize
PRIVATE>
: cached-image ( image-name -- image )
path>> image-cache get [ load-image ] cache ;
<PRIVATE <PRIVATE
SLOT: images
: image-texture-cache ( world -- texture-cache ) : image-texture-cache ( world -- texture-cache )
[ [ <cache-assoc> ] unless* ] change-images images>> ; [ [ <cache-assoc> ] unless* ] change-images images>> ;