make-rectangle

• To: Hallvard.Tretteberg@si.no, clim@BBN.COM
• Subject: make-rectangle
• From: "William M. York" <York@chuck-jones.west.dialnet.ila.com>
• Date: Mon, 1 Jun 1992 11:31-0700
• In-Reply-To: <9206011656.AAmonsun09335@D>

    Date: Mon, 1 Jun 1992 10:01 PDT
    From: Hallvard.Tretteberg@si.no

    CLIM 1.0, MCL 2.0 (both beta):
    ? (clim:make-rectangle (clim:make-point 1 1) (clim:make-point 2 2))
    > Error: :POINTS is an invalid initarg to INITIALIZE-INSTANCE for
    #<STANDARD-CLASS CLIM-UTILS:STANDARD-RECTANGLE>.
    >        Valid initargs: #(:MAX-Y :MAX-X :MIN-Y :MIN-X).
    > While executing: CCL::CHECK-INITARGS
    > Type Command-. to abort.
    See the RestartsI menu item for further choices.
    1 > 
    Is this another bug?  Is there a patch somewhere?

Yup, it is a bug.  Try compiling the following:

;;; -*- Mode: LISP; Syntax: Common-lisp; Package: CLIM-UTILS; Base: 10; Lowercase: Yes -*-

(in-package "CLIM-UTILS")

(defclass standard-rectangle (rectangle)
    ((min-x :initarg :min-x :reader rectangle-min-x :type real)
     (min-y :initarg :min-y :reader rectangle-min-y :type real)
     (max-x :initarg :max-x :reader rectangle-max-x :type real)
     (max-y :initarg :max-y :reader rectangle-max-y :type real)
     (points :initarg :points :type simple-vector :reader polygon-points)))

• make-rectangle
• From: Hallvard.Tretteberg@si.no

• Prev: GENERA size?
• Next: CLIM standard ?
• Index: CLIM Mailing list (1-Jan-92 to 31-Aug-92)
• Thread: CLIM Mailing list Index (1-Jan-92 to 31-Aug-92)