Re: bug.. How can this be???

From: Erick Gallesio <eg_at_unice.fr>
Date: Thu, 22 Oct 1998 22:59:58 +0200 (CEST)

Andrew Dorrell writes:

> I have noticed this symptom of a bug in STk-3.99.* :
>
> STk> (define c (make <Check-button>))
> c
> STk> ((Id c) 'invoke)
> ()
> STk> (invoke (make <check-button>))
>
> *** Error:
> No applicable method for #[<generic> invoke (1)]
> in call (invoke #[<check-button> 401c0474])
>
> How can this happen?... the code (ie the STk library code)
> looks like it should work to me!

Current code is effectively not correct. I have introduced a new class
called <Tk-simple-button> from which <Button> <Check-Button> and
<Radio-button> inherit. Consequently, you have to replace <Button> by
<Tk-simple-button> in the file STklos/Tk/Button.stklos for the
following definitions

(define-method flash ((self <button>))
  ((slot-ref self 'Id) 'flash))

(define-method invoke ((self <button>))
  ((slot-ref self 'Id) 'invoke))



                -- Erick
Received on Thu Oct 22 1998 - 23:38:36 CEST