[cells-cvs] CVS Celtk

[ktilton]

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

Modified Files:
	CELTK.lpr fileevent.lisp 
Log Message:


--- /project/cells/cvsroot/Celtk/CELTK.lpr	2006/05/28 15:34:27	1.14
+++ /project/cells/cvsroot/Celtk/CELTK.lpr	2006/06/03 12:12:19	1.15
@@ -10,7 +10,6 @@
                  (make-instance 'module :name "tk-interp.lisp")
                  (make-instance 'module :name "tk-events.lisp")
                  (make-instance 'module :name "tk-object.lisp")
-                 (make-instance 'module :name "fileevent.lisp")
                  (make-instance 'module :name "widget.lisp")
                  (make-instance 'module :name "font.lisp")
                  (make-instance 'module :name "layout.lisp")
@@ -27,6 +26,7 @@
                  (make-instance 'module :name "item-shaped.lisp")
                  (make-instance 'module :name "composites.lisp")
                  (make-instance 'module :name "frame.lisp")
+                 (make-instance 'module :name "fileevent.lisp")
                  (make-instance 'module :name "togl.lisp")
                  (make-instance 'module :name "run.lisp")
                  (make-instance 'module :name "ltktest-ci.lisp")
--- /project/cells/cvsroot/Celtk/fileevent.lisp	2006/06/03 12:04:37	1.7
+++ /project/cells/cvsroot/Celtk/fileevent.lisp	2006/06/03 12:12:19	1.8
@@ -21,7 +21,7 @@
 ;;; DEALINGS IN THE SOFTWARE.
 ;;;
 ;;; ---------------------------------------------------------------------------
-;;; $Header: /project/cells/cvsroot/Celtk/fileevent.lisp,v 1.7 2006/06/03 12:04:37 ktilton Exp $
+;;; $Header: /project/cells/cvsroot/Celtk/fileevent.lisp,v 1.8 2006/06/03 12:12:19 ktilton Exp $
 ;;; ---------------------------------------------------------------------------
 
 ;;; ===========================================================================
@@ -363,7 +363,7 @@
 
 (defobserver error-cb ((self tk-fileevent))
   (if new-value
-    (Tcl_CreateCommand *tki*
+    (tcl-create-command *tki*
 		       "error-cb"
 		       new-value
 		       (null-pointer)