[mcclim-devel] <integer> is not of type XLIB:GCONTEXT error when using pixmaps in Listener

[Paolo Amoroso]

I have updated my McCLIM CVS working copy with the latest commits
since last January 11.  In the CLIM Listener, when I left-click the
current directory presentation in the wholine pane, I get this error:

Type-error in KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER:
   39 is not of type XLIB:GCONTEXT
   [Condition of type TYPE-ERROR]

Restarts:
  0: [ABORT             ] Return to application command loop
  1: [RETURN-TO-LISTENER] Return to listener.
  2:                      Return to Top-Level.

Debug  (type H for help)

(XLIB:DRAW-RECTANGLE 7 #<XLIB:WINDOW :0 44040284> 39 0 ...)[:EXTERNAL]
0] backtrace

0: (XLIB:DRAW-RECTANGLE 7 #<XLIB:WINDOW :0 44040284> 39 0 ...)[:EXTERNAL]
1: ((METHOD CLIM-CLX::MEDIUM-DRAW-RECTANGLE-USING-INK* NIL
     (CLIM-CLX::CLX-MEDIUM T T T T ...))
    (#(2 5 8 NIL) . #()) #<unused-arg> #<CLIM-CLX::CLX-MEDIUM {588E952D}>
    #<unused-arg> ...)
2: ((METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL NIL
     (CLIM:MEDIUM T T))
    (#(2 5 6 3 2 ...) . #(# #)) #<unused-arg>
    #<CLIM-CLX::CLX-MEDIUM {588E952D}> #<CLIM-CLX::CLX-MEDIUM {588E952D}> ...)
3: (CLIM-LISTENER::DRAW-ICON T
                             #<CLIM-INTERNALS::INDEXED-PATTERN {5843D4C5}>
                             :EXTRA-SPACING 3)
4: ((FLET #:CONTINUATION22
      (FLET #:CONT20
        #)))
5: ((FLET #:CONTINUATION24
      (FLET #:CONT20
        #))
    #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {588E8A65}> #<unused-arg>)
6: ((FLET #:CONTINUATION24
      (FLET #:CONT20
        #))
    2 #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {588E8A65}>
    #<unused-arg>)[:EXTERNAL]
7: ((METHOD CLIM:INVOKE-WITH-NEW-OUTPUT-RECORD NIL
     (CLIM:OUTPUT-RECORDING-STREAM T T T))
    (#() . #(#)) #<unused-arg>
    #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {588E8A65}>
    #<Function (FLET #:CONTINUATION24
                 #)
      {580CA3A1}>
    ...)
8: ((FLET #:CONT20
      (FLET #:DESTINATION-CONTINUATION0
        CLIM-LISTENER::COM-SHOW-DIRECTORY))
    #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {588E8A65}>)
9: ((METHOD CLIM:INVOKE-WITH-TEXT-STYLE NIL (CLIM:MEDIUM T T)) #<unused-arg>
    #<unused-arg> #<CLIM-CLX::CLX-MEDIUM {588E952D}>
    #<Closure Over Function (FLET #:CONT19
                              )
      {58CB7AA9}>
    ...)
10: ("LAMBDA (G8058 G8059 G8060)" #<unused-arg> #<unused-arg>
     #<CLIM-LISTENER::LISTENER {588E559D}>
     (CLIM-LISTENER::COM-SHOW-DIRECTORY #P"/home/paolo/"))
11: ((METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL NIL (CLIM:APPLICATION-FRAME))
     (#() . #(# # # # # ...)) #<unused-arg>
     #<CLIM-LISTENER::LISTENER {588E559D}>
     (:PROMPT CLIM-LISTENER::PRINT-LISTENER-PROMPT))
12: ("LAMBDA (.KEYARGS-START. .VALID-KEYS. G4608)" #<unused-arg> #<unused-arg>
     #<CLIM-LISTENER::LISTENER {588E559D}>
     (:PROMPT CLIM-LISTENER::PRINT-LISTENER-PROMPT))
13: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL NIL (CLIM:APPLICATION-FRAME))
     (#(22) . #()) #<unused-arg> #<CLIM-LISTENER::LISTENER {588E559D}>
     #<unused-arg>)
14: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL NIL (CLIM-LISTENER::LISTENER))
     #<unused-arg>
     #S(PCL::FAST-METHOD-CALL
          :FUNCTION #<Function # {1167A9D1}>
          :PV-CELL (# . #)
          :NEXT-METHOD-CALL NIL
          :ARG-INFO (1 . T))
     #<CLIM-LISTENER::LISTENER {588E559D}> (:LISTENER-FUNCALL NIL))
15: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL (:AROUND) (CLIM:APPLICATION-FRAME))
     (#(18 17) . #(#))
     #S(PCL::FAST-METHOD-CALL
          :FUNCTION #<Function # {590472D9}>
          :PV-CELL NIL
          :NEXT-METHOD-CALL #S(PCL::FAST-METHOD-CALL
                                 :FUNCTION #
                                 :PV-CELL #
                                 :NEXT-METHOD-CALL NIL
                                 :ARG-INFO #)
          :ARG-INFO (1 . T))
     #<CLIM-LISTENER::LISTENER {588E559D}> (:LISTENER-FUNCALL NIL))
16: (INTERACTIVE-EVAL (CLIM-LISTENER:RUN-LISTENER))
17: (LISP::%TOP-LEVEL)
18: ((LABELS LISP::RESTART-LISP
       SAVE-LISP))

0]

If I load Experimental/pointer-doc-hack.lisp in the Listener and move
the mouse pointer toward the current directory presentation, I get
this similar, possibly related error:

Type-error in KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER:
   0 is not of type XLIB:GCONTEXT
   [Condition of type TYPE-ERROR]

Restarts:
  0: [ABORT             ] Return to application command loop
  1: [RETURN-TO-LISTENER] Return to listener.
  2:                      Return to Top-Level.

Debug  (type H for help)

(XLIB:DRAW-RECTANGLE 7 #<XLIB:WINDOW :0 44040277> 0 0 ...)[:EXTERNAL]
0]

I use CMUCL Snapshot 2004-12 with the latest McCLIM CVS sources under
Slackware Linux 10.0.


Paolo
-- 
Why Lisp? http://alu.cliki.net/RtL%20Highlight%20Film