define-graphics-operation

• To: clim@BBN.COM
• Subject: define-graphics-operation
• From: Curt Eggemeyer <curt@eraserhead.jpl.nasa.gov>
• Date: Tue, 3 May 1994 07:41:45 -0700

What's CLIM2's equivalent to 1.1's define-graphic-internal and what's
different about it?

Below is one of my 1.1 forms below:

(define-graphics-internal Time-Scale-Display-Internal (Time-Frame ink)
  :bounding-rectangle
  (fix-rectangle (cond ((Legend-On *Apgen*) *Legend-Border*) (t 0))
		 (Display-Y Time-Frame)
		 (+ (Display-X Time-Frame) (Width Time-Frame))
		 (+ (Display-Y Time-Frame) (Height Time-Frame)))
  ;; No :HIGHLIGHTING-TEST, just use the bounding rectangle.
  ;; No :HIGHLIGHTING-FUNCTION, just use a rectangle to do it 
  )

• define-graphics-operation
• From: Scott McKay <swm@harlequin.com>

• Prev: Modeless windows
• Next: define-graphics-operation
• Index: CLIM Mailing list (1-Jun-94 to 30-Jun-95)
• Thread: CLIM Mailing list Index (1-Jun-94 to 30-Jun-95)