[mcclim-devel] Gadgets within accepting-values

[Anthony Juckel]

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")