[cells-cvs] CVS Celtk

ktilton ktilton at common-lisp.net
Wed May 3 17:18:29 UTC 2006


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)




More information about the Cells-cvs mailing list