[mcclim-cvs] CVS update: mcclim/Examples/fire.lisp - mcclim-cvs@common-lisp.net - mailman3.common-lisp.net

2 Feb 2005

Update of /project/mcclim/cvsroot/mcclim/Examples
In directory common-lisp.net:/tmp/cvs-serv15028
Modified Files:
    fire.lisp 
Log Message:
Remove debugging code from (broken) fire example.
Date: Wed Feb  2 07:32:32 2005
Author: ahefner
Index: mcclim/Examples/fire.lisp
diff -u mcclim/Examples/fire.lisp:1.4 mcclim/Examples/fire.lisp:1.5

--- mcclim/Examples/fire.lisp:1.4	Tue Feb  1 06:35:30 2005
+++ mcclim/Examples/fire.lisp	Wed Feb  2 07:32:32 2005
@@ -52,7 +52,6 @@
(defmethod handle-event :after ((pane clim-internals::fire-pane) (event pointer-event))
   (declare (ignorable event))
-  (hef:debugf pane event)
   #+nil
   (let ((label (clim-internals::gadget-label (clim-internals::radio-box-current-selection
    				      (find-pane-named *application-frame* 'radio-box)))))

    