[mcclim-cvs] CVS update: mcclim/presentation-defs.lisp mcclim/presentations.lisp

[Max-Gerd Retzlaff]

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

Modified Files:
	presentation-defs.lisp presentations.lisp 
Log Message:
Section 23.7.1 "Defining Presentation Translators" of the clim spec
says in the subsection on DEFINE-PRESENTATION-ACTION:

    Note that the tester for presentation actions is always assumed to be
    definitive.

This hasn't been the case until now for McCLIM.

In addition to this the lambda-list of DEFINE-DRAG-AND-DROP-TRANSLATOR
has been revised a bit. (Note that I couldn't find a sentence in the
spec that specifies the default value for the parameter MENU, but the
other three define-translator macros have all t as the default.
Nevertheless, most of the parameters are ignored right now.)

Date: Thu Sep  1 04:59:12 2005
Author: mretzlaff

Index: mcclim/presentation-defs.lisp
diff -u mcclim/presentation-defs.lisp:1.46 mcclim/presentation-defs.lisp:1.47
--- mcclim/presentation-defs.lisp:1.46	Thu Aug 25 22:24:10 2005
+++ mcclim/presentation-defs.lisp	Thu Sep  1 04:59:11 2005
@@ -2020,17 +2020,20 @@
 	     (presentation-subtypep subtype-over over))))))
 
 (defmacro define-drag-and-drop-translator
-    (name
-     (from-type to-type destination-type command-table
-      &rest args
-      &key (gesture :select) tester documentation
-      pointer-documentation menu priority
-      (feedback 'frame-drag-and-drop-feedback)
-      (highlighting 'frame-drag-and-drop-highlighting))
+   (name (from-type to-type destination-type command-table
+           &rest args &key
+           (gesture :select)
+           (tester 'default-translator-tester)
+           documentation
+           (pointer-documentation nil pointer-documentation-p)
+           (menu t)
+           (priority 0)
+           (feedback 'frame-drag-and-drop-feedback)
+           (highlighting 'frame-drag-and-drop-highlighting))
      arglist
      &body body)
-  (declare (ignore tester documentation pointer-documentation menu
-		   priority))
+  (declare (ignore tester documentation pointer-documentation pointer-documentation-p
+                   menu priority))
   (let* ((real-from-type (expand-presentation-type-abbreviation from-type))
 	 (real-dest-type (expand-presentation-type-abbreviation
 			  destination-type))


Index: mcclim/presentations.lisp
diff -u mcclim/presentations.lisp:1.70 mcclim/presentations.lisp:1.71
--- mcclim/presentations.lisp:1.70	Fri Jan 14 13:43:23 2005
+++ mcclim/presentations.lisp	Thu Sep  1 04:59:11 2005
@@ -1357,6 +1357,7 @@
 		    `',tester
 		    `#',(make-translator-fun (car tester)
 					     (cdr tester)))
+       :tester-definitive t
        :documentation #',(make-documentation-fun documentation)
        ,@(when pointer-documentation-p
 	       `(:pointer-documentation