[mcclim-cvs] CVS update: mcclim/builtin-commands.lisp

[Timothy Moore]

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

Modified Files:
	builtin-commands.lisp 
Log Message:
Remove Describe Presentation from the default right-click menu. This means that interfaces will look much quiter.
Date: Sat Jan 22 00:42:40 2005
Author: tmoore

Index: mcclim/builtin-commands.lisp
diff -u mcclim/builtin-commands.lisp:1.17 mcclim/builtin-commands.lisp:1.18
--- mcclim/builtin-commands.lisp:1.17	Tue May 18 03:47:46 2004
+++ mcclim/builtin-commands.lisp	Sat Jan 22 00:42:40 2005
@@ -63,11 +63,6 @@
 (define-gesture-name :describe-presentation :pointer-button-press
   (:left :super))
 
-;;; This is defined as a command, not just as a translator to
-;;; com-describe, so it can be disabled independently of
-;;; com-describe. Also, it might do something different from
-;;; com-describe someday.
-
 ;;; The argument obj is not really the presentation object but the
 ;;; presentation itself as supplied by the translator.
 (define-command (com-describe-presentation :command-table global-command-table)
@@ -80,7 +75,8 @@
      :tester ((presentation)
 	      (not (eq presentation *null-presentation*)))
      :documentation "Describe Presentation"
-     :pointer-documentation "Describe Presentation")
+     :pointer-documentation "Describe Presentation"
+     :menu presentation-debugging)
   (presentation)
   (list presentation))