Re: Presentation typep and subtypep

• To: jclose@ads.com
• Subject: Re: Presentation typep and subtypep
• From: Scott McKay <SWM@stony-brook.scrc.symbolics.com>
• Date: Thu, 29 Oct 1992 13:35-0500
• Cc: clim@BBN.COM
• In-Reply-To: <9210291554.AA01552@thames.ads.com>

    Date: Thu, 29 Oct 1992 10:54 EST
    From: jclose@potomac.ads.com (Jeff Close)

    I'd desperately want that presentation-typep patch that Brian has
    talked about -- are you all referring to the
    identity-translator-applicable-p code that you included in your
    response?  

Yes.  Here it is again, for CLIM 1.1.

(in-package :clim)
(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))))))))

0,,

• Prev: Selecting Objects in Clim output menu
• Next: changing the mouse-glyph
• Index: CLIM Mailing list (1-Sep-92 to 31-Dec-92)
• Thread: CLIM Mailing list Index (1-Sep-92 to 31-Dec-92)