Update of /project/cells/cvsroot/Celtk In directory clnet:/tmp/cvs-serv6466

Modified Files: widget.lisp Removed Files: Gears.lpr textual.lisp Log Message:

--- /project/cells/cvsroot/Celtk/widget.lisp 2006/05/25 07:12:59 1.10 +++ /project/cells/cvsroot/Celtk/widget.lisp 2006/05/26 18:02:02 1.11 @@ -260,12 +260,6 @@ ;;; --- images -------------------------------------------------------

(defobserver image-files () - ; - ; I do not know how to create the photo for X before X exists - ; though it seems to work. <g> perhaps Tk understands it does not need to - ; place the image in a tree and lets the undefined path go? If so, - ; just add :pre-make-kt before :make-kt in the sort list - ; (loop for (name file-pathname) in (set-difference new-value old-value :key 'car) do (tk-format `(:pre-make-tk ,self) "image create photo ~(~a.~a~) -file ~a" (^path) name (tkescape (namestring file-pathname)))))