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

Modified Files: run.lisp Log Message: latest

--- /project/cells/cvsroot/Celtk/run.lisp 2006/05/03 08:46:56 1.3 +++ /project/cells/cvsroot/Celtk/run.lisp 2006/05/03 17:18:29 1.4 @@ -35,14 +35,6 @@ (tk-format `(:bind ,self) "bind ~a ~a {call-back-event %W ~:*"~a" ~a}" (^path) binding-key (or desired-event-info "")))

-#+reference -(defun bind (self event-type handler &optional (desired-event-info "") - &aux (binding-key (intern (symbol-name event-type)))) ;; lookup on rebound will have been read in this package - (trc "bind registering" self binding-key) - (setf (gethash binding-key (event-handlers self)) handler) - (tk-format `(:bind ,self) "bind ~a ~a {call-back-event %W ~:*"~a" ~a}" - (^path) binding-key (or desired-event-info ""))) - (defun run-window (root-class) (declare (ignorable root-class)) (setf *tkw* nil)