Max-Gerd Retzlaff m.retzlaff@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