[mcclim-devel] Re: [mcclim-cvs] CVS update: mcclim/dialog.lisp

[Max-Gerd Retzlaff]

Hello

On Fri, Aug 26, 2005 at 04:51:32PM +0200, Paolo Amoroso wrote:
>   > Show Town Info ( Which town? ) Berlin
> 
> the dialog does appear in a different window.  But when I dismiss it
> with OK or Cancel, I get this error:
> 
> In method
> #<STANDARD-METHOD LISP::PCL-CLOSE (CLIM-INTERNALS::WINDOW-STREAM) {2846A855}>:
> No next method for arguments
> (#<CLIM-INTERNALS::WINDOW-STREAM "(Unnamed Pane)" {58A56285}> NIL).
>    [Condition of type PCL::NO-NEXT-METHOD-ERROR]

That does not happen on sbcl. The last line of climi::close in
panes.lisp, the call (call-next-method) is the problem, as currently
there is no such next method. The following patch helps but I'll not
commit it as there might be such a method in the future. See
http://meme.b9.com/~1a49f9d55ce30a6e18177a45~/cview.html?channel=lisp&date=050826#hour16
(The relevant part starts at 16:21:44 (17:21 in my timezone).)

 -- zipp --

--- panes.lisp.~1.154.~ 2005-08-25 23:22:10.000000000 +0200
+++ panes.lisp  2005-08-26 17:36:44.597545784 +0200
@@ -2520,8 +2520,7 @@
   (declare (ignore abort))
   (let ((frame (pane-frame stream)))
     (when frame
-      (disown-frame (frame-manager frame) frame)))
-  (call-next-method))
+      (disown-frame (frame-manager frame) frame))))
 
 (define-application-frame a-window-stream (standard-encapsulating-stream
                                            standard-extended-input-stream

 -- zapp --

Bye,
Max

-- 
Max-Gerd Retzlaff <m.retzlaff at gmx.net>

For your amusement:
If you wish to live wisely, ignore sayings -- including this one.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 189 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/mcclim-devel/attachments/20050826/d92421be/attachment.sig>