selective accept

• To: clim@BBN.COM
• Subject: selective accept
• From: Tom Trinko <ttrinko@dipl.rdd.lmsc.lockheed.com>
• Date: Wed, 26 Aug 92 08:21:50 PDT

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.

• Prev: Re: Repairing damaged application panes
• Next: accepting-values pane (CLIM 1.1 Genera 8.2)
• Index: CLIM Mailing list (1-Jan-92 to 31-Aug-92)
• Thread: CLIM Mailing list Index (1-Jan-92 to 31-Aug-92)