Along the same lines as my previous email, I'm having trouble getting a gadget to display within an accepting-values dialog. Apparently the problem arises because setup-gadget-record is being called on the accepting-values-stream, and the first thing setup-gadget-record wants to do is set the height of the accepting-values-stream sheet. Unfortunately, accepting-values stream has no height slot. I'm still rather unclear about the internal workings of accepting-values, so I'm not brave enough to offer a solution, but I thought I could at least notify the list of the problem.
Anthony W. Juckel
Full disclosure: McCLIM was checked out and recompiled (after removing old fasls) this evening.
0: ((SB-PCL::FAST-METHOD SLOT-MISSING (T T T T)) #<unavailable argument> #<unavailable argument> #<unavailable argument> #<CLIM-INTERNALS::ACCEPTING-VALUES-STREAM {90B1EC1}> CLIM-INTERNALS::HEIGHT SLOT-VALUE NIL) 1: ("XEP for (SB-PCL::FAST-METHOD SLOT-MISSING (T T T ...))" 7 #<unavailable argument> #<unavailable argument> #<unavailable argument> #<CLIM-INTERNALS::ACCEPTING-VALUES-STREAM {90B1EC1}> CLIM-INTERNALS::HEIGHT SLOT-VALUE NIL)[:EXTERNAL] 2: (SLOT-VALUE #<CLIM-INTERNALS::ACCEPTING-VALUES-STREAM {90B1EC1}> CLIM-INTERNALS::HEIGHT) 3: (CLIM-INTERNALS::SETUP-GADGET-RECORD #<CLIM-INTERNALS::ACCEPTING-VALUES-STREAM {90B1EC1}> #<CLIM:GADGET-OUTPUT-RECORD X 0.0d0:0.0d0 Y 0.0d0:0.0d0 {90B5AC9}> 0 0) 4: ("FLET #:ACCEPTING-VALUES-CONTINUATION0" #<CLIM-INTERNALS::ACCEPTING-VALUES-STREAM {90B1EC1}>) 5: ("FLET #:UPDATING-OUTPUT-CONTINUATION415" #<CLIM:APPLICATION-PANE NET.JUCKEL.EXALTED.CLIM::INSPECTOR {A722651}>) 6: ((SB-PCL::FAST-METHOD CLIM:INVOKE-WITH-NEW-OUTPUT-RECORD (CLIM:OUTPUT-RECORDING-STREAM T T T)) #<unavailable argument> #<unavailable argument> #<CLIM:APPLICATION-PANE NET.JUCKEL.EXALTED.CLIM::INSPECTOR {A722651}> #<FUNCTION "CLOSURE" {90B3FFD}> #<unavailable argument> #<FUNCTION "FLET #:CONSTRUCTOR1076" {26F203D}> NIL) 7: (CLIM-INTERNALS::%INVOKE-UPDATING #<CLIM-INTERNALS::ACCEPTING-VALUES-RECORD X 0.0d0:0.0d0 Y 0.0d0:0.0d0 1 {90B32A1}> #<CLIM:APPLICATION-PANE NET.JUCKEL.EXALTED.CLIM::INSPECTOR {A722651}> #<FUNCTION "CLOSURE" {90B1F45}>) 8: ("FLET #:CONTINUATION2071" #<CLIM:APPLICATION-PANE NET.JUCKEL.EXALTED.CLIM::INSPECTOR {A722651}> #<CLIM-INTERNALS::ACCEPTING-VALUES-RECORD X 0.0d0:0.0d0 Y 0.0d0:0.0d0 1 {90B32A1}>) 9: ((SB-PCL::FAST-METHOD CLIM:INVOKE-WITH-NEW-OUTPUT-RECORD (CLIM:OUTPUT-RECORDING-STREAM T T T)) #<unavailable argument> #<unavailable argument> #<CLIM:APPLICATION-PANE NET.JUCKEL.EXALTED.CLIM::INSPECTOR {A722651}> #<FUNCTION "CLOSURE" {90B2755}> #<unavailable argument> #<FUNCTION "CLOSURE" {90B2725}> (:UNIQUE-ID 1 :ID-TEST #<FUNCTION "top level local call EQL" {1076E65}> :CACHE-VALUE CLIM-INTERNALS::NO-CACHE-VALUE :CACHE-TEST #<FUNCTION CLIM-INTERNALS::FORCE-UPDATE-CACHE-TEST> :FIXED-POSITION NIL ...)) 10: ((SB-PCL::FAST-METHOD CLIM:INVOKE-UPDATING-OUTPUT (CLIM-INTERNALS::UPDATING-OUTPUT-STREAM-MIXIN T T T T T T)) #<unavailable argument> #<unavailable argument> #<CLIM:APPLICATION-PANE NET.JUCKEL.EXALTED.CLIM::INSPECTOR {A722651}> #<FUNCTION "CLOSURE" {90B1F45}> CLIM-INTERNALS::ACCEPTING-VALUES-RECORD (NIL) #<FUNCTION "top level local call EQL" {1076E65}> CLIM-INTERNALS::NO-CACHE-VALUE #<FUNCTION CLIM-INTERNALS::FORCE-UPDATE-CACHE-TEST> NIL) 11: ("varargs entry for CLIM-INTERNALS::INVOKE-ACCEPTING-VALUES" #<CLIM:APPLICATION-PANE NET.JUCKEL.EXALTED.CLIM::INSPECTOR {A722651}> #<FUNCTION "CLOSURE" {9010C15}> :OWN-WINDOW #<unused argument> :EXIT-BOXES #<unused argument> :INITIALLY-SELECT-QUERY-IDENTIFIER NIL :MODIFY-INITIAL-QUERY #<unused argument> :RESYNCHRONIZE-EVERY-PASS NIL :RESIZE-FRAME #<unused argument> :ALIGN-PROMPTS NIL :LABEL #<unused argument> :SCROLL-BARS #<unused argument> :X-POSITION #<unused argument> :Y-POSITION #<unused argument> :WIDTH #<unused argument> :HEIGHT #<unused argument> :COMMAND-TABLE CLIM:ACCEPTING-VALUES :FRAME-CLASS #<unused argument>) 12: ((SB-PCL::FAST-METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME)) #<unavailable argument> #<unavailable argument> #<NET.JUCKEL.EXALTED.CLIM::EXALTED-CLIM {9EEE7D1}> NIL) 13: ("XEP for (SB-PCL::FAST-METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME))" 4 #<unavailable argument> #<unavailable argument> #<NET.JUCKEL.EXALTED.CLIM::EXALTED-CLIM {9EEE7D1}> NIL)[:EXTERNAL] 14: ((SB-PCL::FAST-METHOD CLIM:RUN-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME)) #<unavailable argument> #<unavailable argument> #<NET.JUCKEL.EXALTED.CLIM::EXALTED-CLIM {9EEE7D1}> #<unavailable argument>) 15: ((SB-PCL::FAST-METHOD CLIM:RUN-FRAME-TOP-LEVEL :AROUND (CLIM:APPLICATION-FRAME)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD CLIM:RUN-FRAME-TOP-LEVEL #) {26DFF05}> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) #NET.JUCKEL.EXALTED.CLIM::EXALTED-CLIM {9EEE7D1} NIL) 16: ("LABELS CLIM-INTERNALS::BOING") 17: ("#'(LAMBDA NIL (LET # # ...) ...)") 18: ("foreign function: call_into_lisp") 19: ("foreign function: funcall0")