Re: Bugs in Listbox.stk and Entry.stk

From: Erick Gallesio <eg_at_kaolin.unice.fr>
Date: Mon, 31 Oct 1994 16:39:50 +0000

>
> Hello,
>
> I think there is one bug in the files Listbox.stk and Entry.stk
> concerning the select method

You are true. Hereafter is a bug correction for Listbox.stk

(define-method select ((self <Listbox>) option . index)
  (if (equal? option :clear)
      (begin
        (unless (null? index)
          (error "**** You can't specify an index in a select/clear"))
        ((slot-ref self 'Id) 'select 'clear))
      (apply (slot-ref self 'Id) 'select (format #f "~A" option) index)))


In Entry.stk, I propose the following correction:

(define-method text-select ((self <Entry>) option . index)
  (if (equal? option :clear)
      (begin
        (unless (null? index)
          (error "**** You can't specify an index in a select/clear"))
        ((slot-ref self 'Id) 'select 'clear))
      (apply (slot-ref self 'Id) 'select (format #f "~A" option) (car
index)))))


Another mail you sent me (after this one) show another bug in Entry. Once
again you are true and you patch was correct. The new text-delete must be

(define-method text-delete ((self <Entry>) start . end)
  ((slot-ref self 'Id) 'delete start (if (null? end) start (car end))))

BTW, this last bug was already signaled by someone else and was corrected.
I think it is time to make a new release....



                -- Erick
Received on Mon Oct 31 1994 - 16:39:51 CET