[ltk-user] image create photo -file ...

[Daniel Herring]

I am using the attached patch to read images from gif files.

Later,
Daniel
-------------- next part --------------
From d8e87d982abbf1a573ce85f5ab67c8e62730c6e3 Mon Sep 17 00:00:00 2001
From: D Herring <dherring at at.tentpost.dot.com>
Date: Wed, 21 Oct 2009 23:03:14 -0400
Subject: [PATCH] read photos from a file

---
 ltk.lisp |    7 ++++---
 1 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/ltk.lisp b/ltk.lisp
index cd02f72..f958e71 100644
--- a/ltk.lisp
+++ b/ltk.lisp
@@ -3047,6 +3047,7 @@ set y [winfo y ~a]
 
 (defclass photo-image(tkobject)
   ((data :accessor data :initform nil :initarg :data)
+   (file :accessor file :initform nil :initarg :file)
    )
   )
 
@@ -3054,11 +3055,11 @@ set y [winfo y ~a]
   (name photo))
 
 (defmethod initialize-instance :after ((p photo-image)
-                                       &key width height format grayscale data)
+                                       &key width height format grayscale data file)
   (check-type data (or null string))
   (setf (name p) (create-name))
-  (format-wish "image create photo ~A~@[ -width ~a~]~@[ -height ~a~]~@[ -format \"~a\"~]~@[ -grayscale~*~]~@[ -data ~s~]"
-               (name p) width height format grayscale data))
+  (format-wish "image create photo ~A~@[ -width ~a~]~@[ -height ~a~]~@[ -format \"~a\"~]~@[ -grayscale~*~]~@[ -data ~s~]~@[ -file ~S~]"
+               (name p) width height format grayscale data file))
 
 (defun make-image ()
   (let* ((name (create-name))
-- 
1.6.0.2