trjp_sawfish
Fork

提交

修订版	5750a485efc82915e6bdd590f7aadc425d3654ca (tree)
时间	2010-11-19 07:46:28
作者	Michal Maruska <mmaruska@gmai...>
Commiter	Michal Maruska

new pixmap-cache-images: return the list of all the images in cache

--- a/src/pixmap-cache.c

+++ b/src/pixmap-cache.c

		@@ -295,8 +295,37 @@ pixmap-cache-control max-pixels reset
295	295	return result;
296	296	}
297	297
	298	+DEFUN ("pixmap-cache-images", Fpixmap_cache_images, Spixmap_cache_images, (void), rep_Subr0)
	299	+/*
	300	+::doc:sawfish.wm.windows.subrs#pixmap-cache-images::
	301	+pixmap-cache-images
	302	+
	303	+return the list of all the images in cache
	304	+::end:: */
	305	+
	306	+{
	307	+ /* make & return a list of all the (image scale) */
	308	+
	309	+ repv out = Qnil;
	310	+ rep_GC_root gc_out;
	311	+ rep_PUSHGC(gc_out, out);
	312	+
	313	+ pixmap_cache_node *this = oldest;
	314	+
	315	+ for (this = oldest; this != 0; this = this->newer)
	316	+ /* images could get GC-ed! */
	317	+ out = Fcons (rep_LIST_3 (
	318	+ rep_MAKE_INT (this->width),
	319	+ rep_MAKE_INT (this->height),
	320	+ (repv)this->im),
	321	+ out);
	322	+ rep_POPGC;
	323	+ return out;
	324	+}
	325	+
298	326	void
299	327	pixmap_cache_init (void)
300	328	{
301	329	rep_ADD_SUBR (Spixmap_cache_control);
	330	+ rep_ADD_SUBR (Spixmap_cache_images);
302	331	}