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)