QPixmapCache example

[Polos Ruetz]

Just wanted to share this with you:

For one of my toy projects, I needed a pixmap cache.
So why not use QPixmapCache?

I found this simple and straightforward solution:

(let ((pixmap (qnew "QPixmap")))
(defun pixmap-from-cache (file-name)
(if (qfun "QPixmapCache" "find" file-name pixmap)
pixmap
(let ((new-pixmap (qnew "QPixmap(QString)" file-name)))
(qfun "QPixmapCache" "insert" file-name new-pixmap)
new-pixmap))))

Paul