, find-items reminder

From: Jonathan Berry <>
Date: Mon, 22 Jul 1996 09:32:15 -0400

Hi Erick,
        I just wanted to remind you of two things before you put 3.1 out, one
a triviality, the other probably so.

* The current installation process leaves in the wrong place,
  breaking the saving of postscript.

* Canvas.stk: find-items has some seemingly necessary checks commented out.
               I reversed the comments in my copy of STk and have been using
               it with no problem:

;;; Find-items
(define-method find-items ((self <Canvas>) . args)
  (let ((result (apply (slot-ref self 'Id) 'find args)))
    (if (list? result)
        (map (lambda (x) (Cid->instance self x)) result)
        (Cid->instance self result))))
;(define-method find-items ((self <Canvas>) . args)
; (map (lambda (x) (Cid->instance self x))
; (apply (slot-ref self 'Id) 'find args)))

I think I've mentioned these before, but I never got an acknowledgement,
so I wanted to make sure you knew.

        Jon Berry
Received on Mon Jul 22 1996 - 15:30:50 CEST

This archive was generated by hypermail 2.3.0 : Mon Jul 21 2014 - 19:38:59 CEST