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