Re: graphic-items.Lisp bug?

["Mark A. Tapia" <markt@dgp.toronto.edu>]

On 12 DEC, Kaveh Kardan asks about an error in Examples:graphic-items.lisp.
In particular, trying the sample code generates the error whenever
the mouse moves over the window:
> Error: No applicable method for args:
>         (#<DIALOG "Untitled Dialog" #x493CC1>)
>         to #<STANDARD-GENERIC-FUNCTION CCL::EDITING-DIALOGS-P #x365306>
> While executing: #<STANDARD-METHOD NO-APPLICABLE-METHOD (T)>

The problem is that the system only defines ccl::editing-dialogs-p
for the following windows:

(#<STANDARD-METHOD CCL::EDITING-DIALOGS-P (INSPECTOR::BACKTRACE-VIEW)>
 #<STANDARD-METHOD CCL::EDITING-DIALOGS-P (INSPECTOR::INSPECTOR-EDITOR)>
 #<STANDARD-METHOD CCL::EDITING-DIALOGS-P (INSPECTOR::INSPECTOR-WINDOW)>)

You'll need to define a method for the dialog. THe following removes
the error:
(defmethod ccl::editing-dialogs-p ((self dialog)) t)
I'm not sure that it is correct.

mark