CLIM mail archive

[Prev][Next][Index][Thread]

selective accept



i tried the patch you sent

There is also a bug in IDENTITY-TRANSLATOR-APPLICABLE-P, which has been
discussed here before.  Try this definition for it instead:

(defun identity-translator-applicable-p (presentation context-type)
  (let* ((type (presentation-type presentation))
	 (type-name (presentation-type-name type))
	 (object (presentation-object presentation)))
    (with-presentation-type-decoded (context-name context-parameters) context-type
      (if (eq type-name 'blank-area)
	  (eq context-name 'blank-area)
	;; Let MENU-ITEM-IDENTITY take care of pure menu items
	(unless (and (eq type-name 'menu-item)
		     (eq context-name 'menu-item))
	  ;; Either the types definitely match, or the types nominally match
	  ;; and the object must be validated.
	  (or (presentation-subtypep type context-type)
	      (and (not (null context-parameters))
		   (presentation-typep object context-type))))))))


but it doesn't seem to work.  It seems to be called twice for every object the
mouse moves over.  For the objects that should be selected it returns a non-nil
value the first time and a nil value the second time.  For the objects that
shouldn't be mouse sensitive it returns nil both times.  Unfortunetly even when 
it returns nil the object highlites.  I'm a little confused about why the object
highlites when this method returns nil.  Thanks for any further help.



Main Index | Thread Index