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

[Paolo Amoroso]

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

> Did you change the call TO ACCEPTING-VALUES in the macro
> ACCEPTING-VALUES-WITH-STYLE-AND-TITLE (and a recompile of the whole file)?

Doh, I din't notice it was commented out.  Now it works, but when I
execute the command:

  > 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]

Restarts:
  0: [CONTINUE] Try again.
  1: [ABORT   ] Return to application command loop
  2:            Return to Top-Level.

Debug  (type H for help)

("DEFMETHOD NO-NEXT-METHOD (STANDARD-GENERIC-FUNCTION STANDARD-METHOD)"
 #<unused-arg> #<unused-arg>
 #<STANDARD-GENERIC-FUNCTION LISP::PCL-CLOSE (5) {282CC739}>
 #<STANDARD-METHOD LISP::PCL-CLOSE (CLIM-INTERNALS::WINDOW-STREAM) {2846A855}>
 ...)
Source: Error finding source:
Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM:  Source file no longer exists:
  target:pcl/braid.lisp.
0] backtrace

0: ("DEFMETHOD NO-NEXT-METHOD (STANDARD-GENERIC-FUNCTION STANDARD-METHOD)"
    #<unused-arg> #<unused-arg>
    #<STANDARD-GENERIC-FUNCTION LISP::PCL-CLOSE (5) {282CC739}>
    #<STANDARD-METHOD LISP::PCL-CLOSE (CLIM-INTERNALS::WINDOW-STREAM)
      {2846A855}>
    ...)
1: ((FLET #:G19
      TOWN-EXAMPLE::COM-SHOW-TOWN-INFO))[:CLEANUP]
2: (TOWN-EXAMPLE::COM-SHOW-TOWN-INFO #<TOWN-EXAMPLE::TOWN Berlin>)
3: ((METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL NIL (CLIM:APPLICATION-FRAME))
    (#() . #(# # # # # ...)) #<unused-arg>
    #<TOWN-EXAMPLE::TOWN-EXAMPLE {586B391D}>
    (:PROMPT #<Function TOWN-EXAMPLE::TOWN-EXAMPLE-PROMPT {5819B1A1}>))
4: ("LAMBDA (.KEYARGS-START. .VALID-KEYS. G4395)" #<unused-arg> #<unused-arg>
    #<TOWN-EXAMPLE::TOWN-EXAMPLE {586B391D}>
    (:PROMPT #<Function TOWN-EXAMPLE::TOWN-EXAMPLE-PROMPT {5819B1A1}>))
5: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL NIL (CLIM:APPLICATION-FRAME))
    (#(20) . #()) #<unused-arg> #<TOWN-EXAMPLE::TOWN-EXAMPLE {586B391D}>
    #<unused-arg>)
6: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL (:AROUND) (CLIM:APPLICATION-FRAME))
    (#(16 15) . #(#))
    #S(PCL::FAST-METHOD-CALL
         :FUNCTION #<Function # {116D7231}>
         :PV-CELL (# . #)
         :NEXT-METHOD-CALL NIL
         :ARG-INFO (1 . T))
    #<TOWN-EXAMPLE::TOWN-EXAMPLE {586B391D}> NIL)
7: (INTERACTIVE-EVAL (TOWN-EXAMPLE:RUN))
8: (LISP::%TOP-LEVEL)
9: ((LABELS LISP::RESTART-LISP
      SAVE-LISP))

0]

I am using CMUCL Snapshot 2005-08 (19B) with the latest McCLIM CVS
sources.


Paolo
-- 
Lisp Propulsion Laboratory log - http://www.paoloamoroso.it/log