[mcclim-cvs] CVS update: mcclim/Experimental/menu-choose.lisp

[Timothy Moore]

Update of /project/mcclim/cvsroot/mcclim/Experimental
In directory common-lisp.net:/tmp/cvs-serv20221/Experimental

Modified Files:
	menu-choose.lisp 
Log Message:
Remove some debugging code
Date: Tue Jan 11 15:39:03 2005
Author: tmoore

Index: mcclim/Experimental/menu-choose.lisp
diff -u mcclim/Experimental/menu-choose.lisp:1.14 mcclim/Experimental/menu-choose.lisp:1.15
--- mcclim/Experimental/menu-choose.lisp:1.14	Tue Jan 11 14:14:21 2005
+++ mcclim/Experimental/menu-choose.lisp	Tue Jan 11 15:39:02 2005
@@ -273,9 +273,6 @@
     (tracking-pointer (menu :context-type presentation-type
 			    :multiple-window t :highlight t)
       (:presentation (&key presentation)
-	(format *trace-output* "type:~S presentation:~S~%"
-		presentation-type
-		presentation)
        (setq exit-menu t))
       (:pointer-button-release (&key event x y) ; Pointer clicked outside menu?
 					; Close the menu.