From d8e87d982abbf1a573ce85f5ab67c8e62730c6e3 Mon Sep 17 00:00:00 2001 From: D Herring 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