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.