[cells-cvs] CVS Celtk

[ktilton]

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)))))